R绘图模板——散点图+误差棒!

 

点击上方

“科研后花园”

关注我们

代码如下：

1、设置工作环境并加载R包：

#设置工作环境
rm(list=ls())
setwd("D:/点+误差棒")

#加载包
library(ggplot2) # Create Elegant Data Visualisations Using the Grammar of Graphics
library(reshape2) # Flexibly Reshape Data: A Reboot of the Reshape Package

2、加载数据并对其进行预处理：

#构造数据
df <- read.table("data2.txt",header = T, check.names = F)
data=melt(df)
#误差棒这里我们随机编写，无实际意义
data$er=data$value/10

3、绘图：

ggplot(data,aes(variable,value))+
  geom_point(aes(color=variable),size=3)+
  facet_wrap(~ group, ncol =3)+
  geom_errorbar(aes(ymin = value-er, ymax = value+er,color=variable),
                width = 0.2,position = position_dodge(width = 0.8),cex=1.2)+ #添加误差棒
  labs(x="",y=NULL)+#去除轴标题
  theme_bw()+#主题
  theme(panel.grid=element_blank(),
        axis.text.y=element_text(color='black',size=10),
        axis.text.x=element_blank(),
        axis.ticks.x = element_blank(),
        legend.text = element_text(color='black',size=12),
        legend.title = element_text(color='red',size=13),
        strip.background.x = element_rect(fill = "#0081b4", color = "black"))+
  scale_y_continuous(expand = c(0, 0), limit = c(5, 23))+#去除网格线
  scale_color_manual(values=c("#004a77","#00adee","#ff8100","red"))

推荐阅读

温馨提示

如果你喜欢本文，请分享到朋友圈，想要获得更多信息，请关注我。