subset()删除向量上的属性; 如何维持/坚持他们？

Question

假设我有一个向量,我设置了一些属性:

vec <- sample(50:100,1000, replace=TRUE)
attr(vec, "someattr") <- "Hello World"

当我对向量进行子集化时,属性将被删除.例如:

tmp.vec <- vec[which(vec > 80)]
attributes(tmp.vec) # Now NULL

有没有办法,子集和持久化属性,而不必将它们保存到另一个临时对象？

额外奖励:哪里可以找到这种行为的文件？

Answer 1

我会为[或编写一个方法subset()(取决于你如何进行子集化)并安排它来保留属性.这将需要一个"class"属性也添加到您的向量,以便发生调度.

vec <- 1:10
attr(vec, "someattr") <- "Hello World"
class(vec) <- "foo"

此时,子集删除属性:

> vec[1:5]
[1] 1 2 3 4 5

如果我们添加一个方法,[.foo我们可以保留属性:

`[.foo` <- function(x, i, ...) {
    attrs <- attributes(x)
    out <- unclass(x)
    out <- out[i]
    attributes(out) <- attrs
    out
}

现在保留了所需的行为

> vec[1:5]
[1] 1 2 3 4 5
attr(,"someattr")
[1] "Hello World"
attr(,"class")
[1] "foo"

以及奖金问题的答案:

从?"["详细信息部分:

子集(除了空索引)将删除除名称,暗淡和dimnames之外的所有属性.