「R绘图模板」分组散点+配对连线+显著性!!!

文摘   科学   2024-11-21 09:05   宁夏  





为了避免各位错过最新的推文教程,强烈建议大家将“科研后花园”设置为“星标”!







文献图片展示:


1、加载所需R包:

library(ggplot2) # Create Elegant Data Visualisations Using the Grammar of Graphics
library(dplyr) # A Grammar of Data Manipulation
library(ggpubr) # 'ggplot2' Based Publication Ready Plots
library(rstatix) # Pipe-Friendly Framework for Basic Statistical Tests

2、加载测试数据并计算组间差异性情况:

#加载数据
df <- read.table("data.txt",header = 1,check.names = F,sep = "\t")
df$Group <- factor(df$Group,levels = c("Control","Experiment"))
df$Period <- factor(df$Period,levels = c("Time1","Time2","Time3","Time4","Time5"))
##添加一列数值列以便于绘制并列散点图
df$x <- rep(1:10,each=5)

##计算组间显著性
data_sig <- df %>% 
  group_by(Period) %>%
  wilcox_test(value ~ Group) %>%
  add_significance("p") %>% 
  add_xy_position()
#修改一下其中xmin与xmax的位置
data_sig$xmin <- c(1,3,5,7,9)
data_sig$xmax <- c(2,4,6,8,10)

3、绘图模板展示(模板部分注释源码及原始测试数据可在公众号后台查看具体获取方式)

ggplot(df,aes(x,value,group=Variety))+
  geom_line(linewidth=0.4, linetype = 1)+
  geom_point(aes(fill=Group),size = 2.5,shape=21,color="black")+
  stat_pvalue_manual(data = data_sig,
                     label = "p = {p},{p.signif}",
                     label.size = 3, tip.length = 0.01,
                     bracket.nudge.y = 0, bracket.size = 0.4)+
  labs(x=NULL,y="Investigation duration (s)",color=NULL)+
  scale_fill_manual(values = c("#e4002b","#008eaa"))+
  scale_x_continuous(breaks = seq(1,10,1),
                     labels = c("","Time1",
                                "","Time2",
                                "","Time3",
                                "","Time4",
                                "","Time5"))+
  theme_classic()+
  theme(legend.position = "top",
        axis.text.x = element_text(color = "black",
                                   vjust = 1.5,hjust = 2,size = 10,angle = 45),
        axis.text.y = element_text(color = "black",size = 9),
        axis.line = element_line(size = .4),
        axis.ticks = element_line(color = "black",size = .4),
        axis.title = element_text(color = "black",size = 13),
        axis.ticks.length.x = unit(0.1, "cm"))
最终将导出的PDF图片导入到AI或PS中进行细节调整即可得到最终效果图:

需要附带注释的源码及测试数据请查看下方绘图模板获取方式!!

PS: 以上内容是小编个人学习代码笔记分享,仅供参考学习,欢迎大家一起交流学习。 

R绘图模板合集(包括附带注释的源码、测试数据及绘制效果图)可在公众号后台菜单栏→R代码查看具体获取方式!

绘图模板合集效果图展示:




往期推荐

「R绘图模板」跟着New Phytologist学绘图—共发生网络图的绘制!!!!!!


「R绘图模板」并列柱状图+组内差异字母标记+组间差异字母标记!!!


「R绘图模板」中国地图+省份子图+采样点放大效果展示!!!


「R绘图模板」世界地图+采样点标记+子地图放大效果!!!


「R绘图模板」跟着Cell学绘图—双分组倾斜火山图!!!


「R绘图模板」并列箱线图+散点+气泡图+分组+显著性!!!


「R绘图模板」气泡图+非等宽分面+分组!!!


「R绘图模板」箱线图+散点+均值连线+显著性的箱上箱下标注!!!


「R绘图模板」环形多组火山图+标签!!!


「R绘图模板」组合图系列—相对丰度柱状堆积图+单组柱状图+显著性!!!


「R绘图模板」气泡图+分组+标签+拟合曲线!!!


「R绘图模板」多变量热图+r值+p值+其他变量!!!


「R绘图模板」用于两组比较的多图形并列组合图-小提琴图+箱线图+散点图!!!


「R绘图模板」跟着Science学绘图—世界地图+采样点标记气泡图+分布频率注释侧图!!!


「R绘图模板」基因注释+箭头图+分面+标签!!!


「R绘图模板」组合图系列-箱线图+散点+分组散点注释!!!


「R绘图模板」世界地图+采样点标记+柱状堆积图!!!


「R绘图模板」环形无分组排序柱状堆积图!!!


「R绘图模板」环形分组气泡图(重发版-修改标题)!!!


「R绘图模板」蝶形图系列-并列箱线图与并列柱状图组合!!!


「R绘图模板」mantel test分析拓展——多样式多形式展示数据!!!


「R绘图模板」多层嵌套柱状图+字母标记+标签嵌套!!!


「R绘图模板」3D热图的绘制!!!


「R绘图模板」进化树+分组注释+配对连线!!!


「R绘图模板」组合图-并列柱状图+数字标签+误差棒+占比饼图!!!


「R绘图模板」箱线图+显著性差异着色+分组差异检验!!!


「R绘图模板」柱状堆积图+柱间连线+文本标签+误差棒+字母标记!!!


「R绘图模板」环形分组散点图+误差棒+分组标签+灰白间隔背景+辅助线!!!


「R绘图模板」箱线图+散点+配对连线+显著性+分面!!!


「R绘图模板」组合图-进化树+柱状图+箱线图+热图!!!


「R绘图模板」内向环形柱状图+分组+分面!!!


「R绘图模板」层级网络图的绘制!!!


「R绘图模板」世界地图+采样点标记+分组条形图+柱状图嵌套!!!


「R绘图模板」多分组箱线图+不同组字母标记+条纹填充!!!


「R绘图模板」并列柱状图+不同组字母标记+组间显著性标记!!!


「R绘图模板」mantel test拓展—多图绘制与组合!!!

配对连线+统计差异!!!


「R绘图模板」跟着Food Chemistry学绘图——散点+误差棒+折线+字母标记!!!


「R绘图模板」环状箱线图+分组+显著性+均值标记!!!


「R绘图模板」嵌套柱状图+显著性+字母标记!!!


「R绘图模板」跟着Nature Communications学绘图—世界地图+采样点标记+饼图+柱状图!!!


「R绘图模板」跟着Nature Communications学绘图—并列柱状堆积图+误差线+显著性!!!


R绘图模板——网络图+微生物丰度与基因间的相关性+正负相关(粉丝投稿)!!!


R可视化——一文带你打通ggplot2个性化绘制柱状图(条形图)!!!


R可视化——一文带你打通ggplot2个性化绘制箱线图(更新版)!!!


R可视化——一文带你打通ggplot2个性化绘制散点图!!!


科研后花园
专注于R语言绘图及数据分析!
 最新文章