使用 dplyr 和 enquo 我的代码有效，但当我传递给 purrr::map 时无效

Question

我想为名为日期的向量中的每一列创建一个图。我的数据框只包含这些列，我想对其进行分组，计算出现次数，然后绘制它。

下面的代码有效，除了map，我想用它来遍历以前未知数量的列。我想我正确地使用了map，我之前已经成功了。我是使用 quosures 的新手，但鉴于我的函数调用有效，我不确定出了什么问题。我查看了其他几篇似乎以这种方式设置的帖子。

df <- data.frame(
  date1 = c("2018-01-01","2018-01-01","2018-01-01","2018-01-02","2018-01-02","2018-01-02"),
  date2 = c("2018-01-01","2018-01-01","2018-01-01","2018-01-02","2018-01-02","2018-01-02"),
  stringsAsFactors = FALSE
)
dates<-names(df)

library(tidyverse)

dates.count<-function(.x){
  group_by<-enquo(.x)
  df %>% group_by(!!group_by) %>% summarise(count=n()) %>% ungroup() %>% ggplot() + geom_point(aes(y=count,x=!!group_by))
}
dates.count(date1)
map(dates,~dates.count(.x))

我收到此错误：grouped_df_impl(data, unname(vars), drop) 中的错误：列 .x 未知

Answer 1

当您将变量名称传递给map() 时，您使用的是字符串，这表明您需要ensym() 而不是enquo()。

所以你的函数看起来像

dates.count <- function(.x){
    group_by = ensym(.x)
    df %>% 
        group_by(!!group_by) %>% 
        summarise(count=n()) %>% 
        ungroup() %>% 
        ggplot() + 
        geom_point(aes(y=count,x=!!group_by))
}

您可以使用变量名作为参数的字符串。

dates.count("date2")

请注意，tidyeval 并不总是能很好地与map() 的公式界面配合使用（我想我没记错）。您总是可以改为使用匿名函数，但在您想要将列名映射到具有单个参数的函数的情况下，您可以这样做

map(dates, dates.count)

使用map()中的公式界面我需要一个额外的!!：

map(dates, ~dates.count(!!.x))