在 R 的函数中只能将字符串转换为符号

Question

我有一个功能，旨在对从各种来源获得的数据进行操作，其中包含许多手动输入字段。由于我不知道这些文件中使用的布局或命名约定会发生什么，我希望它成为 'scan' 具有字符串 'fix'、'name' 的列的数据框或 'agent'，并将该列突变为名称为 'Firm' 的新列，然后继续对该列的条目进行字符串清理，最后删除原始列。我已经让它与我已经拥有的一些 CSV 一起工作，但现在运行出现此错误：ONLY STRINGS CAN BE CONVERTED TO SYMBOLS。我已经检查过这个线程 ERROR: Only strings can be converted to symbols 但无济于事。

这是目前的功能：

clean_firm_names2 <- function(df){
  df <- df %>%
    mutate(Firm := !!rlang::sym(grep(pattern = '(AGENT)|(NAME)|(FIX)',x = colnames(.), ignore.case = T, value = T)) %>% 
             str_replace_all(pattern = "(\W)+"," ") %>% 
             ...str manipulations...
             str_squish()) %>%
    dplyr::select(-(!!rlang::sym(grep(pattern = '(AGENT)|(NAME)|(FIX)',x = colnames(.), ignore.case = T, value = T))))
  return(df)
}

我尝试在 grep() 函数周围使用 as.character() 但这并没有解决问题。我查看了函数要操作的 CSV，所有列名都是字符串。与我的其他 CSV 一样，我使用 vroom() 在 CSV 中读取，并且工作正常，所有列名都出现了。我可以在 df 上执行其他 dplyr 功能，向我暗示 df 在其他方面表现正常。我有运行不知道为什么该功能仅在我的某些 CSV 上阻塞，但在其他 CSV 上却按预期工作。有没有人运行遇到过类似的问题或得到任何可能导致此错误的线索？这是我第一次使用 SO-- 如果这个问题不是很清楚，我很抱歉。我会尝试根据需要进行编辑。

谢谢！

Answer 1

请注意 grep() returns 匹配项（整数）的索引，而不是匹配项本身（字符串）的索引。整数索引可以直接传递给 dplyr::rename，所以也许以下可能会更好？

i <- grep(pattern = '(AGENT)|(NAME)|(FIX)', x = colnames(df), ignore.case = T, value = T)
df <- df %>%
  rename(Firm = i) %>%
  mutate(Firm = ...str manipulations... )

（这里有一个隐含的假设，即您的 grep() returns 是一个单个索引。可能需要额外的代码来处理多个匹配项。）

在 R 的函数中只能将字符串转换为符号

Only strings can be converted to symbols within a function in R

r

symbols

quoting

rlang

quasiquotes