R语言funcy_fish函数运行报错及全局变量无法更新问题求助

• 循环逻辑错误：for (fish in 1:x)中x是存储鱼体重的向量不是向量长度，R会默认取向量第一个元素生成序列，触发第一个警告。正确写法应该是for (fish in seq_along(x))遍历所有元素。
• 条件判断逻辑错误：if (x >= 20)中x是整个向量，判断条件返回的是长度和x一致的布尔值，R默认取第一个元素判断，触发第二个警告。正确写法是取当前遍历的鱼体重判断：if (x[fish] >=20)。
• 计数与返回逻辑错误：符合条件时总重量z应该加x[fish]而不是1；return放在循环内部会导致第一次遇到符合条件的鱼就直接终止函数返回，不会遍历所有鱼；R不支持return(y,z)这种多值返回写法，需要用向量、列表等结构封装返回值。

首先注意你当前优化后的代码存在逻辑疏漏：总重量计算用了sum(x)，会累加所有捕捞鱼的重量，不符合“仅保留体重超过20磅的鱼”的需求，需改为sum(x[x>20])。
变量未更新是R的作用域机制导致的：函数内部修改的y、z是传入参数的局部副本，默认不会修改全局环境中的原变量，有两种常用解决方案：

方案1（推荐，无副作用） #

手动接收函数返回值赋值给全局变量，符合R的函数式编程规范：

# 先修正函数逻辑
funcy_fish <- function(x, y, z) {
  y <- y + sum(x > 20)
  z <- z + sum(x[x > 20])
  return(c(y, z))
}
# 调用后手动赋值
res <- funcy_fish(BF_caught, BF_kept_ct, BF_kept_lbs)
BF_kept_ct <- res[1]
BF_kept_lbs <- res[2]

方案2（需谨慎使用，直接修改全局变量） #

使用超赋值运算符<<-或assign函数直接修改全局环境变量，适合需要隐式更新变量的场景：

funcy_fish <- function(x) {
  add_ct <- sum(x > 20)
  add_lbs <- sum(x[x > 20])
  # <<- 会向上层环境查找变量并修改，最终作用到全局变量
  BF_kept_ct <<- BF_kept_ct + add_ct
  BF_kept_lbs <<- BF_kept_lbs + add_lbs
  return(c(BF_kept_ct, BF_kept_lbs))
}
# 直接调用即可更新全局变量
funcy_fish(BF_caught)

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