基于R语言循环遍历行列填充空DataFrame无效果的问题排查求助

我看了你这段代码，核心问题其实很容易忽略，先给你拆解几个关键排查点：

• 最致命的错误：用了比较运算符而非赋值运算符
  你代码里写的pen_NA[i,j]== 1是在做「相等性比较」，不是把1赋值给这个单元格！R里赋值要用<-或者=，比如改成pen_NA[i,j] <- 1才会真正把值填进去。这就是代码没报错但完全没效果的核心原因。

• 确认循环的触发条件是否成立
  先单独运行which(is.na(pen_NA[,j]))看看有没有返回行索引——如果pen_NA里根本没有NA值，那内层循环根本不会执行，自然看不到填充效果。可以先打印一下这个结果，比如print(which(is.na(pen_NA[,1])))，确认确实有需要填充的位置。

• 校验两个数据框的维度是否匹配
  要确保pen_NA和pen_2的行数、列数完全一致，不然pen_2[i,j]可能取到错误的位置，甚至如果超出范围应该会报错，但你这里没报错，大概率维度是对的，但还是建议用dim(pen_NA)和dim(pen_2)确认一下。

• 简化代码，避免嵌套循环（可选但推荐）
  R本身是向量化语言，嵌套循环不仅效率低，还容易出错。给你一个更简洁的向量化实现，逻辑和你写的一致，但更靠谱：

  # 用mapply处理每一列
  pen_NA <- mapply(function(col_na, col_2) {
    # 只填充NA的位置，非NA保持不变
    ifelse(is.na(col_na), 
           ifelse(col_2 > 3, 1, 
                  ifelse(col_2 < 3, 2, 3)),
           col_na)
  }, pen_NA, pen_2)
  # 如果需要转回数据框格式
  pen_NA <- as.data.frame(pen_NA)
  

  或者如果你习惯用dplyr的话，代码会更易读：

  library(dplyr)
  pen_NA <- pen_NA %>%
    mutate(across(everything(), ~ ifelse(is.na(.), 
                                         case_when(pen_2[[cur_column()]] > 3 ~ 1,
                                                   pen_2[[cur_column()]] < 3 ~ 2,
                                                   TRUE ~ 3),
                                         .)))
  

• 先做小范围测试验证逻辑
  可以先挑几个已知值的单元格手动测试，比如：

  # 选第一行第一列测试
  test_i <- 1
  test_j <- 1
  # 看看pen_2对应位置的值
  cat("pen_2对应值：", pen_2[test_i, test_j], "\n")
  # 手动赋值
  pen_NA[test_i, test_j] <- if(pen_2[test_i, test_j] > 3) 1 else if(pen_2[test_i, test_j] < 3) 2 else 3
  # 检查是否填充成功
  cat("填充后pen_NA的值：", pen_NA[test_i, test_j], "\n")
  

  这样能快速确认你的逻辑是否正确，再推广到整个数据框。

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