复现Nature正刊3张图，换数据即可用！

本次使用R语言复现一下Nature中的3张图！

• ✅读入测试数据，

Fig-7 h、i复现

# 关键代码
plot_befafter_box(data = bf_af_data,
                      xcol = Condition,
                      ycol = Mass,
                      match = Subject,
                      symsize = 5,
                      jitter = 0.3,
                      ColPal = "bright",
                      ColRev = T)

✅这张图是一种配连抖动散点图 + 箱线图：

• 它通过结合抖动散点图、箱线图和配对连线的个体变化追踪，在比较两组或多组数据时提供了非常丰富的信息；
• 同时，添加了统计显著性p值；
• 添加了每组数据的均值线。

Fig 4 d、e、f、g复现

# 关键代码
ggplot(data = bf_af_data, aes(x = Condition, y = Mass)) +
  geom_violin(aes(fill = Condition), trim = FALSE, width = 0.5) + # 小提琴图，设置透明度
# 添加均值线
  stat_summary(fun = mean, geom = "crossbar", width = 0.3, 
               colour = "black", fatten = 2, alpha = 0.7)+
  geom_line(aes(group = Subject), color = "gray60", alpha = 0.8)    # 添加配对连线

✅这张图是一种配连小提琴图：

• 它通过结合小提琴图和配对连线的个体变化追踪，在比较两组或多组数据时提供了非常丰富的信息；
• 同时，添加了统计显著性p值；
• 添加了每组数据的均值线。

Fig 5 d、e复现

# 关键代码
ggplot(bf_af_data, aes(x = Condition, y = Mass)) +
  geom_line(aes(group = Subject), color = "gray80", alpha = 0.6) + # 添加配对连线
  geom_point(aes(fill = Condition),  # 将 color 映射改为 fill 映射
           color = "black",        
           shape = 21,            
           size = 6,
           stroke = 1.5,           
           position = position_jitter(width = 0.1)) 

✅这张图是一种配连抖动散点图：

• 它通过结合抖动散点图和配对连线的个体变化追踪，在比较两组或多组数据时提供了非常丰富的信息；
• 同时，添加了统计显著性p值。

本期结束！

（加入学习，收费，备注：299）