如何提取ggplot2当前默认调色板的颜色值？

问题 #

我创建了一个ggplot可视化图表，其中使用了viridis包中的三种特定颜色。以下是我的代码：

library(tidyverse)
library(viridis)
iris %>%
    ggplot(aes(Petal.Length)) +
    geom_histogram(aes(alpha = 0.5), fill = viridis(3)[2]) +
    geom_boxplot(aes(y = 1), alpha = 0.5, width = 2, lwd = 1.5, fill = viridis(3)[3], color = viridis(3)[1]) +
    guides(alpha = "none")

当前存在的问题是颜色采用硬编码方式：一方面我本就使用viridis颜色刻度，现有代码存在冗余；另一方面当全局修改颜色刻度或未初始设置为viridis时，需要修改代码，若作为包中函数调用会十分繁琐。我尝试通过getOptions()和palette()获取ggplot2的默认调色板，但均未达到预期效果，仅找到访问特定调色板的方法。理想情况下，希望能通过类似current_default_palette(n)[k]的方式手动获取颜色值，请问有什么解决办法？

解决方案 #

1. 动态获取ggplot2当前默认离散调色板 #

ggplot2的默认离散调色板可以通过对应scale函数的palette参数直接获取，无需硬编码指定调色板名称：

# 获取当前默认填充色的调色板函数
current_fill_pal <- ggplot2::scale_fill_discrete()$palette
# 获取当前默认轮廓色的调色板函数
current_colour_pal <- ggplot2::scale_colour_discrete()$palette

# 生成3个颜色，取对应位置的颜色值
current_fill_pal(3)[2] # 对应原代码中viridis(3)[2]
current_fill_pal(3)[3] # 对应原代码中viridis(3)[3]
current_colour_pal(3)[1] # 对应原代码中viridis(3)[1]

2. 全局设置默认调色板后自动适配 #

如果需要全局统一使用viridis调色板，先设置全局选项，之后动态获取的颜色会自动跟随全局设置：

# 全局设置ggplot2默认离散填充/轮廓色为viridis
options(ggplot2.discrete.fill = viridis::viridis_pal())
options(ggplot2.discrete.colour = viridis::viridis_pal())

# 替换原代码中的硬编码颜色
iris %>%
    ggplot(aes(Petal.Length)) +
    geom_histogram(alpha = 0.5, fill = current_fill_pal(3)[2]) +
    geom_boxplot(aes(y = 1), alpha = 0.5, width = 2, lwd = 1.5, 
                 fill = current_fill_pal(3)[3], color = current_colour_pal(3)[1]) +
    guides(alpha = "none")

3. 封装工具函数（适合包内调用） #

如果是在R包中使用，可以封装一个函数简化调用，避免重复代码：

get_palette_color <- function(n, position, type = c("fill", "colour")) {
    type <- match.arg(type)
    pal_func <- switch(type,
                       fill = ggplot2::scale_fill_discrete()$palette,
                       colour = ggplot2::scale_colour_discrete()$palette)
    pal_func(n)[position]
}

# 使用示例
get_palette_color(3, 2, "fill") # 获取第2个填充色
get_palette_color(3, 1, "colour") # 获取第1个轮廓色

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