ggplot2中如何用字符串变量指定美学映射？代码示例解析

先给出基础代码与变量定义：

cubbins <- tibble(x=1:10, y=c(1:5, 1:5), title=rep(c("500 hats", "Oobleck"), 5))
my_col <- "title"

被弃用的旧方法 #

• cubbins %>% ggplot(aes_string(x="x", y="y", color=my_col)) + geom_point()
  • 能正常运行但已被官方标记为弃用，aes_string是旧版本用于字符串列名映射的接口，现在有更规范的替代方案。

失败方法的原因解析 #

• cubbins %>% ggplot(aes(x=x, y=y, color=!!my_col)) + geom_point()
  • !!用于解引用表达式，但my_col是字符串"title"，解引用后直接将该字符串作为颜色值传入，所有点会使用同一个颜色（对应字符串"title"的颜色编码），而非映射数据框的title列。
• cubbins %>% ggplot(aes(x=x, y=y, color={{my_col}})) + geom_point()
  • {{ }}（大括号语法）的作用是捕获函数参数的表达式，这里my_col是全局环境的字符串变量，并非函数参数，因此只会传入字符串"title"，无法映射到数据列，效果和上一条一致。
• cubbins %>% ggplot(aes(x=x, y=y, color=sym(my_col))) + geom_point()
  • sym(my_col)将字符串转为符号title，但aes()采用延迟求值，直接传入符号不会被解析为数据列名，只会被当作无效的美学值，因此抛出警告。
• cubbins %>% ggplot(aes(x=x, y=y, color=enquo(my_col))) + geom_point()
  • enquo()用于捕获函数参数的引用，这里my_col是全局变量，enquo(my_col)捕获的是my_col这个符号本身，而非它对应的列名符号，ggplot2无法识别该映射，触发无效美学警告。

可行方法解析 #

• cubbins %>% ggplot(aes(x=x, y=y, color=.data[[my_col]])) + geom_point()
  • 这是官方推荐的替代方案：.data是ggplot2提供的代词，用于明确引用数据框中的列，.data[[my_col]]通过字符串索引直接提取目标列，无需复杂的tidy eval语法，简洁直观。
• cubbins %>% ggplot(aes(x=x, y=y, color=!!sym(my_col))) + geom_point()
  • 可行逻辑：sym(my_col)先将字符串"title"转换为符号title，!!（bang-bang）强制解引用该符号，让aes()识别这是数据框中的列名，从而正确建立分组到颜色的美学映射。

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