From 60bdc0df793ca1769af81df2fbbc00ea649bbb35 Mon Sep 17 00:00:00 2001
From: Lucky <66523959+l-ucky@users.noreply.github.com>
Date: Thu, 24 Aug 2023 14:03:01 -0300
Subject: [PATCH] Update 4ChanScraperv2.R

Fixed more words
---
 4ChanScraperv2.R | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/4ChanScraperv2.R b/4ChanScraperv2.R
index 0f6180e..766a5a0 100644
--- a/4ChanScraperv2.R
+++ b/4ChanScraperv2.R
@@ -285,6 +285,18 @@ tidy_pol_fixed$word <- str_replace(tidy_pol_fixed$word, "whites", "white")
 tidy_pol_fixed$word <- str_replace(tidy_pol_fixed$word, "indians", "indian")
 tidy_pol_fixed$word <- str_replace(tidy_pol_fixed$word, "poos", "poo")
 tidy_pol_fixed$word <- str_replace(tidy_pol_fixed$word, "parties", "party")
+tidy_pol_fixed$word <- str_replace(tidy_pol_fixed$word, "kikes", "jew")
+tidy_pol_fixed$word <- str_replace(tidy_pol_fixed$word, "kike", "jew")
+tidy_pol_fixed$word <- str_replace(tidy_pol_fixed$word, "glow", "glowie")
+tidy_pol_fixed$word <- str_replace(tidy_pol_fixed$word, "glowies", "glowie")
+tidy_pol_fixed$word <- str_replace(tidy_pol_fixed$word, "glows", "glowie")
+tidy_pol_fixed$word <- str_replace(tidy_pol_fixed$word, "glowfags", "glowie")
+tidy_pol_fixed$word <- str_replace(tidy_pol_fixed$word, "glowshills", "glowie")
+tidy_pol_fixed$word <- str_replace(tidy_pol_fixed$word, "guyss", "guy")
+tidy_pol_fixed$word <- str_replace(tidy_pol_fixed$word, "guys", "guy")
+tidy_pol_fixed$word <- str_replace(tidy_pol_fixed$word, "shills", "shill")
+tidy_pol_fixed$word <- str_replace(tidy_pol_fixed$word, "shilling", "shill")
+tidy_pol_fixed$word <- str_replace(tidy_pol_fixed$word, "shilled", "shill")
 
 tidy_pol_fixed2 <- tidy_pol_fixed %>% 
   count(word, sort = TRUE) %>%