矩阵行内值替换问题：将每行最大值替换为最小值（R语言入门求助）

Hey there! 刚入门R语言遇到这种矩阵处理问题很正常，我来帮你搞定~

要实现对矩阵每一行的最大值替换为该行最小值，我们可以用R里的工具轻松完成，下面给你两种实用方法，新手也能快速上手：

方法一：用apply()逐行处理（直观易懂） #

先从一个示例矩阵开始，方便你对照理解：

# 创建测试矩阵
mat <- matrix(c(3, 1, 5, 2, 4, 6), nrow = 2, byrow = TRUE)
print(mat)
#      [,1] [,2] [,3]
# [1,]    3    1    5
# [2,]    2    4    6

接下来用apply()函数逐行操作，核心逻辑是找到每行最大值的位置，替换成该行的最小值：

# 逐行处理并转置回原矩阵形状
processed_mat <- t(apply(mat, 1, function(row) {
  # 找到当前行最大值的位置，替换为该行最小值
  row[row == max(row)] <- min(row)
  return(row)
}))

print(processed_mat)
#      [,1] [,2] [,3]
# [1,]    3    1    1
# [2,]    2    4    2

代码小解释：

• apply(mat, 1, ...)里的1代表按行处理，换成2就是按列处理；
• 匿名函数function(row)会接收每一行数据，完成替换逻辑后返回；
• 最后用t()转置，因为apply()默认返回的结果是按列排列的，转置后才和原矩阵结构一致。

方法二：向量化处理（适合大矩阵，效率更高） #

如果你的矩阵规模很大，这种向量化方法比apply()（本质是隐式循环）性能更好：

# 先计算每行的最小值和最大值
row_mins <- apply(mat, 1, min)
row_maxs <- apply(mat, 1, max)

# 生成布尔矩阵，标记出所有最大值的位置
max_positions <- mat == row_maxs[rownames(mat)]

# 替换最大值为对应行的最小值
processed_mat2 <- mat
processed_mat2[max_positions] <- row_mins[row(max_positions)]

print(processed_mat2)
#      [,1] [,2] [,3]
# [1,]    3    1    1
# [2,]    2    4    2

你只需要把自己的矩阵替换掉示例里的mat，直接运行代码就能得到想要的结果啦~

内容的提问来源于stack exchange，提问作者Christian Rondón Reymer