其他
跟着Nature学绘图——柱状图+散点图+误差线+显著性+截断！
点击上方
“科研后花园”
关注我们
复现图片如下：
主要复现的图片是上图中的图g中样式的图片，具体代码如下：
1、设置工作环境并加载所需R包：
rm(list=ls())#clear Global Environmentsetwd("D:/nature文章原图复现系列/代码/柱状图+散点图+误差线+显著性+截断")#加载包library(ggplot2) # Create Elegant Data Visualisations Using the Grammar of Graphicslibrary(ggsignif) # Significance Brackets for 'ggplot2'library(ggpubr) # 'ggplot2' Based Publication Ready Plotslibrary(ggbreak) # Set Axis Break for 'ggplot2'2、加载绘图数据（根据原文图片随机编写数据，无实际意义）：
# 加载示例数据data <- read.table("data.txt",check.names = T,header = 1)data$group <- factor(data$group,levels = c("OT-II","OT-I"))3、绘图：
ggplot(data,aes(sample,value))+ #误差线 stat_summary(fun.data = 'mean_sd', geom = "errorbar", width = 0.15,size=1)+ #柱状图 geom_bar(aes(fill=group),color="black",stat="summary",fun=mean,position="dodge",size=0.5)+ #散点图 geom_jitter(color="black",size = 2.5,width = 0.2,alpha=0.9)+ #显著性 geom_signif(comparisons = list(c("IM","TC")), map_signif_level=T, tip_length=0, y_position = 1200, size=1, test = "t.test")+ #分面 facet_wrap(~group)+ #颜色 scale_fill_manual(values = c("#009700","#fa3f3f"))+ #主题设置 theme_classic()+ theme(axis.line = element_line(size = 1), axis.text.x = element_text(color = "black", angle = 90,vjust = 0.5,hjust = 1,size = 15), axis.text.y = element_text(color = "black",size = 15), axis.ticks = element_line(color = "black",size = 1), legend.position = "none", strip.background = element_blank(), strip.text = element_text(color = "black",size = 16), axis.title = element_text(color = "black",size = 18))+ #轴标题 labs(x=NULL,y="cells per"~mm^2)+ #y轴截断 scale_y_break(c(10,45), scales=1.2, ticklabels=c(50,100), space=0.2)+ scale_y_break(c(100,600), scales=2.5, ticklabels=c(600,800,1200), space=0.2)温馨提示
如果你喜欢本文，请分享到朋友圈，想要获得更多信息，请关注我。