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

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

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中的字符串和符号/名称不同。

Answer 2

在is.na调用中添加!!不引号运算符：

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