目标图片效果
数据格式
3.设置R软件工作目录:
为了方便找到结果的图,可以把工作目录设置为桌面。操作如下:
修改Y轴长度,不需要修改这一步可以跳过。
###将画出来的图赋值方便修改
p
##如果你想改Y轴的范围,可以修改下面“limits=”中的数值
p+scale_y_continuous(limits = c(0,30),expand = c(0,0))+
scale_fill_lancet()+
scale_color_lancet()
接下来就是导出到ppt里,在ppt里就可以直接加上组间对比的线条。
导出的图所几乎所有对象都是可以修改的,可以自己DIY标题,颜色等等~
###导出成ppt自己修改细节
graph2ppt(file=”myplot.pptx”,width=7,height=5)
效果图
补充一个实际使用中更常用的方法,借助ggpubr包
library(ggpubr)
#设定比较组
my_comparisons
1:nrow(t(combn(levels(as.factor(data$group)),2))))
#添加对比p值
p+ stat_compare_means(comparisons = my_comparisons, label.y = c(29, 35, 40))+
stat_compare_means(label.y = 45) # Add 全局nova p-value
p值保留小数点问题
#以保留两位小数点为例
p + stat_compare_means(
aes(label = paste0(“p = “, round(as.numeric(..p.format..,2))))
)
小结
带误差棒柱状图算是实验类论文中很常用的图形。

绘图耗时计算
加上载入数据,运行其他代码,还有喝口水的时间,大概需要一分钟吧,可以尝试拷贝代码在自己的电脑运行起来吼~(─??─)
相关资源:上海繁易HMI软件棒图制作教程.zip-其它代码类资源-CSDN文库
声明:本站部分文章及图片源自用户投稿,如本站任何资料有侵权请您尽早请联系jinwei@zod.com.cn进行处理,非常感谢!