在R语言中批量修改多个矩阵类别的高效方法

场景1：矩阵在全局工作环境中 #

如果你的多个矩阵直接存放在全局环境里，按以下步骤操作：

1. 筛选出所有矩阵对象：

# 获取全局环境中所有矩阵的名称
matrix_names <- ls(envir = .GlobalEnv)[sapply(ls(envir = .GlobalEnv), function(x) is.matrix(get(x)))]

2. 循环修改每个矩阵的类别：

# 遍历每个矩阵，修改类别后重新赋值到全局环境
for (name in matrix_names) {
  mat <- get(name)
  class(mat) <- "numeric"
  assign(name, mat, envir = .GlobalEnv)
}

场景2：矩阵存储在列表中（推荐） #

如果已经把矩阵整理到列表里，操作更高效：
假设你的矩阵列表叫mat_list，执行以下代码：

mat_list <- lapply(mat_list, function(mat) {
  class(mat) <- "numeric"
  mat
})

注意事项 #

执行class(matrix) <- "numeric"后，原矩阵的维度信息会丢失，矩阵会转化为普通的数值向量。用你提供的示例矩阵测试：

# 构造示例矩阵
my_mat <- structure(c(285.789361223578, 282.564165145159, 273.633228540421, 256.789452806115, 260.808130130172, 241.718192100525, 266.765343174338, 267.881099879742, 250.710165724158, 284.365977942944, 281.670583188534, 268.735618144274, 264.118778035045, 262.856532484293, 254.31867428124, 286.250801086426, 284.585711210966, 268.984649181366, 286.17267370224, 284.429456442595, 267.478255555034, 275.10055847466, 274.141056537628, 259.477523118258, 246.454664766788, 252.470473349094, 232.699362188578, 284.998321458697, 283.73363442719, 269.555955678225, 0, 0, 0), dim = c(3L, 11L), dimnames = list(NULL, c("", "", "", "", "", "", "", "", "", "", "vec")))

# 修改类别
class(my_mat) <- "numeric"

# 检查结果
class(my_mat) # 返回 "numeric"
dim(my_mat)   # 返回 NULL，维度信息已丢失

内容的提问来源于stack exchange，提问作者user21573410