其他
R绘图模板——散点图+误差棒!
点击上方
“科研后花园”
关注我们
代码如下：
1、设置工作环境并加载R包：
#设置工作环境rm(list=ls())setwd("D:/点+误差棒")
#加载包library(ggplot2) # Create Elegant Data Visualisations Using the Grammar of Graphicslibrary(reshape2) # Flexibly Reshape Data: A Reboot of the Reshape Package2、加载数据并对其进行预处理：
#构造数据df <- read.table("data2.txt",header = T, check.names = F)data=melt(df)#误差棒这里我们随机编写，无实际意义data$er=data$value/103、绘图：
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"))扩增子测序数据分析还不会？小编整理的全套R语言代码助您轻松解决问题！
温馨提示
如果你喜欢本文，请分享到朋友圈，想要获得更多信息，请关注我。