blue
/
4Chan-Web-Scraper-v2
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update 4ChanScraperv2.R 

Fixed more words
This commit is contained in:
Lucky 2023-08-24 14:03:01 -03:00 committed by GitHub
parent 228aad6bf1
commit 60bdc0df79
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
4ChanScraperv2.R
View File

@ -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) %>%