R语言实现多行列中大于0.5的数值替换（原值减0.5）

你写的代码存在3个核心错误：

• 循环变量i是行索引的数值（1、2、3…），不是表格内存储的实际数值，判断i>0.5逻辑完全不成立
• 只遍历了行维度，没有遍历列维度，无法覆盖所有单元格的数值
• 每次循环直接覆盖New_Table变量，不会保存所有位置的处理结果

R天生支持向量化运算，不需要写循环即可批量处理所有数据，一行代码就能完成需求，运行效率远高于循环：

# 假设你读取的原始数据存储在变量Table中
New_Table <- ifelse(Table > 0.5, Table - 0.5, Table)

不管你读取的原始数据是矩阵还是数据框格式，上面的代码都可以直接使用。

如果你需要练习for循环的实现逻辑，可以参考下方的正确版本：

# 先初始化结果表，和原表结构、初始值完全一致
New_Table <- Table
# 遍历所有行
for (i in 1:nrow(Table)) {
  # 遍历所有列
  for (j in 1:ncol(Table)) {
    # 取当前单元格的实际数值做判断
    current_val <- New_Table[i,j]
    if (current_val > 0.5) {
      New_Table[i,j] <- current_val - 0.5
    }
  }
}

用你提供的测试数据运行代码，结果和你给出的预期输出完全匹配：

# 构造测试用的示例数据
Table <- matrix(c(
0.91304348, 0.08333333, 0.25000000,
1.00000000, 1.00000000, 0.85714286,
0.08333333, 0.43478261, 0.12500000,
1.00000000, 1.00000000, 1.00000000,
0.16666667, 1.00000000, 1.00000000
), nrow = 5, byrow = TRUE)

# 执行处理
New_Table <- ifelse(Table > 0.5, Table - 0.5, Table)

# 打印结果
print(New_Table, digits = 8)

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