绘制分组柱状图;柱状图上添加误差线;组内柱子之间添加显著性差异表示(字母表示)。 大概思路是首先绘制分组柱形图,然后利用 geom_errorbar 和 geom_text 直接添加;因为柱形图使用的是单个数据绘制,所以标准差以及差异是否显著就在 R 语言之外进行计算,而后整合进表格进行读取。 示例文件将标准差写进表格中了,差异是否显...
library(ggplot2)library(ggsignif)# Graphpad风格 绘图 柱状图# 去掉右上边框,坐标轴贴紧,上部多留10%空间,或者根据Y轴最大值调整# 刻度线,轴文本,轴标题,字体改为Arial 或者 serif# 轴标题 位移合适# 去掉填充,柱子border加粗为2, 显示有缺口,保存为jpg有渐变,保存为PDF正常# 加Errorbar 颜色,上下,宽度稍...
2.ggplot2包绘制图形 (1)添加误差线 这里使用geom_errorbar( )绘制带有误差棒的条形图(这里一定要注意position要与geom__bar( )保持一致,因为系统默认dodge是0.9,因此geom_errorbar( )里面position 需要设置0.9,width设置误差棒的大小) library(ggplot2) ggplot(data=aov,aes(x=Group.1, y=x))+geom_bar(sta...
ggplot(data=new_df,aes(x=name,y=value,fill=var4))+ stat_summary(geom = "bar",fun = "mean", position = position_dodge(0.9))+ stat_summary(geom = "errorbar", fun.min = ebbottom, fun.max = ebtop, position = position_dodge(0.9), width=0.2)+ scale_y_continuous(expand = expansion...
1、可用stat_summary()画柱状图,定义柱子高度为均值:fun=‘mean’。 2、再在图上添加抖点图层:geom_jitter()函数,里面定义点的各种表现细节。 3、此外,还需要加上errorbar图层。 4、scale_y_log10()函数用于设置取对数的y轴刻度,breaks和labels分别定义刻度取值和标记 ...
stat_summary(geom = "errorbar", fun.min = ebbottom, fun.max = ebtop, width=0.2) 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. image.png 添加图上的散点 library(ggplot2) ebtop<-function(x){
geom_errorbar(aes(ymin=len-se, ymax=len+se), colour="black", width=.1, position=pd) + geom_line(position=pd) + geom_point(position=pd, size=3, shape=21, fill="white") +# 21 is filled circle xlab("Dose (mg)") + ylab("Tooth length") + ...
2、做柱状图 ggplot(data, aes(fill=group, y=value, x=reorder(gene,-value)))+ geom_bar(position=position_dodge(), stat="summary", width=0.9, size=1)+ stat_summary(fun.data = 'mean_se', geom = "errorbar", colour = "black", width = 0.2, position=position_dodge(0.7))+ scale_fil...
分组柱状图的绘制可以基于ggplot2,具体可以参考: 分组柱状图--ggplot2 。 如何针对分组柱状图添加误差线并合理调整位置呢?主要基于geom_errorbar及其参数position进行细节调整。 譬如基于上... 分组柱状图的绘制可以基于ggplot2,具体可以参考:分组柱状图--ggplot2。