get() 可以工作，但不能直接与ll 一起工作。试试y = get(!!ll) 或y = {{ll}}。
ggplot（或者可能是aes，很难说）等待运行此代码，直到它的绘图对象被引用，正如所提供代码中的错误所示。当每个 ggplot 计算 get(ll) 时，for 循环已经完成。因此，ll 对所有四个 ggplots 计算为循环变量 "d" 的最后一个值。 ll 在错误中为“d”使得它看起来像是最后一个失败的 ggplot 对象，但它实际上正在评估导致此错误的第一个对象。
在循环体中，我们想要一种方法来评估 ll 变量并将生成的字符串（“a”、“b”、“c”或“d”）粘贴到这段代码中，即其余的直到稍后才会运行。将 y = get(ll) 更改为 y = get(!!ll) 是一种方法：!! 对未计算的表达式（在 Tidyverse 文档中称为“代码蓝图”）执行“surgery”，以便传递给 ggplot 的表达式包含文字像"a" 这样的字符串，而不是变量引用ll。
testfun <- function(df = df2, vars = letters[1:4]){
plotlist <- list()
for (ll in vars){
data <- df %>% select(x, ll)
p <- ggplot(data,
aes(x = x, y = get(!!ll))) +
geom_point() +
ylab(ll)
plotlist[[ll]] <- p
}
return(plotlist)
}
继续阅读以获取解释和替代解决方案。
循环问题：后期绑定
在给定的函数或 R 的全局范围内，任何给定名称都只有一个变量。 for (x in xs) 循环反复将该变量重新绑定到新值。这意味着在 for 循环完成后，该变量仍然存在并保留分配给它的最后一个值。这是一种可能会绊倒你的方法：
vars <- c("a", "b", "c", "d")
results <- list()
for (ll in vars){
message("in for loop, ll: ", ll)
func <- function () { ll }
results[[ll]] <- c(ll, func)
}
message("after for loop, ll: ", ll)
# after for loop, now ll is "d"
for (vec in results) {
message(vec[[1]], " ", vec[[2]]())
}
这个输出
in for loop, ll: a
in for loop, ll: b
in for loop, ll: c
in for loop, ll: d
after for loop, ll: d
a d
b d
c d
d d
这里构造的四个函数中的每一个都使用相同的外部作用域变量ll，在 for 循环之后实际调用函数时，它是“d”。后期绑定部分是在查找其值时使用函数调用时（后期）的变量值，而不是定义函数时（早期）时变量的值。
NSE 问题
虽然 OP 并没有在循环中创建函数，但它们正在调用 ggplot。 ggplot 做了类似于创建函数的事情：它将一些代码作为参数，直到稍后才计算。 ggplot（或者可能是 aes）“captures”来自某些参数的代码，而不是运行它们。在 OP 的情况下，get(ll) 直到稍后才会被评估。
当此代码被评估时，它位于一个带有“data mask”的新上下文中，允许直接引用数据框的名称。这部分很棒，这就是我们想要的——这就是让get("a") 工作的原因。但是评估发生在后面的事实对 OP 来说是一个问题：get(ll) 中的ll 评估为“d”，例如get("d")，因为代码是在 for 循环迭代之后评估的，其中 ll 有期望值。
忽略数据掩码部分，这里有一个名为 run.later 的函数，与 ggplot 一样，它不运行它的任何一个参数。当我们稍后运行该代码时，我们再次发现 ll 对于所有四个保存的表达式的计算结果为“d”。
vars <- c("a", "b", "c", "d")
unevaluated.exprs <- list();
run.later <- function(name, something) {
expr <- substitute(something)
unevaluated.exprs[[name]] <<- c(name, expr)
}
for (ll in vars){
run.later(ll, ll)
}
for (vec in unevaluated.exprs) {
message(c(vec[[1]], " ", eval(vec[[2]])))
}
打印
a d
b d
c d
d d
这就是问题的ll 部分。来自 Python 等语言的“不要在循环中定义函数（如果它们引用循环变量）”的经验法则可以概括为 R 为“不要定义函数或以其他方式编写不会立即在一个循环（如果该代码引用循环变量）。”
解决范围问题而不是元编程
顶部提供的!! 解决方案使用元编程来评估循环中的ll 变量，而不是稍后再评估它。
理论上，可以改为在循环的每次迭代中动态创建变量，然后使用元编程仔细引用动态创建的变量名称。但更优雅的方法是使用相同的变量名但在不同的范围内。这就是 Nithin 对函数的回答：每个函数都会创建一个新的范围和 tada，您可以在每个函数中使用相同的变量名。这是另一个版本，更接近 OP 的代码：
testfun <- function(df = df2, vars = letters[1:4]){
plotlist <- list()
plot.fn <- function(var) {
data <- df %>% select(x, var)
p <- ggplot(data,
aes(x = x, y = get(var))) +
geom_point() +
ylab(var)
plotlist[[ll]] <<- p
}
for (ll in vars){
plot.fn(ll)
}
return(plotlist)
}
pl <- testfun(df2)
pl
此代码中有 4 个不同的变量，称为 var，循环的每次迭代都引用一个不同的变量。
更漂亮的元编程
我认为（尚未测试）get(!!ll) 在这里等同于 {{ll}} — get() 将字符串作为变量查找，但这也是粘贴 ll 求值的字符串符号的原因进入表达式确实。双花括号似乎更常见，大致可以理解为“将这个表达式的结果评估为另一个上下文中的变量”或“将这个字符串模板化到表达式中”。