其他
R可视化——柱状堆积图绘制并添加误差线！
点击上方
“科研后花园”
关注我们
代码如下：
1、构造绘图数据：
rm(list=ls())#clear Global Environment#加载包library(ggplot2)library(reshape2)
# 创建示例数据df <- data.frame( group = c("A", "B", "C","D","F"), value1 = c(10, 20, 30, 20, 15), value2 = c(15, 25, 35, 15, 20))df1 <- melt(df)#添加误差数据df1$sd <- c(1,2,3,2.5,1,1,2,3,2,1.5)#误差线位置df1 <- df1 %>% group_by(group) %>% mutate(xx=cumsum(value))df1$variable <- factor(df1$variable,levels = c("value2","value1"))#保证误差线可以对应其正确位置2、绘图：
ggplot(df1, aes( x = group,y=value,fill = variable))+ geom_col(position = 'stack', width = 0.6)+ geom_errorbar(aes(ymin=xx-sd,ymax=xx+sd), width=0.1,linewidth=0.8)+ scale_y_continuous(expand = c(0,0),limits = c(0,70))+ labs(x=NULL,y=NULL)+ theme_bw()+ theme(panel.grid = element_blank(), legend.position = c(0.92,0.88), legend.background = element_blank())+ scale_fill_manual(values = c("#0099cc","#ff9933"))推荐阅读
1
扩增子测序数据分析还不会？小编整理的全套R语言代码助您轻松解决问题！
2
3
4
温馨提示
如果你喜欢本文，请分享到朋友圈，想要获得更多信息，请关注我。