复现Nature期刊图，换数据可用！

本次使用R语言复现一下Nature上的b图！

复现效果图

R语言复现

ggplot(df_weight, aes(x = day, y = value, colour = group, group = group)) +
# 不同色背景
  annotate("rect", xmin = 21, xmax = 40, ymin = -Inf, ymax = Inf,
           fill = "grey90", colour = "grey90") +
# 分界线
  geom_vline(xintercept = 21, linetype = 2, linewidth = 0.4) +
# 均值连线
  stat_summary(aes(group = group), geom = "line", fun = mean, linewidth = 1.8) +
# SEM误差棒
  stat_summary(geom = "errorbar", fun.data = mean_se) +
# 均值散点标记
  stat_summary(aes(fill = group), geom = "point") +
# 组间比较 
  add_vsig(36.2, 37.5, mu_SMKabx, mu_SMK, "***") +
  add_vsig(38.0, 39.5, mu_SMKabx, mu_NSabx, "****")

该图由主图时间序列主图、0～21天iAUC嵌入子图、21～40天iAUC嵌入子图组成的复合科研插图，用于同时展示体重动态变化与累积代谢/生理效应的组间差异。值得学习的点：

• 主图嵌入子图的组图方式

• annotate("rect")方法添加交替背景色

• geom_vline添加垂直辅助线

• stat_summary添加误差棒

• add_vsig添加组间统计p value

-推荐阅读-

matplotlib教程：20w字+数百张图形+1W行代码+详细代码注释

seaborn教程：12.3万字+500多张图形+8000行代码

R可视化教程：28个章节+11w字+数百张图

一些有用的学习资源：

👉2026可视化工具TOP3

👉学习R可视化

👉Python matplotlib

👉嫌Matplotlib繁琐？试试Seaborn

复现Nature子刊上3张图，换数据即可用！
复现Nature“水”子刊上配图，换数据即可用！
喜提“Acceptance”，多亏这两张图，能顶60张图的工作量！
复现Nature正刊上3张图，换数据即可用！
复现IF50.0期刊上6张图，换数据即可用！
复现中科院IF 25.9期刊上3张图，换数据即可用！
复现Nature子刊中的2张图，换个数据即可用！
复现IF 48.5的期刊图，这个图帮你省下50%版面费！
喜提“Major Revision”，太多图，被质疑在堆工作量......
审稿人：凭这个3D Heatmap，必须给minor revision
复现Nature子刊上3张图，换数据即可用！
复现Nature“水”子刊上配图，换数据即可用！
喜提“Acceptance”，多亏这两张图，能顶60张图的工作量！
复现Nature正刊上3张图，换数据即可用！
复现IF50.0期刊上6张图，换数据即可用！

如何加入学习？

（备注：299）