ggplot2中aes_string()函数的替代方案咨询（支持可选color参数）

问题背景 #

更新ggplot2到3.0.0及以上版本后，原代码中使用的aes_string()会触发弃用警告：aes_string() was deprecated in ggplot2 3.0.0.。需求是实现x、y固定变量的映射，同时color变量为可选（可能为空），原aes_string()可以完美处理color为空的情况，但尝试的四种替代方法（get()、!!sym()、str2expression()+eval()、.data[[]]）在color变量为空时均无法正常运行。

可行替代方案 #

方法1：动态构建aes映射列表 #

通过先创建基础映射列表，再根据color变量是否非空动态添加映射，最后用!!!展开列表传入aes()，完全复刻aes_string()的行为：

library(ggplot2)
library(rlang)

a <- "displ"
b <- "hwy"
d <- c()  # 测试空值场景，替换为"drv"可测试有值场景

# 初始化基础映射
aes_mapping <- list(
  x = sym(a),
  y = sym(b)
)

# 若color变量非空，添加color映射
if (length(d) > 0) {
  aes_mapping$color <- sym(d)
}

# 绘图
ggplot(mpg, aes(!!!aes_mapping)) +
  geom_point() +
  labs(
    x = a,
    y = b,
    color = if (length(d) > 0) d else NULL  # 动态设置图例标题
  )

方法2：结合.data代词与条件判断 #

直接在aes()中通过条件判断控制color映射的添加，无需额外构建列表：

library(ggplot2)

a <- "displ"
b <- "hwy"
d <- c()  # 测试空值场景，替换为"drv"可测试有值场景

ggplot(mpg) +
  geom_point(aes(
    .data[[a]],
    .data[[b]],
    color = if (length(d) > 0) .data[[d]] else NULL
  )) +
  labs(
    x = a,
    y = b,
    color = if (length(d) > 0) d else NULL
  )

原方法失效原因说明 #

• !!sym(d)：当d为空时，sym()无法将空值转换为有效符号，直接报错
• get(d)：空值传入get()会尝试查找名为空字符串的对象，必然找不到
• eval(str2expression(d))：空值无法解析为有效表达式，触发错误
• 直接使用.data[[d]]：当d为空时，.data[[d]]返回NULL，但aes()中直接传入未加条件判断的NULL会导致映射异常

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