如何在ggalt哑铃图中实现全局可修改的自定义调色板

我正在用ggalt包的geom_dumbbell绘制多项目时间区间哑铃图，需要统一多图表的配色方案，确保相同时间段在不同图表中颜色一致（其中“Interval 1”为重点高亮）。

请问geom_dumbbell能否像普通ggplot2图层一样识别自定义调色板？我希望调色板可以全局修改，不用在每个图表里单独定义。目前找到的方案需要叠加geom_point生成图例，操作太繁琐。

我的示例代码如下：

library(ggplot2)
library(ggalt)
library(tibble)
library(viridis)

df <- tibble(x = c(4,6,5,8,10), y = c(8,9,10,12,15), z = c(14,12,14,15,18), d = c("A","B","C","D","E"))

legend_colors<- c("Interval 1" = viridis(1, option = "C", begin = 0, end = 0.1), 
                  "Interval 2" = viridis(1, option = "C", begin = 0.1, end = 0.2),
                  "Interval 3" = viridis(1, option = "C", begin = 0.5, end = 0.7))

df %>%
  ggplot() +
  geom_dumbbell(aes(x = x, 
                xend = y, 
                y = d), 
                colour = "Interval 1",
                colour_xend = "Interval 2",
                size = 2) +
  geom_dumbbell(aes(x = y,
                    xend = z, 
                    y = d),
                colour = "Interval 2",
                colour_xend = "Interval 3",
                size = 2) +
  scale_colour_manual(values = legend_colors) +
  theme_clean()

我希望实现示例图的效果，但颜色能在图表代码外部全局定义。

核心思路 #

geom_dumbbell支持通过aesthetic映射关联自定义调色板，但需要把颜色变量放到aes()中，而非直接赋值给colour/colour_xend参数。同时，将调色板定义为全局变量，所有图表统一调用即可实现全局修改。

优化方案1：重构数据为长格式（推荐） #

把多列的时间区间转换成“起始-结束-区间类型”的长格式，更符合ggplot的语法逻辑，也更容易维护颜色映射：

# 全局定义调色板（放在所有图表代码之前）
library(ggplot2)
library(ggalt)
library(tibble)
library(viridis)
library(tidyr)

legend_colors <- c(
  "Interval 1" = viridis(1, option = "C", begin = 0, end = 0.1), 
  "Interval 2" = viridis(1, option = "C", begin = 0.1, end = 0.2),
  "Interval 3" = viridis(1, option = "C", begin = 0.5, end = 0.7)
)

# 重构数据为长格式
df_long <- df %>%
  pivot_longer(cols = -d, names_to = "point", values_to = "value") %>%
  group_by(d) %>%
  mutate(
    x = value,
    xend = lead(value),
    interval = case_when(
      point == "x" ~ "Interval 1",
      point == "y" ~ "Interval 2",
      TRUE ~ NA_character_
    )
  ) %>%
  drop_na(xend, interval)

# 绘制哑铃图，通过aes映射颜色
df_long %>%
  ggplot(aes(y = d)) +
  geom_dumbbell(
    aes(x = x, xend = xend, colour = interval, colour_xend = lead(interval)),
    size = 2
  ) +
  scale_colour_manual(values = legend_colors) +
  theme_clean()

优化方案2：直接在aes中映射颜色（无需重构数据） #

如果不想修改数据格式，可以把区间名称放到aes()里，让geom_dumbbell关联到全局调色板：

# 全局调色板保持不变
df %>%
  ggplot() +
  geom_dumbbell(
    aes(x = x, xend = y, y = d, colour = "Interval 1", colour_xend = "Interval 2"),
    size = 2
  ) +
  geom_dumbbell(
    aes(x = y, xend = z, y = d, colour = "Interval 2", colour_xend = "Interval 3"),
    size = 2
  ) +
  scale_colour_manual(values = legend_colors, name = "时间区间") +
  theme_clean()

全局生效的额外技巧 #

如果需要让所有ggplot2图表默认使用这个调色板，可以用ggplot2::update_scale_defaults全局设置：

update_scale_defaults("colour", list(values = legend_colors))

之后所有调用scale_colour_manual()的图表都会自动使用这个调色板，无需重复指定values参数。

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