本篇文章给大家分享的是有关如何用R语言ggplot2画折线图并添加误差线，小编觉得挺实用的，因此分享给大家学习，希望大家阅读完这篇文章后可以有所收获，话不多说，跟着小编一起来看看吧。
折线图添加误差线是非常常用的一种可视化方法，今天的推文介绍一下使用R语言的ggplot2作图的代码。模仿的是论文 Phased diploid genome assemblies and pan-genomes provide insights into the genetic history of apple domestication 中的Figure3中的d图
数据保存为csv格式
df<-read.csv("line.csv",header=T)
df
library(ggplot2)
head(df)
ggplot(df,aes(x=time_point,y=value))+
geom_line()+
geom_point()+
ylim(0,40)
ggplot(df,aes(x=time_point,y=value))+
geom_line()+
geom_point()+
ylim(0,40)+
geom_errorbar(aes(ymin=value-sd,
ymax=value+sd),
width=0.2)
ggplot(df,aes(x=time_point,y=value))+
geom_line()+
geom_point()+
ylim(0,40)+
geom_errorbar(aes(ymin=value-sd,
ymax=value+sd),
width=0.2)+
theme(panel.background = element_blank(),
axis.line.x = element_line(),
axis.line.y = element_line())+
scale_x_continuous(breaks = 1:13,
labels = df$label)+
labs(x=NULL,y=NULL,title = "AAA")
p1<-ggplot(df,aes(x=time_point,y=value))+
geom_line()+
geom_point()+
ylim(0,40)+
geom_errorbar(aes(ymin=value-sd,
ymax=value+sd),
width=0.2)+
theme(panel.background = element_blank(),
axis.line.x = element_line(),
axis.line.y = element_line())+
scale_x_continuous(breaks = 1:13,
labels = df$label)+
labs(x=NULL,y=NULL,title = "AAA")
library(cowplot)
plot_grid(p1,p1,p1,p1,p1,p1,ncol=2,nrow=3)
以上就是如何用R语言ggplot2画折线图并添加误差线，小编相信有部分知识点可能是我们日常工作会见到或用到的。希望你能通过这篇文章学到更多知识。更多详情敬请关注亿速云行业资讯频道。
免责声明：本站发布的内容（图片、视频和文字）以原创、转载和分享为主，文章观点不代表本网站立场，如果涉及侵权请联系站长邮箱：is@yisu.com进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
