r - 带有分组数据的 R 条形图（小标题）

Question

有没有一种快速简便的方法可以从这种类型的输出中生成条形图？不确定我是否可以在不重塑数据或单独的 dplyr 语句的情况下做到这一点。

res <-
  df %>%
  mutate(categoryName = factor(categoryName, levels = c('Not Applicable', 'Very Poor', 'Bad', 'OK', 'Good', 'Very Good'))) %>%
  group_by(categoryName) %>%
  count() %>%
  adorn_totals('row') %>%
  spread(categoryName, n) %>%
  mutate(Yes = `OK` + `Good` + `Very Good`)

res

输出看起来像这样（为了隐私，我编辑了 tibble 数字，但都是正整数）。我不会抓住“是”或“总计”列（需要那些用于（是/总计）% 计算）。

标签： rdplyr

Answer 1

这应该适合你：

res %>% 
  gather("Rating",'Instances') %>% 
  filter(Rating %in% c('Not Applicable', 'Very Poor', 'Bad', 'OK', 'Good', 'Very Good')) %>%
  ggplot(aes(x=Rating,y=Instances)) + 
  geom_bar(stat='identity')