代码之家 › 专栏 › 技术社区 › rmahesh

我在ggplot2顶部设置的参数不起作用?

dplyr ggplot2 r

rmahesh · 技术社区 · 6 年前

df_boatstone_bing  %>%
    group_by(sentiment) %>%
    top_n(10) %>%
    ungroup() %>%
    mutate(word = reorder(word, n)) %>%
    ggplot(aes(word, n, fill = sentiment)) +
    geom_col(show.legend = FALSE) +
    facet_wrap(~sentiment, scales = "free_y") +
    labs(y = "Contribution to sentiment",
         x = NULL) +
    coord_flip()

太好了!

编辑:包含dput

structure(list(word = c("awesome", "loud", "worth", "amazing", 
"excellent", "nice"), n = c(38L, 33L, 29L, 28L, 26L, 22L), sentiment = c("positive", 
"negative", "positive", "positive", "positive", "positive"), 
 method = c("Bing et al.", "Bing et al.", "Bing et al.", "Bing et al.", 
"Bing et al.", "Bing et al.")), .Names = c("word", "n", "sentiment", 
"method"), row.names = c(NA, -6L), class = c("tbl_df", "tbl", 
"data.frame"))

1 回复 | 直到 6 年前

Jon Spring 6 年前

如果我们指定 n top_n(word, n) 术语,并且在我们的输入数据中有足够的单词,它应该可以正常工作。

# OP's 
df_bing_sample  %>%
  group_by(sentiment) %>%
  top_n(10, n) %>%   # <--- specify sort by n, rather than by method, the last column
  ungroup() %>%
  mutate(word = reorder(word, n)) %>%
  ggplot(aes(word, n, fill = sentiment)) +
  geom_col(show.legend = FALSE) +
  facet_wrap(~sentiment, scales = "free_y") +
  labs(y = "Contribution to sentiment",
       x = NULL) +
  coord_flip()

在这里用10个以上的正数和;阴性:

library(tidytext)
set.seed(42)
df_bing_sample <- tidytext::sentiments %>%
  filter(lexicon == "bing") %>%
  sample_n(50) %>%
  mutate(n = rnorm(50, 30, 10) %>% floor %>% as.integer()) %>%
  mutate(method = "Bing et al.") %>%
  select(word, n, sentiment, method)

推荐文章

Shawn Hemelstrand · 为什么我的自定义errorbar函数不能在R中工作?

2 年前

Jeff238 · 为scale\u fill\u连续比例而不是离散比例制作图例

2 年前

jerH · 从ggplot bar plot中省略一些数据标签

2 年前

Stefan · 当facet\u wrap()中的比例设置为“free”时,如何增加ggplot中的默认y轴限制

2 年前

Honorato · 在图形图例中插入两列数据-ggplot2

2 年前

Naota Feykneme · 你能在R中分别控制散点图点的宽度和高度吗?[副本]

2 年前

Shawn Hemelstrand · 如何在ggplot中的许多回归线中为一条特定回归线上色以匹配注释?

2 年前

Jenny · 如何在ggplot2轴上重新排序类别

2 年前

Kirds · 在ggplot中将国家名称添加到地图中

2 年前

MadelineJC · group_by在R中按顺序排列数字

2 年前