Changed top_n(40) to top_n(50).

This commit is contained in:
Lucky 2023-08-26 20:23:21 -03:00 committed by GitHub
parent 4fb83fc797
commit 47ea25d435
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -79,7 +79,7 @@ fill_bar <- case_when(
# bar graph of difference between Day 2, and Day 1.
df_merged2 %>%
top_n(40) %>%
top_n(50) %>%
mutate(word = reorder(word, result)) %>%
ggplot(aes(word, result)) +
theme(legend.position = "none", axis.title.y = element_blank()) +