R语言：按条件用第三列值替换前两列空值报错求助

错误原因 #

你的循环代码中，df[i,] <- { ... }的写法存在逻辑问题：当if条件不满足时，大括号内的代码没有返回任何有效对象，相当于返回了长度为0的NULL，而你试图将这个长度为0的结果赋值给数据框的整行，这就触发了replacement has length zero错误。

修正方案1：修复循环逻辑 #

不需要对整行进行赋值操作，仅在满足条件时修改对应列的元素即可：

df = data.frame(c("",1,1), c(1,"",1), c(1,1,""), stringsAsFactors = FALSE)
n = nrow(df)
for(i in 1:n) {
  if(df[i,1] == "" & df[i,2] == "" & df[i,3] != ""){
    df[i,1] = df[i,3]
    df[i,2] = df[i,3]
  }
}

注：添加stringsAsFactors = FALSE是为了避免R将字符列自动转为因子类型，导致空字符串比较出错（R 4.0及以上版本默认已关闭该行为）。

修正方案2：使用向量化操作（推荐） #

R的核心优势是向量化运算，相比循环更高效简洁，直接定位符合条件的行并批量修改：

df = data.frame(c("",1,1), c(1,"",1), c(1,1,""), stringsAsFactors = FALSE)
# 筛选符合条件的行索引
idx <- df[,1] == "" & df[,2] == "" & df[,3] != ""
# 批量替换前两列
df[idx, 1:2] <- df[idx, 3]

运行上述代码后，数据框会被正确修改：

> df
  X1 X2 X3
1  1  1  1
2  1  1  1
3  1  1  

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