r - 将文本变量添加到 ggplot 条形图中的每个条形簇

Question

我有一些这样的数据:

site <- c('twitter', 'facebook', 'gplus')
bouncerate <- c(35, 29, 17)
conversionrate <- c(20, 30, 32)
users <- c(350, 800, 42)
df <- data.frame(site, bouncerate, conversionrate, users) %>% melt()

我是这样绘制的:

ggplot(subset(df, variable!='users'), aes(x=site, y=value)) + 
  geom_bar(stat="identity", aes(fill=variable), position="dodge") +
  coord_flip() +
  scale_fill_brewer(palette = "Set1”)

如您所见，我正在尝试绘制“速率”变量。但我还想将“users”变量的值放在条形的右侧。它看起来像这样:

所以我的问题是，如何获得那里的用户数量？我想也许 geom_label 可以做到这一点，但我不知道如何将标签的坐标与集群联系起来。

而且，虽然上面的示例没有显示这一点，但如果用户数量最多的集群位于顶部，而其余的则从那里下降，我会很兴奋。

Answer 1

这是使用 geom_text 的方法:

ggplot(subset(df, variable!='users'), aes(x=site, y=value)) + 
  geom_bar(stat="identity", aes(fill=variable), position="dodge") +
  coord_flip() +
  scale_fill_brewer(palette = "Set1") +
  geom_text(data=subset(df, variable=="users"), 
aes(x=site, y=40, 
label=paste("(", value ,"\n", variable, ")", sep = "")))