效果 图
----------------------------------
原始数据csv文件数据录入方式一例
# step 1 导入数据到R软件
mean.sd <- read.csv("~/mean.sd.csv")
View(mean.sd)
#-------- 双误差棒 图片绘制 Example s tart--------------------------------
# add both x- and y-axis errorbars
#参考 https://www.plob.org/article/7521.html
#-----step 2 先定义双轴误差棒的函数 ,R代码如下----
plot.error.xy <- function(x,y,sdx,sdy,len = 1, col = "black") {
len <- len * 0.05
arrows(x0 = x, y0 = y, x1 = x, y1 = y - sdy, col = col, angle = 90, length = len)
arrows(x0 = x, y0 = y, x1 = x, y1 = y + sdy, col = col, angle = 90, length = len)
arrows(x0 = x, y0 = y, x1 = x - sdx, y1 = y , col = col, angle = 90, length = len)
arrows(x0 = x, y0 = y, x1 = x + sdx, y1 = y, col = col, angle = 90, length = len)
}
#----------Function finished ------
# step 3 作图,xy轴范围和xy轴label内容等,就不一一举例了
# step 4 加误差误差棒
#-----------Example finished--------------------------------
转载本文请联系原作者获取授权,同时请注明本文来自梅卫平科学网博客。
链接地址:https://wap.sciencenet.cn/blog-651374-1069183.html?mobile=1
收藏