0

希望有人可以发布一个类似于“。”的自定义函数的示例。在 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)

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

我尝试查看“。”的返回类型。来自 plyr 但不明白。

4

2 回答 2

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

因此,如果您正在寻找类似的功能.(),也许您可​​以简单地使用.()

于 2012-05-09T17:05:28.400 回答
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"
于 2012-05-09T19:56:59.757 回答