Base R中能否重定义现有颜色名或新增自定义颜色名？

Q1：能否重定义colors()中现有名称的十六进制值？ #

可以实现，但强烈不推荐——这会修改R全局的颜色解析逻辑，影响所有依赖颜色名称的函数（包括基础绘图、统计函数甚至第三方包），极易引发难以排查的兼容性问题。

实现思路是劫持grDevices::col2rgb()函数（R解析颜色名称的核心函数），让它优先返回自定义的颜色映射：

# 先备份原函数
original_col2rgb <- grDevices::col2rgb

# 自定义颜色映射
custom_color_map <- list(
  red = "#EE6677"
)

# 重写col2rgb
grDevices::col2rgb <- function(col, alpha = FALSE) {
  # 检查是否是自定义颜色
  if (col %in% names(custom_color_map)) {
    return(original_col2rgb(custom_color_map[[col]], alpha = alpha))
  }
  # 其他情况调用原函数
  original_col2rgb(col, alpha = alpha)
}

# 测试：此时'red'会渲染为#EE6677
plot(x = 1:2, y = 1:2, col = 'red', pch = 19, cex = 3)

如果要恢复默认逻辑，只需运行：

grDevices::col2rgb <- original_col2rgb

Q2：能否新增自定义颜色名？ #

可以实现，且相比修改内置颜色名风险更低（只要自定义名称不与colors()中的内置名称冲突）。

全局生效方案 #

同样通过修改col2rgb函数实现全局可直接调用自定义颜色名：

# 备份原函数（若之前未备份）
if (!exists("original_col2rgb")) {
  original_col2rgb <- grDevices::col2rgb
}

# 新增自定义颜色映射
custom_color_map <- c(custom_color_map, list(
  myred = "#EE6677",
  myblue = "#3377AA"
))

# 重写col2rgb
grDevices::col2rgb <- function(col, alpha = FALSE) {
  if (col %in% names(custom_color_map)) {
    return(original_col2rgb(custom_color_map[[col]], alpha = alpha))
  }
  original_col2rgb(col, alpha = alpha)
}

# 测试：直接使用自定义颜色名
plot(x = 1:2, y = 1:2, col = c('myred', 'myblue'), pch = 19, cex = 3)

局部安全方案 #

如果不想修改全局环境，可封装一个颜色转换函数，仅在需要时调用：

my_col <- function(col) {
  custom_map <- c(myred = "#EE6677", myblue = "#3377AA")
  ifelse(col %in% names(custom_map), custom_map[col], col)
}

# 使用方式
plot(x = 1:2, y = 1:2, col = my_col(c('myred', 'myblue')), pch = 19, cex = 3)

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