R语言for循环内if语句被忽略，条件为TRUE仍不生效

你的代码存在两个关键问题，导致不符合预期输出：

1. for循环迭代范围错误 #

for(i in length(test_string)) 只会让i取到一个固定值——test_string的长度（即3），循环仅执行一次。你需要让i遍历从1到向量长度的所有整数，正确写法为：

for(i in 1:length(test_string))

更安全的写法（避免向量为空时出现错误）：

for(i in seq_along(test_string))

2. 未针对单个元素处理 #

你的paste0直接调用整个test_string向量，每次都会生成对应所有元素的字符串，而非当前i指向的单个元素。需要改为test_string[i]来定位目标元素。

修正后的代码 #

test_string <- c("test", "test2", "test3")
answer <- character(length(test_string))  # 预先初始化结果向量

for(i in seq_along(test_string)) {
  if(i < length(test_string)) {
    answer[i] <- paste0("This is not the last '%", test_string[i], "%'")
  } else {
    answer[i] <- paste0("This IS the LAST '%", test_string[i], "%'")
  }
}

answer

输出结果 #

[1] "This is not the last '%test%'"  "This is not the last '%test2%'"
[3] "This IS the LAST '%test3%'"

另外，你在循环内手动执行i <- i+1是多余的，for循环会自动处理迭代变量的递增。

内容的提问来源于stack exchange，提问作者J.Sabree