溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
本篇文章給大家分享的是有關如何用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進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
