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說（重點由我加的）：

步行（）調用.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)))) 
}