Question

我想从char矢量创建一个连接表达式。即给出类似c的矢量（“a”，“b”，“c”）。最终我想把它传递给dplyr :: filter

这是我的尝试：

makeNonNAConjunctionExpr = function(predictors) {
    # Given a char vector c("a", "b", "c") this function returns an expression:
    # ~!is.na(a) & !is.na(b) & !is.na(c)
    f = function(init, i) {
        i_name = as.name(i); 
        if(is.null(init) || length(init) == 0) {
            return(expr(!is.na(!!i_name))) 
        }
        init = if(is_call(init)) {
                    init
                } else {
                    expr(!!as.name(init))
                }
        e = expr(!is.na(!!init) & !is.na(!!i_name)); 
        return(e)
    }
    ex = Reduce(f, predictors[1], predictors[-1])
    return(quo(ex)) # Return a quosure for dplyr.
}

> x = data.frame(a=c(1,NA, 2), b = c(10, 12, NA), c = c(NA, 90, 100))

> e = makeNonNAConjunctionExpr(c("a", "b"))
> e
<quosure: local>
~!is.na(b) & !is.na(a)
> a %>% dplyr::filter(!!e)
  a  b  c
1 1 10 NA

在R中必须有一种更简单的方法来从字符串创建这样的表达式，但我找不到任何。有什么建议吗？

从列列表中创建表达式的组合

0 个答案: