purrr 和 ggplot 函数未显示绘图（NSE 问题）

Question

我怀疑这是处理 NSE 的问题。但是为什么这两种方法不起作用，我怎样才能让它们起作用。

temp1 <- function(x){
  iris %>% 
    ggplot(aes(Sepal.Length, Sepal.Width)) +
    geom_point() +
    facet_wrap(as.formula(paste("~", x)))
}
walk('Species', temp1)


temp2 <- function(x){
  x <- as.name(x)
  iris %>% 
    ggplot(aes(Sepal.Length, Sepal.Width)) +
    geom_point() +
    facet_wrap(~ x)
}
walk('Species', temp2)

Answer 1

对我来说，这似乎不是 NSE 问题。如果您阅读?walk，它会说（重点由我添加）：

walk() 调用 .f 的副作用并返回原始输入

试试：

t <- walk('Species', temp1)
t
#[1] "Species"

我认为如果您在ggplot 中添加显式打印，您可以获得所需的内容。例如。将temp1 更改为：

temp1 <- function(x){
  print(iris %>% 
        ggplot(aes(Sepal.Length, Sepal.Width)) +
        geom_point() +
        facet_wrap(as.formula(paste("~", x))))
}