Update ngram Difference between Days X and Y.R

2023-09-02 01:18:46 -03:00 · 2023-09-02 01:18:46 -03:00 · 8315b1f2a7
parent 8cab01c840
commit 8315b1f2a7
1 changed files with 8 additions and 0 deletions
--- a/scripts/ngram
+++ b/scripts/ngram
@ -66,6 +66,14 @@ df_top <- df_difference_filter %>%
 # Bind into new data frame
 df_merged2 <- rbind(df_top, df_bottom)

+# Gets rid of pair-word noise.
+# Add as needed.
+df_merged2 <- df_merged2 %>% 
+  filter(!word == "niggers niggers"
+         & !word == "nigger nigger"
+         & !word == "based based"
+         & !word == "jew jew"
+         & !word == "niggers niggers")

 # Colours results based on conditions.
 # ngram_fill_bar <- case_when(