如何修改ggplot图例为dose与supp组合的彩色矩阵样式？

核心思路 #

要实现6个彩色方块的矩阵图例，关键是把dose和supp的组合转化为单一分组变量，同时为每个组合手动匹配对应颜色（对应dose）和透明度（对应supp），再通过图例布局设置实现矩阵样式，同时解决原代码中alpha显示一致的问题：

1. 合并dose与supp为交互因子，每个水平对应唯一的分组（3种dose × 2种supp = 6组）。
2. 为每个交互组分配对应颜色（继承原dose的颜色）和透明度（OJ用高alpha，VC用低alpha）。
3. 自定义图例为矩阵布局，调整标签与标题位置提升可读性。

完整代码 #

library(ggplot2)
library(dplyr)

# 预处理数据：创建交互分组，并重命名标签以便图例识别
tg_processed <- ToothGrowth %>%
  mutate(
    # 生成dose与supp的交互因子，用分隔符区分两个变量
    group = interaction(factor(dose), supp, sep = " · "),
    # 转换为因子确保映射稳定
    dose = factor(dose),
    supp = factor(supp)
  )

# 定义颜色映射：对应每个dose的颜色（可根据需求调整）
dose_colors <- c("0.5" = "#FF6B6B", "1" = "#4ECDC4", "2" = "#45B7D1")
# 定义透明度映射：supp对应的alpha值（OJ为高透明度，VC为低透明度）
supp_alpha <- c("OJ" = 1, "VC" = 0.3)

# 绘制密度图并自定义图例
ggplot(tg_processed, aes(x = len, group = group, fill = group)) +
  geom_density(color = NA) + # 去掉边框，仅用填充区分
  # 手动设置每个交互组的填充色：结合dose的颜色和supp的透明度
  scale_fill_manual(
    values = sapply(levels(tg_processed$group), function(g) {
      # 拆分交互因子，提取dose和supp值
      split_vals <- strsplit(g, " · ")[[1]]
      dose_val <- split_vals[1]
      supp_val <- split_vals[2]
      # 调整颜色透明度
      adjustcolor(dose_colors[dose_val], alpha.f = supp_alpha[supp_val])
    }),
    name = "剂量 · 给药方式", # 图例标题
    # 设置图例为2行3列的矩阵布局
    guide = guide_legend(
      ncol = 3,
      label.position = "bottom",
      title.position = "top",
      title.hjust = 0.5
    )
  ) +
  labs(x = "牙齿长度", y = "密度") +
  theme_minimal() +
  theme(
    legend.position = "bottom",
    legend.box.spacing = unit(0.5, "cm")
  )

代码解释 #

• 数据预处理：通过interaction生成组合分组，确保每个dose+supp的组合对应唯一水平，避免原代码中alpha映射与分组不匹配的问题。
• 颜色与透明度设置：用adjustcolor函数将dose的基础色与supp的alpha值结合，生成每个分组的专属填充色，彻底解决alpha显示一致的问题。
• 图例布局：通过guide_legend的ncol参数设置为3列，自动形成2行3列的矩阵样式，调整标签位置让每个方块的含义清晰对应。

内容的提问来源于stack exchange，提问作者J. Doe