From e093c31ca88f622e5b6282e268473c391b02a4f4 Mon Sep 17 00:00:00 2001
From: Lucky <66523959+l-ucky@users.noreply.github.com>
Date: Thu, 31 Aug 2023 14:40:01 -0300
Subject: [PATCH] Fixed Graphics and Titles

---
 scripts/4ChanScraperv2.R | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/scripts/4ChanScraperv2.R b/scripts/4ChanScraperv2.R
index 77e52c0..16ddcfb 100644
--- a/scripts/4ChanScraperv2.R
+++ b/scripts/4ChanScraperv2.R
@@ -322,11 +322,14 @@ chi
 tidy_pol_fixed2 %>% 
   top_n(50) %>% 
   mutate(word = reorder(word, n)) %>% 
-  ggplot(aes(word, n)) +
+  ggplot(aes(word, n, fill = n)) +
   geom_col() + 
-  xlab("Words") +
-  ylab("Count") +
-  coord_flip()
+  labs(title = "Most Used Words",
+       x = "Words",
+       y = "Count",
+       fill = "Results") +
+  coord_flip() +
+  theme_dark(base_size = 12.5)
 
 tidy_pol_fixed2 %>% 
   with(wordcloud(word, n, max.words = 100, random.order = FALSE, rot.per = 0.0,