From 00c6abfe170e06a148bb06220828131ad41720a5 Mon Sep 17 00:00:00 2001
From: Lucky <66523959+l-ucky@users.noreply.github.com>
Date: Thu, 31 Aug 2023 14:32:40 -0300
Subject: [PATCH] Update Difference Between Data Frame Observations by Day.R

---
 ...erence Between Data Frame Observations by Day.R | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/scripts/Difference Between Data Frame Observations by Day.R b/scripts/Difference Between Data Frame Observations by Day.R
index 9a2a93b..5ae090d 100644
--- a/scripts/Difference Between Data Frame Observations by Day.R	
+++ b/scripts/Difference Between Data Frame Observations by Day.R	
@@ -82,13 +82,15 @@ fill_bar <- case_when(
 df_merged2 %>% 
   top_n(50) %>% 
   mutate(word = reorder(word, result)) %>%
-  ggplot(aes(word, result)) +
+  ggplot(aes(word, result, fill = result)) +
   theme(legend.position = "none", axis.title.y = element_blank()) +
-  geom_bar(stat = "identity", fill = fill_bar) +
+  geom_bar(stat = "identity") +
   labs(
-    title = "Difference of Word Count from Day 2 - Day 1",
+    title = "Difference of Word Count from Today - Yesterday",
     x = "Words",
     y = "Count",
-    caption = "Positive integers = More mentions on day 2
-     Negative integers = Less mentions on day 2.") +
-  coord_flip()
+    caption = "Positive integers = More mentions today.
+     Negative integers = Less mentions today.",
+    fill = "Results") +
+  coord_flip() +
+  theme_dark(base_size = 13)