在R语言中使用ggplot向PCA绘图函数传递变量的问题

嘿，我来帮你搞定这个PCA绘图函数传递变量名的问题！你遇到的aes_string报错，本质是因为这个函数在ggplot2的新版本里已经被弃用了，内部实现的变化导致了这个奇怪的.names找不到的错误。下面我结合你的iris数据示例，给你两种靠谱的解决方案：

先重现你的报错场景（不可运行示例） #

假设你之前写了类似这样的代码：

library(ggplot2)

# 预处理PCA结果数据
pca_result <- prcomp(iris[1:4], scale. = TRUE)
df_pca <- as.data.frame(pca_result$x)
df_pca$Species <- iris$Species

# 报错的函数
plot_pca_bad <- function(data, a, b) {
  ggplot(data, aes_string(x = a, y = b, color = "Species")) +
    geom_point() +
    labs(x = paste0("PC", a), y = paste0("PC", b))
}

# 调用时触发报错
plot_pca_bad(df_pca, "PC1", "PC2")

Error in eval(expr, envir, enclos) : object '.names' not found

方案1：用{{}}运算符（推荐，直接传变量名） #

这种方式适合直接传递变量名（不用加引号），代码更简洁，也是现在ggplot2的主流写法：

plot_pca_good1 <- function(data, a, b) {
  ggplot(data, aes(x = {{a}}, y = {{b}}, color = Species)) +
    geom_point() +
    # 把传入的变量名转成字符串用来做坐标轴标签
    labs(x = paste0("PC", rlang::as_name(rlang::ensym(a))),
         y = paste0("PC", rlang::as_name(rlang::ensym(b))))
}

# 调用时直接写变量名就行
plot_pca_good1(df_pca, PC1, PC2)

这里的{{}}是“注入运算符”，能把你传入的PC1、PC2直接映射到数据框的列上；rlang::as_name(ensym(a))是把变量符号转换成字符串，方便我们生成对应的坐标轴标题。

方案2：用.data代词（适合传字符串变量名） #

如果你的业务场景必须传递字符串形式的变量名，用.data代词是最稳妥的，完全不会有求值环境的问题：

plot_pca_good2 <- function(data, a, b) {
  ggplot(data, aes(x = .data[[a]], y = .data[[b]], color = Species)) +
    geom_point() +
    labs(x = paste0("PC", a), y = paste0("PC", b))
}

# 调用时传字符串即可
plot_pca_good2(df_pca, "PC1", "PC2")

.data[[a]]的作用是明确告诉ggplot：从传入的data数据框里，提取名字等于a的列，这种写法清晰又安全。

不管你的主成分是默认的PC1/PC2，还是自定义的名称，这两种方案都能完美适配，你可以根据自己的调用习惯选择～

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