R语言for循环仅打印最后一个元素 如何获取全部迭代计算结果

• 每次循环直接对angle赋值，未预先创建结果容器存储每一次计算值，新生成的结果会直接覆盖旧值
• 未覆盖0 <= i <= 360的边界场景，这类输入不会触发任何现有分支，对应结果会被遗漏
• 循环结束后仅保留最后一次迭代的赋值结果，因此最终只输出705 - 360 = 345

循环版本（适配原有循环逻辑） #

预初始化与输入向量等长的结果容器，按索引存储每次计算值，同时补全边界逻辑：

a <- c(-45, -345, 610, 23, 705)
# 预初始化空结果向量
angle <- numeric(length(a))
# 遍历索引，方便按位置写入结果
for(idx in seq_along(a)){
  i <- a[idx]
  if(i < 0){
    angle[idx] <- i + 360
  } else if(i > 360){
    angle[idx] <- i - 360
  } else {
    # 0-360区间直接保留原值
    angle[idx] <- i
  }
}
print(angle)

运行输出：315 15 250 23 345

向量化版本（R语言惯用高效写法） #

无需手动编写循环，直接对整个向量做批量运算，运行效率远高于循环：

嵌套ifelse实现 #

a <- c(-45, -345, 610, 23, 705)
angle <- ifelse(a < 0, a + 360, ifelse(a > 360, a - 360, a))
print(angle)

模运算实现（通用角度转换最优解） #

角度换算本质是求输入值对360的模，R中%%运算符可自动适配正负值、超范围值的所有场景，无需额外判断：

a <- c(-45, -345, 610, 23, 705)
angle <- a %% 360
print(angle)

该写法可以自动处理任意大小、正负的角度输入，无需额外修改判断条件。

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