r - 分配给变量 _AND_ 保持属性

Question

我有一个带有巨大矩阵的变量；这个变量有一些属性，包括较小的矩阵。
我想给这个变量分配一些小的东西(比如 NA )，这样我就可以节省内存；但我想保留这些属性。
是否有一些优雅的方式，或者我必须以某种笨拙的方式完成两项任务，第二项是 mostattributes ?
PS:说明性示例

a <- matrix(1:9,3,3)

attr(a, 'ahoj') <- 1:10

a <- NA # attributes lost, I want assignment which keeps them

我唯一能想到的就是用这 3 个替换分配:

empty_a <- NA
mostattributes(empty_a) <- attributes(a)
a <- empty_a

但这是非常笨拙的方式:)

Answer 1

如果你想在不丢失所有属性等的情况下替换对象的值，那么你可以使用 [<- (虽然这确实保留了它的尺寸):

a <- matrix(1:9,3,3)
attr(a, 'ahoj') <- 1:10

a[] <- NA
a
#      [,1] [,2] [,3]
# [1,]   NA   NA   NA
# [2,]   NA   NA   NA
# [3,]   NA   NA   NA
# attr(,"ahoj")
#  [1]  1  2  3  4  5  6  7  8  9 10

替代方案，您的 mostattributes - 类似操作，具有“一些”智慧:

copyattributes <- function(x, oldvalue = NULL, remattr = character(0)) {
  oldattr <- attributes(oldvalue)
  clsfun <- class(oldvalue)[1]
  remattr <- unique(c(
    remattr,
    if (exists(clsfun, mode = "function")) {
      names(attributes(match.fun(clsfun)()))
    } else character(0)))
  copyattr <- setdiff(setdiff(names(oldattr), remattr), names(attributes(x)))
  attributes(x) <- c(attributes(x), oldattr[ copyattr ])
  x
}

a <- matrix(1:9,3,3)
attr(a, 'ahoj') <- 1:10
b <- NA
attr(b, "quux") <- "A"
a <- copyattributes(b, a)
a
# [1] NA
# attr(,"quux")
# [1] "A"
# attr(,"ahoj")
#  [1]  1  2  3  4  5  6  7  8  9 10

remattr尝试使用 class旧对象( a )以确定哪些属性始终存在(例如， "dim" 表示矩阵， c("names", "row.names") 表示帧)，而不是复制这些属性。然后它确保它不会覆盖或删除现有属性。