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之外的所有属性。

Answer 2

感谢对我的 question @G 的类似回答。格洛腾迪克，您可以使用 collapse::fsubset 参见 here。

library(collapse)
#tmp_vec <- fsubset(vec, vec > 80)
tmp_vec <- sbt(vec, vec > 80)     # Shortcut for fsubset
attributes(tmp_vec) 
# $someattr
# [1] "Hello World"

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

2 个答案: