R：使用 dplyr 将列名传递给函数

Question

我正在尝试在 R 中设置一个函数，以准备特定格式的数据以输入相关图。在处理数据集时，我倾向于使用 dplyr，因为它清晰且易于使用，但在使用 dplyr 时尝试将数据集和指定的列名传递给此函数时遇到了问题。

这是设置，为了清楚起见，包括在此处（略微缩写形式）。我没有遇到任何错误，在发布之前我确认 corrData 设置正确：

library(corrplot)
library(tidyverse)
library(stringr)

table2a <- table2 %>%
    mutate(example_index = str_c(country,year, sep="."))

这是实际的功能：

prepCorr <- function(dtable, x2, index2) { 

  practice <- dtable %>%
    select(index2, x2) %>%
    mutate(count=1) %>%
    complete(index2, x2)

  practice$count[is.na(practice$count)] <- 0

  practice <- spread(practice, key = x2, value = count)

  M <- cor(practice)
  return(M)
}

prepCorr(table2a, type, example_index)

每当我运行这个函数时，我都会得到：

Error in overscope_eval_next(overscope, expr) : object 'example_index' not found

我也尝试利用 quosures 来解决此问题，但这样做时会收到不同的错误。当我运行以下修改后的代码时：

prepCorr <- function(dtable, x2, index2) { 
  x2 <- enquo(x2)
  index2 <- enquo(index2)

  practice <- dtable %>%
    select(!!index2, !!x2) %>%
    mutate(count=1) %>%
    complete(!!index2, !!x2)

  practice$count[is.na(practice$count)] <- 0

  practice <- spread(practice, key = !!x2, value = count)

  return(cor(practice))
}

prepCorr(table2a, type, example_index)

我明白了：

Error in !index2 : invalid argument type 

我在这里做错了什么，我该如何解决这个问题？我相信我正在使用 dplyr 0.7 进行澄清。

更新：用可重现的示例替换旧示例。

Answer 1

看看这个例子

library(dplyr)
myfun <- function(df, col1, col2) {
              col1 <- enquo(col1)     # need to quote
              col2 <- enquo(col2)
              df1 <- df %>%
                       select(!!col1, !!col2)   #!! unquotes
              return(df1)
         }

myfun(mtcars, cyl, gear)

你可以在这里link了解更多关于NSE与SE的信息