R：管道内动态变量的非标准评估。将 (") 替换为 (`)

Question

我试图在 dplyr pipe 和 lapply 函数中使用动态字符串。其中字符串用于命名稍后在 filter 中使用的列。当尝试过滤器删除 filter 中结果为 NA（使用 !is.na()）的任何行时，会出现此问题。

对于这种情况，通常会使用非标准评估，例如filter_，但是由于调用的字符串在is.na()内，因此filter_无效。我要求使用主符号 (`) 而非引号 (") 来调用字符串。

下面是一个减去 lapply 函数的最小示例。

df <- data.frame("one"=c(1,2,3,4),"two"=c(4,NA,2,1))
storeddate <- "Jan17-01-92"
finaldf <- df %>%
 mutate(!!storeddate := one+two) %>%
 filter(!is.na(storeddate)) #the storeddate string call requires formatting as `Jan17-01-92` as opposed to "Jan17-01-92".

我知道我可以简单地重新格式化初始字符串，但是我更好奇的是找到一种方法来调用以不同格式包装的字符串以在其他场景中使用。

Answer 1

在 is.na 调用中添加 !! 取消引用运算符：

finaldf <- df %>%
 mutate(!!storeddate := one+two) %>%
 filter(!is.na(!!storeddate))

Answer 2

对于过滤器，您需要将字符串转换为符号。例如

df %>%
  mutate(!!storeddate := one+two) %>% 
  filter(!is.na(!!as.name(storeddate)))

#   one two Jan17-01-92
# 1   1   4           5
# 2   3   2           5
# 3   4   1           5

所以这与替换引号无关。它是 R 中字符串和 symbols/names 之间的区别。

R：管道内动态变量的非标准评估。将 (") 替换为 (`)

R: Non-standard evaluation of dynamic variables within pipes. Replacing (") with (`)

r

non-standard-evaluation