ggplot2 - 将比例和计数值添加到条形图

Question

我有一个条形图，其中的值是条形图上的标签 如何在当前标签的顶部或旁边添加数据框中另一列的值 数据框有3组，计数和比例。我想将计数列添加到标签中。我希望避免将2列合并到字符串列中 这是代码：

group <- c('group1','group2','group3')
count <- c(10,20,15)
prop <- c(.22,.44,.34)
data.frame(cbind(group,count,prop)) %>% 
  ggplot(aes(x=group, y = prop)) + 
  geom_col()+
  geom_text(aes(label = prop),position = position_dodge(width = 0.9), vjust=1, cex =5, col = 'white')

这与发布here的另一个问题不同，因为我想知道如何为条形图添加额外的价值，而不仅仅是替换我拥有的。

Answer 1

您可以添加另一个geom_text图层

group <- c('group1','group2','group3')
count <- c(10,20,15)
prop <- c(.22,.44,.34)
data.frame(cbind(group,count,prop)) %>% 
  ggplot(aes(x=group, y = prop)) + 
  geom_col()+
  geom_text(aes(label = prop),position = position_dodge(width = 0.9),
            vjust=1, cex =5, col = 'white') +
  geom_text(aes(label = count), position = position_dodge(width = 0.9),
            vjust = 3, cex = 5, col = "white")

虽然像多个标签一样混淆了多个标签