使用ggplot2在条形图中绘制Bigrams

Question

我的数据如下：

> str(bigrams_joined)
Classes ‘tbl_df’, ‘tbl’ and 'data.frame':   71319 obs. of  2 variables:
 $ line   : int  1 1 1 1 1 1 1 1 1 1 ...
 $ bigrams: chr  "in practice" "practice risk" "risk management" "management is"

我想将数据集中排名前10位或最常见的15位bigrams绘制到ggplot2中的条形图中，并使条形水平运行，标签位于y轴上。

非常感谢任何帮助！

谢谢

Answer 1

你可以这样，dplyr的top_n函数来过滤前15个bigrams + ggplot来绘制它们。

library(dplyr)
library(ggplot2)


bigrams_joined %>%
  top_n(15, bigrams) %>% 
  ggplot(aes(bigrams)) + 
  geom_bar() +  
  coord_flip()

或订购：

bigrams_joined %>%
  group_by(bigrams) %>% 
  mutate(n = n()) %>% 
  ungroup() %>% 
  top_n(15, bigrams) %>% 
  mutate(bigrams = reorder(bigrams, n)) %>%
  ggplot(aes(bigrams)) + 
  geom_bar() +
  coord_flip()

Answer 2

看起来你需要count()你的双字母（来自dplyr），然后你需要在你的情节中订购它们。对于那些日子，我更喜欢使用来自forcats的fct_reorder()。

library(janeaustenr)
library(tidyverse)
library(tidytext)

data_frame(txt = prideprejudice) %>%
    unnest_tokens(bigram, txt, token = "ngrams", n = 2) %>%
    count(bigram, sort = TRUE) %>%
    top_n(15) %>%
    ggplot(aes(fct_reorder(bigram, n), n)) +
    geom_col() +
    coord_flip() +
    labs(x = NULL)
#> Selecting by n

由reprex package（v0.2.0）创建于2018-04-22。