本次使用R语言复现Nature Communications上的1张组合图，这张图兼具颜值+节约版面！

Fig. 1 b原图

❤️复现效果图-b图❤️

---

✅读入测试数据!

---

✅关键代码，

# 关键代码
library(ggplot2)
library(dplyr)
library(cowplot)# --- 外圈图 ---
p_outer <- ggplot(data_aug, aes(x=factor(id), y=average, fill=w)) +geom_bar(stat="identity", width=0.8, show.legend=FALSE, alpha=1) +coord_polar(start=0) +geom_