如何从IF函数中保存变量sick[i]并在R代码中复用？

首先，你的原代码里print_func只是在满足条件时打印内容和sick[i]，但没有把这个值留存下来供后续使用。要实现复用，我们可以通过让函数返回目标值并收集结果的方式来处理，这也是R中最规范的做法。

优化后的代码方案 #

我们可以先把函数定义移到循环外（避免重复定义浪费资源），然后让函数返回符合条件的sick[i]，最后在循环里收集这些值：

# 1. 预先定义函数，把sick_val作为参数传入（避免依赖外部循环变量i，更安全）
print_func <- function(a_val, b_val, sick_val) {
  if (a_val > b_val) {
    print('wspolczynnik jest wiekszy')
    print(sick_val)
    return(sick_val)  # 返回需要保存的sick值
  } else {
    return(NULL)  # 不满足条件时返回空值
  }
}

# 2. 初始化一个空向量，用来存储需要复用的sick值
saved_sick <- c()

# 3. 执行循环（假设licznik是a/b/sick的长度，也可以直接用length(a)替代）
licznik <- length(a)
for(i in 1:licznik) {
  # 调用函数并接收返回值
  current_sick <- print_func(a[i], b[i], sick[i])
  # 如果返回值不为空，就添加到saved_sick中
  if (!is.null(current_sick)) {
    saved_sick <- c(saved_sick, current_sick)
  }
}

为什么这样做？ #

• 把函数移到循环外：避免每次循环都重新定义函数，提升代码效率。
• 传入sick_val作为参数：不再依赖外部的循环变量i，减少闭包带来的潜在问题，代码更健壮。
• 收集返回值：saved_sick向量会存储所有满足a[i] > b[i]的sick[i]，之后你可以直接用这个向量做后续计算、分析等复用操作。

不推荐的方案（但可以了解） #

如果你一定要在函数内部直接修改外部变量，可以用<<-操作符，但这种方式会污染全局环境，容易引发意外问题，只适合简单场景：

saved_sick <- c()
licznik <- length(a)
for(i in 1:licznik) {
  print_func <- function(a_val, b_val) {
    if (a_val > b_val) {
      print('wspolczynnik jest wiekszy')
      print(sick[i])
      # 直接修改全局环境中的saved_sick向量
      saved_sick <<- c(saved_sick, sick[i])
    }
  }
  print_func(a[i], b[i])
}

总之，第一种方案更符合R的编程规范，也更利于代码维护和后续扩展。

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