R tidytext graph comes up vertical and not horizontal

Asked Jul 10 '21 at 19:03

Active Jul 10 '21 at 20:39

Viewed 49 times

I'm trying to create a sentiment analysis using the tidytext code here but my graph comes out vertical, without the output making sense compared to the original which is horizontal. How can I fix this?

#Unnest tokens
edAItext = edAI %>% select(Group, Participant_ID, Brainscape_Pattern) %>% 
  unnest_tokens(word, Brainscape_Pattern)

# Inner join
bing_word_counts <- edAItextTest %>%
   inner_join(get_sentiments("bing")) %>%
   count(word, sentiment, sort = TRUE) %>%
   ungroup()

#Check
 bing_word_counts

#Plot
 bing_word_counts %>%
   group_by(sentiment) %>%
   slice_max(n, n = 5) %>%
   ungroup() %>%
   mutate(word = reorder(word, n)) %>%
   ggplot(aes(n, word, fill = sentiment)) +
   geom_col(show.legend = FALSE) +
   facet_wrap(~sentiment, scales = "free_y") +
  labs(x = "Contribution to sentiment",
        y = NULL)

This is how it looks:

This is how it's supposed to look:

edited Jul 10 '21 at 20:39

asked Jul 10 '21 at 19:03

Delly

Have you tried `geom_col(show.legend = FALSE, orientation = "y")`? – teunbrand Jul 10 '21 at 19:08
I have, and it doesn't make a difference unfortunately. The graph still looks the same. – Delly Jul 10 '21 at 19:13
What about `coord_flip()`? – Radbys Jul 10 '21 at 20:34
It flips the graph but the bars are still in the wrong place. – Delly Jul 10 '21 at 20:38
1

can you share more of your data? or reproduce using R data set? The tidytext instructions work just fine, so I suspect the error is being caused with the edAItext or the edAItextTest input. – Jonni Jul 30 '21 at 18:26
I would also make sure that you have an updated version of ggplot2. – Julia Silge Jul 30 '21 at 23:37

R tidytext graph comes up vertical and not horizontal

0 Answers0