如何在ggplot2中为每个美学组绘制多个图例键？

要在ggplot2内部实现单一组别对应多个图例键，无需修改用户数据，可从自定义图例构建逻辑和扩展draw_key函数的上下文传递两个方向入手：

1. 自定义图例规范（guide对象扩展） #

ggplot2的图例由guide系统控制，你可以通过自定义guide_legend的扩展类来实现多键生成：

• 在自定义stat的计算阶段，为每个分位数组添加内部标识（如quantile_level），但不暴露给用户数据
• 编写自定义guide类，在guide_train环节遍历原始fill的每个层级，为每个层级生成对应分位数的多个键。示例思路：

guide_multi_quantile <- function(...) {
  guide <- guide_legend(...)
  class(guide) <- c("guide_multi_quantile", class(guide))
  guide
}

guide_train.guide_multi_quantile <- function(guide, scale, aesthetic = NULL) {
  # 获取原始scale的层级键
  original_keys <- NextMethod()
  # 定义分位数层级（根据你的需求调整）
  quantile_levels <- c("0.25", "0.5", "0.75")
  # 为每个原始键扩展分位数对应的键
  expanded_keys <- purrr::map_dfr(original_keys$key, function(k) {
    dplyr::bind_rows(purrr::map(quantile_levels, function(q) {
      # 根据分位数调整填充色调：中心深、外围浅
      k$fill <- adjust_color(k$fill, quantile = q)
      k$quantile <- q
      k
    }))
  })
  original_keys$key <- expanded_keys
  original_keys
}

核心是在图例训练阶段扩展原始键数据，为每个fill层级生成多组分位数对应的键。

2. 增强draw_key的上下文感知 #

针对你提到的draw_key无法识别当前组键的问题，可在guide_train阶段为每个键添加元数据（如quantile标识），再在自定义draw_key中读取该信息调整绘制逻辑：

draw_key_quantile_cross <- function(data, params, size) {
  # 从键数据中获取分位数标识
  quantile <- data$quantile
  # 根据分位数调整十字线位置
  x_pos <- switch(quantile,
                  "0.25" = 0.25,
                  "0.5" = 0.5,
                  "0.75" = 0.75)
  grid::grobTree(
    grid::rectGrob(gp = grid::gpar(fill = data$fill, col = NA)),
    grid::linesGrob(x = c(x_pos, x_pos), y = c(0, 1), gp = grid::gpar(col = "white")),
    grid::linesGrob(x = c(0, 1), y = c(x_pos, x_pos), gp = grid::gpar(col = "white"))
  )
}

在自定义geom中指定draw_key = draw_key_quantile_cross，即可让每个图例键根据分位数绘制对应的十字线。

3. 关联stat与guide的联动 #

确保自定义stat将分位数信息传递给geom的绘图数据，同时在geom中关联自定义guide：

geom_quantileplot <- function(mapping = NULL, data = NULL, stat = "quantile",
                              position = "dodge", ..., draw_key = draw_key_quantile_cross,
                              guide = "multi_quantile") {
  layer(
    data = data,
    mapping = mapping,
    stat = stat,
    geom = GeomQuantilePlot, # 你的自定义Geom类
    position = position,
    show.legend = TRUE,
    inherit.aes = TRUE,
    params = list(..., guide = guide)
  )
}

用户调用geom_quantileplot(aes(fill = group))时，会自动使用自定义guide生成每个组对应的多个分位数图例键。

这种方法完全基于ggplot2的扩展体系实现，无需修改用户原始数据，符合ggplot2的设计逻辑。

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