在R语言的matrix/array类型数据集中替换指定字符串

问题原因 #

你之前的代码错误地尝试修改矩阵内部的数值元素，但目标字符串是矩阵的行名（存储在dimnames属性中），而矩阵里的元素都是整数，自然匹配不到任何字符串，所以没有变化。

正确解决方案 #

我们需要直接操作矩阵的行名，以下是两种可行方法：

方法一：利用命名向量快速匹配替换 #

# 定义替换规则
replacements <- c(
  "DI_Water" = "DI_Soil",
  "High_Fe" = "High_Iron",
  "Low_Fe" = "Low_Iron"
)

# 复制原矩阵，避免修改原数据
seqtab_OK <- seqtab

# 匹配行名并替换：仅替换在规则中的行名，其余保持不变
rownames(seqtab_OK) <- ifelse(rownames(seqtab_OK) %in% names(replacements),
                              replacements[rownames(seqtab_OK)],
                              rownames(seqtab_OK))

方法二：直接操作dimnames属性 #

# 定义替换规则
replacements <- c(
  "DI_Water" = "DI_Soil",
  "High_Fe" = "High_Iron",
  "Low_Fe" = "Low_Iron"
)

# 复制原矩阵
seqtab_OK <- seqtab

# 获取当前行名
row_names <- dimnames(seqtab_OK)[[1]]

# 遍历替换规则，逐个更新行名
for (old_str in names(replacements)) {
  row_names[row_names == old_str] <- replacements[old_str]
}

# 将修改后的行名赋值回矩阵
dimnames(seqtab_OK)[[1]] <- row_names

验证结果 #

运行str(seqtab_OK)即可看到行名已成功替换，矩阵的类型、数值均保持不变，符合预期输出。

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