希望有人可以发布一个类似于“。”的自定义函数示例。在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等......
我试着查看“。”的返回类型。来自普利尔,但不明白。
答案 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"