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

Update Difference Between Data Frame Observations by Day.R

This commit is contained in:
Lucky 2023-08-31 14:32:40 -03:00 committed by GitHub
parent c52658b4ff
commit 00c6abfe17
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
scripts/Difference Between Data Frame Observations by Day.R
View File

@ -82,13 +82,15 @@ fill_bar <- case_when(
df_merged2 %>% df_merged2 %>%
top_n(50) %>% top_n(50) %>%
mutate(word = reorder(word, result)) %>% mutate(word = reorder(word, result)) %>%
ggplot(aes(word, result)) + ggplot(aes(word, result, fill = result)) +
theme(legend.position = "none", axis.title.y = element_blank()) + theme(legend.position = "none", axis.title.y = element_blank()) +
geom_bar(stat = "identity", fill = fill_bar) + geom_bar(stat = "identity") +
labs( labs(
title = "Difference of Word Count from Day 2 - Day 1", title = "Difference of Word Count from Today - Yesterday",
x = "Words", x = "Words",
y = "Count", y = "Count",
caption = "Positive integers = More mentions on day 2 caption = "Positive integers = More mentions today.
Negative integers = Less mentions on day 2.") + Negative integers = Less mentions today.",
coord_flip() fill = "Results") +
coord_flip() +
theme_dark(base_size = 13)