GGplot 2 输出为空白

Question

我正在使用整洁的文本指南进行文本挖掘并更改为代码以用于我自己的数据。

我正处于绘制数据集中最常用词的阶段。我已经设法将它们放入数据框中。

我已尝试更改代码的某些部分，但这无济于事，因为我不完全确定每个位的作用。我也在网上到处找答案！

我的数据框如下所示：

# A tibble: 1,343 x 2
   word            n
   <chr>       <int>
 1 reminders     104
 2 check         100
 3 checks        100
 4 mot            87
 5 car            82
 6 vehicle        79
 7 send           78
 8 people         73
 9 maintenance    44
10 vehicles       42

绘制最常用词的代码如下所示：

library (ggplot2)

frequentwordsstop  %>%
  count(word, sort = TRUE) %>%
  filter(n > 40) %>% 
  mutate(word = reorder(word, n)) %>%
  ggplot(aes(word, n)) +
  geom_col() +
  xlab (NULL) +
  coord_flip()

我得到的是 x 轴标签上带有“n”的空白正方形。就是这样！

我没有收到任何错误消息。我得到的是 x 轴标签上带有“n”的空白正方形。就是这样！

Answer 1

如果您有如下所示的数据：

library(tidyverse)

df <- tribble(~word, ~n,
              "reminders",     104,
              "check",         100,
              "checks",        100,
              "mot",            87,
              "car",            82,
              "vehicle",        79,
              "send",           78,
              "people",         73,
              "maintenance",    44,
              "vehicles",       42)

df
#> # A tibble: 10 x 2
#>    word            n
#>    <chr>       <dbl>
#>  1 reminders     104
#>  2 check         100
#>  3 checks        100
#>  4 mot            87
#>  5 car            82
#>  6 vehicle        79
#>  7 send           78
#>  8 people         73
#>  9 maintenance    44
#> 10 vehicles       42

那你已经数过了；字数存储在n 列中。不用再用count()了，其实你试一试会得到一个无厘头的结果，听起来你经历过！

由于您已经计算了词频，因此您可以将结果直接输入到您拥有的其余代码中，以制作您感兴趣的情节。

df %>%
  filter(n > 40) %>% 
  mutate(word = reorder(word, n)) %>%
  ggplot(aes(word, n)) +
  geom_col() +
  xlab (NULL) +
  coord_flip()  

^{由reprex package (v0.3.0) 于 2019 年 8 月 3 日创建}

Answer 2

所以，我已经能够以非 tidyverse 方式生成情节，我会将其发布为答案，以便我可以包含情节并可以拥有代码块。这不是一个实际的答案。

# Loading in your data
z <- " 1 reminders     104
 2 check         100
 3 checks        100
 4 mot            87
 5 car            82
 6 vehicle        79
 7 send           78
 8 people         73
 9 maintenance    44
10 vehicles       42"
df <- read.table(text = z)[,-1] # Drop rownumbers

# Fix names
colnames(df) <- c("word", "n")

# Reorder factor
df$word <- factor(df$word, levels = df$word[order(df$n)])

ggplot(df, aes(word, n)) +
  geom_col() +
  xlab(NULL) +
  coord_flip()