本次使用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_