R ggplot吧组

Question

我正在学习ggplot2，我希望使用数据框绘制条形图，如果可能的话不进行转换。

数据帧：

我想这样画：

感谢，

Answer 1

我制作了一些类似于你的人工数据。我更新了标签：

df=data.frame(cd=seq(0,4),October=c(128,68,29,21,75),November=c(90,80,15,11,80),December=c(55,151,28,7,79))%>%
  melt(id.vars="cd",variable.name="Month")
df$cd<-as.factor(as.character(df$cd))
ggplot(df,aes(x=Month,y=value,fill=cd,label=value))+geom_col(position=position_dodge())+
  geom_text(size = 4, position =position_dodge(1),vjust=-.5)

当然，您可以更改数据分组，例如，如果您希望x代表cd和代表Month的颜色

ggplot(df,aes(x=cd,y=value,fill=Month,label=value))+geom_col(position=position_dodge())+
  geom_text(size = 4, position =position_dodge(1),vjust=-.5)