我正在开展一个项目,我需要创建一个堆积的条形图,我很难将标签固定在条形图内。我希望条形标签位于相应区域的中心,并且条形图中的数字与它们应该是相反的顺序。我可以翻转它以使Q1(绿色)位于底部而Q4(橙色)位于顶部吗?如果没有,我该如何修复标签订单?
还有一件事,我如何在条形图和y轴上的数字中添加逗号?
这就是我所拥有的:
这是我的数据框和代码:
Year Quarter Rates label_ypos
2015 Q1 202409 202409
2015 Q2 427808 630217
2015 Q3 639665 1269882
2015 Q4 852480 2122362
2016 Q1 97442 97442
2016 Q2 258071 355513
2016 Q3 373082 728595
2016 Q4 498307 1226902
2017 Q1 35251 35251
2017 Q2 75446 110697
2017 Q3 111439 222136
2017 Q4 147141 369277
2018 Q1 27337 27337
library(plyr)
df_sorted <- arrange(df, Year, Quarter)
df_cumsum <- ddply(df_sorted, "Year", transform, label_ypos=cumsum(Rates))
ggplot(data=df_cumsum, aes(x=Year, y=Rates, fill=Quarter))+
geom_bar(stat="identity")+
geom_text(aes(y=label_ypos, label=Rates), vjust=1.6, color="black",
size=3.5) + scale_fill_brewer(palette="Set3) + theme_minimal()
抱歉这么多问题!任何帮助是极大的赞赏!一如既往,谢谢你的时间!