如何修复R语言for循环中‘condition have a length >1’错误？

错误原因 #

你用for (i in tab2)遍历data.frame时，每次循环的i是整个列向量（data.frame的遍历单位是列），而非单个数值。这导致i>10生成一个长度大于1的逻辑向量，而if语句要求条件必须是长度为1的逻辑值，因此触发报错。

解决方案 #

方法1：修正循环遍历对象 #

直接取出data.frame的单列向量进行遍历，确保每次循环的i是单个数值：

tab2 <- as.data.frame(tab1$nombre_total*tab1$nombre_total)
for (i in tab2[[1]]) {
  print(i)
  if (i > 10) {
    print("ok")
  }
}

方法2：用向量化操作替代循环（R更推荐的方式） #

R是向量优先的语言，向量化操作比循环效率更高，写法也更简洁：

tab2 <- as.data.frame(tab1$nombre_total*tab1$nombre_total)
# 打印所有数值
print(tab2[[1]])
# 对每个大于10的数值输出"ok"
sapply(tab2[[1]], function(x) {
  if (x > 10) print("ok")
})

或者更简洁的写法：

tab2 <- as.data.frame(tab1$nombre_total*tab1$nombre_total)
print(tab2[[1]])
# 直接输出对应数量的"ok"
print(rep("ok", sum(tab2[[1]] > 10)))

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