匠人府分享 http://blog.sciencenet.cn/u/meiweipingg

博文

R语言中 xy轴双误差棒 图片绘制代码 Example

已有 691 次阅读 2017-8-2 16:34 |个人分类:R语言|系统分类:科研笔记|关键词:R语言,双误差棒

效果 图

----------------------------------

原始数据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--------------------------------





http://blog.sciencenet.cn/blog-651374-1069183.html

上一篇:有一种拖延,叫先看一会儿新闻
下一篇:3个国自然基金查询入口
收藏 分享 举报

2 宁利中 杨正瓴

该博文允许注册用户评论 请点击登录 评论 (1 个评论)

数据加载中...

Archiver|手机版|科学网 ( 京ICP备14006957 )

GMT+8, 2017-10-23 01:12

Powered by ScienceNet.cn

Copyright © 2007-2017 中国科学报社

返回顶部