如何调换ggplot2绘制的alluvial冲积图中unresolved与solved的填充颜色

你只需要在原有绘图代码中添加scale_fill_manual()图层，显式指定Unresolved字段不同取值对应的填充色即可，无需修改原始数据框，修改后的完整代码如下：

ggplot(data = D180_PROPOSAL1,
       aes(axis1 = Data, axis2 = Issue,
           y = Frequency)) +
  scale_x_discrete(limits = c("Data", "Issue"), expand = c(.05, .1)) +
  xlab("第180天评估结果") +
  geom_alluvium(aes(fill = Unresolved)) +
  # 若需要让分层块的填充色和冲积流颜色保持一致，可给geom_stratum也加上fill映射
  # geom_stratum(aes(fill = Unresolved))
  geom_stratum() +
  geom_text(stat = "stratum", aes(label = after_stat(stratum))) +
  # 自定义填充色，注意键名需与数据中Unresolved列的实际取值完全匹配（大小写一致）
  scale_fill_manual(values = c(
    "unresolved" = "red",
    "solved" = "green"
  )) +
  theme_minimal() +
  ggtitle("贝伐珠单抗生物类似药评估中的不确定性",
          "按数据类型和问题类型分层")

补充说明 #

如果你的D180_PROPOSAL1数据框中Unresolved列的取值为首字母大写格式（即Unresolved、Solved），将scale_fill_manual中的键名对应调整为大写开头即可。你也可以将red、green替换为十六进制色值，自定义更符合视觉需求的色彩。

内容的提问来源于stack exchange，提问作者Elena Guillen