From 8315b1f2a74872f53b859afa1a2a9b1b0181de1f Mon Sep 17 00:00:00 2001
From: Lucky <66523959+l-ucky@users.noreply.github.com>
Date: Sat, 2 Sep 2023 01:18:46 -0300
Subject: [PATCH] Update ngram Difference between Days X and Y.R

---
 scripts/ngram Difference between Days X and Y.R | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/scripts/ngram Difference between Days X and Y.R b/scripts/ngram Difference between Days X and Y.R
index 8eb40c6..23d9aa4 100644
--- a/scripts/ngram Difference between Days X and Y.R	
+++ b/scripts/ngram Difference between Days X and Y.R	
@@ -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(