创建类似的功能“。”来自Plyr

时间:2012-05-09 15:35:35

标签: r

希望有人可以发布一个类似于“。”的自定义函数示例。在plyr。

我拥有的是数据框。我一直在运行查询,如:

sqldf("select * from event.df where Date in (select Date from condition.df where C_1 = 1 and (C_2 = 1 OR C_3 = 3)")

我想要的是一个基本上如下的功能:

.(C_1, C_2 + C_3)

具体来说,是一个公式向量,它定义了我用来选择数据的属性。我可以将“+”视为OR“*”作为AND等......

我试着查看“。”的返回类型。来自普利尔,但不明白。

2 个答案:

答案 0 :(得分:6)

类似于plyr:::.的功能是plyr:::.

plyr:::.
function (..., .env = parent.frame()) 
{
    structure(as.list(match.call()[-1]), env = .env, class = "quoted")
}
<environment: namespace:plyr>

这将返回一个列表并为其指定一个“引用”的类。它所做的只是将.()的参数与封闭环境中的列名匹配。在不同的背景下尝试:

with(iris, .(Sepal.Length, Species))
List of 2
 $ Sepal.Length: symbol Sepal.Length
 $ Species     : symbol Species
 - attr(*, "env")=<environment: 0x2b33598> 
 - attr(*, "class")= chr "quoted"

接下来,您对此对象的处理取决于您的目的。有几种方法可以使用这个类:

methods(class="quoted")
[1] as.quoted.quoted* c.quoted*         names.quoted*     print.quoted*     [.quoted*        

   Non-visible functions are asterisked

所以,如果您正在寻找像.()这样的函数,也许您只需使用.()

答案 1 :(得分:0)

parse <- function (formula, blank.char = ".") 
{
    formula <- paste(names(formula), collapse = "")
    vars <- function(x) {
        if (is.na(x)) 
            return(NULL)
        remove.blank(strsplit(gsub("\\s+", "", x), "[*+]")[[1]])
    }
    remove.blank <- function(x) {
        x <- x[x != blank.char]
        if (length(x) == 0) 
            NULL
        else x
    }
    parts <- strsplit(formula, "\\|")[[1]]
    list(m = lapply(strsplit(parts[1], "~")[[1]], vars), l = lapply(strsplit(parts[2],  "~")[[1]], vars))
}

parse(.(a + b ~ c + d | e))

    $m
$m[[1]]
[1] "a" "b"

$m[[2]]
[1] "c" "d"


$l
$l[[1]]
[1] "e"