for循环嵌套if语句处理数据框负数异常问题排查

需求说明 #

需要将数据框中所有负值转为正值后乘以100（即负值乘以-100），要求使用for循环和if/ifelse语句。

数据框定义如下：

x = factor(c("a","b","c","d","e"))
y = seq(-4, 4, by = 2)
z = c(3,4,-5,6,-8)
df <- data.frame(x, y, z)

原始数据框内容：

x  y  z
1 a -4  3
2 b -2  4
3 c  0 -5
4 d  2  6
5 e  4 -8

错误代码及结果 #

当前使用的代码：

for(i in 2:length(df)){
  value <- df[[i]][i]
   if(value < 0){
    df[[i]][i] = value* -100
  }
}

运行后结果：

x   y   z
1 a  -4   3
2 b 200   4
3 c   0 500
4 d   2   6
5 e   4  -8

仅[2,2]和[3,3]位置的负值被正确处理，其余负值（[1,2]、[5,3]）未被修改。

错误原因分析 #

你的循环逻辑存在两个核心问题：

1. 索引匹配错误：循环变量i同时用来指定列（df[[i]]）和行（[i]），这意味着你只遍历了对角线位置的元素（比如第2列第2行、第3列第3行），完全漏掉了其他行的元素。
2. 遍历范围不足：length(df)是数据框的列数（3列），所以i只取2、3，对应y、z列，但每列有5行，你没有遍历每一列的所有行。

修正后的代码 #

要实现需求，需要嵌套循环：外层循环遍历需要处理的列（y、z列，即第2、3列），内层循环遍历每一列的所有行，逐个检查元素是否为负值并处理：

方法1：双层for循环+if语句 #

# 遍历需要处理的列（第2、3列）
for(col in 2:ncol(df)){
  # 遍历当前列的每一行
  for(row in 1:nrow(df)){
    value <- df[[col]][row]
    if(value < 0){
      df[[col]][row] <- value * -100
    }
  }
}

方法2：外层循环列，内层用ifelse（更简洁） #

for(col in 2:ncol(df)){
  df[[col]] <- ifelse(df[[col]] < 0, df[[col]] * -100, df[[col]])
}

运行修正后的代码后，数据框结果如下：

x   y   z
1 a 400   3
2 b 200   4
3 c   0 500
4 d   2   6
5 e   4 800

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