如何使用ggplot2在分组的条形图中显示两个条形的标签？

Question

我正在使用ggplot2软件包来绘制分组的条形图。我很难在每个栏上方显示标签。看来我的代码只是显示每个组的总和。需要指出的是，我的数据帧df3仅包含3个分类变量（因此，为什么我在下面的代码中使用count）可能很重要。

ggplot(df3, aes(SubDept2, ..count..)) + 
  geom_bar(aes(fill = Attrition), position = "dodge")+
  geom_text(aes(label=..count..),stat='count',position=position_dodge(0.9))+
  theme_minimal()+
  scale_fill_brewer(palette="Paired")+
  labs(x="Sub Dept",y="Count")

这是我的情节的样子（裁剪的图像）：

这是我的示例数据（df3）的样子：

Attrition   Dept               SubDept2
Yes         Administration     Finance
Yes         Operations         F&B
Yes         Operations         F&B
No          Operations         Rooms Division

Answer 1

只需在原始fill=Attrition调用中包含ggplot()。

df3 <- data.frame(
  Attrition = sample(c('Yes','no'),size = 100,replace = T),
  Dept = sample(c('Administration','Operations'),size=100,replace=T),
  SubDept2 = sample(c('Finance','F&B','Rooms Division'),size=100,replace=T)
)

df3

ggplot(df3, aes(SubDept2, ..count..,,fill=Attrition)) + 
  geom_bar(aes(fill = Attrition), position = "dodge")+
  geom_text(aes(label=..count..),stat='count',position=position_dodge(0.9))+
  theme_minimal()+
  scale_fill_brewer(palette="Paired")+
  labs(x="Sub Dept",y="Count")