我有一个带有巨大矩阵的变量;这个变量有一些属性,包括较小的矩阵。
我想给这个变量分配一些小的东西(比如 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
但这是非常笨拙的方式:)
最佳答案
如果你想在不丢失所有属性等的情况下替换对象的值,那么你可以使用 [<-
(虽然这确实保留了它的尺寸):
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")
表示帧),而不是复制这些属性。然后它确保它不会覆盖或删除现有属性。
关于r - 分配给变量 _AND_ 保持属性,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/67807491/