R语言：ggplot2画带误差棒的折线图的过程及细节。

1.读取数据。原始数据如下表1，其地址为：C:\\Users\\26869\\Desktop\\r语言.csv。该地址可以用函数file.choose（）选中后运行选择目标文件所获得。读取代码步骤如图1：

表1 原始数据

##	supp	does	len	SD	SE
1	OJ	0.5	13.2	4.5	2.111871
2	OJ	1	22.7	3.9	1.977372
3	OJ	2	26.1	2.7	1.630951
4	VC	0.5	8.0	2.8	1.658312
5	VC	1	16.8	2.5	1.587451
6	VC	2	26.1	4.8	2.19089

library("ggplot2")
read.csv("C:\\Users\\26869\\Desktop\\r语言.csv")

图1读取数据代码

2.带误差棒的折线图的制作。代码如图2：

df<-read.csv("C:\\Users\\26869\\Desktop\\r语言.csv")
df
ggplot(df,aes(x=does, y=len, colour=supp,shape=supp))+
geom_line(size=0.75) +
geom_point(size=4,shape=21,fill="white")+
geom_errorbar(aes(ymin=len-SE, ymax=len+SE),colour="black", width=.03,size=0.75)+
scale_colour_hue(name="Supplement type",
                 breaks=c("OJ", "VC"),
                 labels=c("Orange juice", "Ascorbic acid"),
                 l=40) + 
  expand_limits(y=0) +                  
  scale_y_continuous(breaks=0:20*4) +
  scale_x_continuous(breaks=0:10*0.5)+
  theme_bw()+
  theme(panel.grid.major=element_line(colour=NA),
        panel.background = element_rect(fill = "transparent",colour = NA),
        plot.background = element_rect(fill = "transparent",colour = NA),
        panel.grid.minor = element_blank(),legend.justification=c(0.85,0.1),legend.position=c(0.85,0.1))
  labs(x=NULL,y="长度",title=NULL)

 图2 折线图代码

3.运行结果如下图：

 补充：如果不想自行调整背景以及颜色的话，可以使用函数ggsci来进行背景主题的设置。