复现IF 48.5期刊图，换数据即可用！

pythonic生物人2026年05月27日约 2 分钟

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

s41586-021-04278-5 Extended Data Fig. 2 d原图

✅读入测试数据，

✅关键代码，

# 使用ggplot2创建图形
ggplot(barstack_data_mod, aes(y = prop, x = variable)) +
# 绘制堆叠条形图，reverse = TRUE确保堆叠顺序与图例匹配
  geom_bar(stat = "identity", position = position_fill(reverse = TRUE),
           aes(fill = value), color = "gray30", size = 0.2) +
  scale_fill_manual(values = dynamic_colors) + # 应用自定义颜色
# 添加比例标签
  geom_text(aes(label = label), color = "black", size = 4,
            position = position_fill(vjust = 0.5, reverse = TRUE)) +
# 创建分面网格：type为行，RCB为列
  facet_grid(type ~ RCB, scales = "free", space = "free",
             labeller = labeller(RCB = rcb_labels_with_n)) +
  coord_flip() # 翻转坐标轴，使条形图水平显示

✅该图将分面图+堆叠柱状图运用到极致，系统性地可视化不同乳腺癌新辅助治疗疗效等级（RCB分级）下，一系列关键临床病理特征的分布差异，从而帮助医生和研究者深入理解治疗反应与肿瘤生物学行为之间的关系：

x轴方向分面 (facet) 妙用，展示pCR、RCB-I、RCB-II、RCB-III四组不同乳腺癌新辅助治疗疗效等级的对比；
y轴方向分面 (facet) 妙用，展示术前临床分期（"Tumor stage", "Nodal stage"）、术前组织学特征（"ER status", "HER2 status", "Grade", "Histology"）、新辅助治疗方案与手术方式 ("Neoadjuvant therapy", "Surgery")、术后病理评估 ("ypT stage", "ypN stage", "Lymphovascular invasion")及PAM50分子分型 ("PAM50 subtype")共5大类临床特征的对比；
y轴方向颜色妙用，通过蓝、绿、红、紫、黄5种颜色展示术前临床分期、术前组织学特征、新辅助治疗方案与手术方式、术后病理评估及PAM50分子分型共5大类临床特征的对比；
渐变颜色妙用，每一个堆叠条形图用不同颜色深浅块显示各变量水平的比例分布。

本期结束！

测试数据+详细代码将加入👉：《保姆级R可视化教程2.0》，39个章节，20w字+，数百张图，旨在引导如何系统学习R语言可视化，部分展示如下：