是什么导致使用 cross() 函数在 filter() 中出现“找不到对象”错误？

Question

此函数从我的数据集中过滤/选择一个或多个变量并将其写入新的 CSV 文件。调用该函数时出现“找不到对象”错误。这是函数：

    extract_ids <-  function(filename, opp, ...) {
  
  #Read in data
  df <- read_csv(filename)
  
  #Remove rows 2,3
  df <- df[-c(1,2),]
    
    #Filter and select
    df_id <- filter(df, across(..., ~ !is.na(.x)) & gc == 1) %>%
      select(...) #not sure if my use of ... here is correct
    
    #String together variables for export file path
    path <- c("/Users/stephenpoole/Downloads/",opp,"_",...,".csv") #not sure if ... here is correct
    
    #Export the file
    write_csv(df_id, paste(path,collapse=''))
    
  
}

这里是函数调用。我试图让列“摆脱”和“cintid”。

extract_ids(filename = "farmers.csv",
            opp = "farmers",
            rid, cintid)

当我运行它时，我收到以下错误：

 Error: Problem with `filter()` input `..1`.
ℹ Input `..1` is `across(..., ~!is.na(.x)) & gc == 1`.
x object 'cintid' not found

cintid 列正确并出现在数据中。我也试过只用一列运行它，去掉，得到同样的“找不到对象”错误。

Answer 1

如果给across()传递多个值，需要在第一个参数中收集，否则会扩散到across()的其他参数中。试试

filter(df, across(c(...), ~ !is.na(.x)) 

否则，除第一个值之外的每个值都将作为参数传递给您在 across() 中指定的函数

Answer 2

很抱歉在我的previous suggestion 中省略了这一点。不幸的是，your original question 在我将其发布为答案之前已关闭：

如果您希望您的函数类似于 dplyr，这里有一些 您可以进行的修改。将您的函数头写为 function(filename, opp, ...) 逐字逐句。然后，替换!is.na(ID) across(..., ~ !is.na(.x)) 逐字逐句。现在，您可以致电 extract_ids() 并且，就像使用任何 dplyr 动词一样，您可以 指定要过滤掉NAs 的任何列选择： extract_ids(filename = "farmers.csv", opp = "farmers", rid, another_column_you_want_without_NAs).

找不到对象

正如MrFlick 在their comment 中正确建议的那样，您应该用c() 包裹...，因此您传入... 的所有内容都被解释为across() 的第一个参数：单个tidy-selection来自df 的列数：

extract_ids <-  function(filename, opp, ...) {
  # ...

  # Filter and select
  df_id <- df %>%
    # This format is preferred for dplyr workflows with pipes (%>%).
    filter(across(c(...), ~ !is.na(.x)) & gc == 1) %>%
    select(...)

  # ...
}

如果没有这种预防措施，R 会将rid 和cintid 解释为across() 的多个参数，而不是简单地由第一个参数命名的列（tidy-selection）。

文件路径中的变量名

要在文件路径中获取这些变量名称，请使用

extract_ids <-  function(filename, opp, ...) {
  # ...
  
  # Expand the '...' into a list of given variable names, which will get pasted.
  path <- c("/Users/stephenpoole/Downloads/", opp, "_", match.call(expand.dots = FALSE)$`...`, ".csv")

  # ...
}

尽管您可能需要考虑替换 match.call(expand.dots = FALSE)$`...`，它目前将变量名混合在一起：

"/Users/stephenpoole/Downloads/farmers_ridcintid.csv"

在完全相同的地方，您可以使用表达式paste(match.call(expand.dots = FALSE)$`...`, collapse = "-")，它将使用- 分隔这些变量名

"/Users/stephenpoole/Downloads/farmers_rid-cintid.csv"

或您选择的任何其他提供有效文件名的分隔符。