年底了,各种事情都在排队去做,造成的后果就是时间像流水一下迅速过去了,抽出一点时间做点学习成了奢求,前两天在微生信生物群0中讨论了一个如何对堆叠柱状图添加误差线问题,类似下面的图片:额。画质真烂!我使用R语言简单实现了一下,这里希望能为大家做个借鉴。
其实这个实现很简单,就像我们对堆叠柱状图添加标签一样,只不过这里添加的是bar。这里核心步骤只有两条第一是构造误差线的坐标,我们使用函数:ddply(df_res,"Attribute",transform,label_y = cumsum(Mean ));第二个是重新排布堆叠柱状图不同分组因子水平,保证按照正确的方向填充:factor(df_res$Species,levels = c("virginica","versicolor","setosa" ))。这两条做好之后我们就可以出图了。
## 导入包library(ggplot2)library(reshape2)library(RColorBrewer)library(plyr)## 载入数据,这里是默认的鸢尾花数据df #数据宽边长df "Species", variable.name=#设置出图颜色mycol= brewer.pal(n = 12, na