如何在R语言函数定义内的if语句中为变量赋值？

你猜的一点没错——R中函数内部创建的变量默认只存在于函数自身的局部执行环境中，和全局环境里的变量是完全独立的两个对象。函数执行完毕后，它的局部环境就会被销毁，所以你在函数里给prize赋值，根本不会影响到全局环境里预先定义的那个prize。

为什么外部的if语句能生效？ #

当你在函数外执行if (all(symbols == symbols[1])) { prize <- 3 }时，这段代码是直接在全局环境里运行的，所以修改的就是全局环境中的prize变量，自然能得到正确结果。

怎么解决这个问题？ #

这里有两种常见的处理方式，推荐第一种（更符合R的函数式编程规范）：

1. 让函数返回结果，再赋值给全局变量（推荐）

把symbols作为参数传入函数（避免依赖全局变量，让函数更独立可复用），然后让函数返回计算后的prize值，最后在全局环境中把返回值赋值给prize：

symbols <- c("DD", "DD", "DD")
prize <- 100

score <- function(sym) {
  if (all(sym == sym[1])) {
    # 当符号全相同时返回3
    3
  } else {
    # 其他情况可以返回原prize或者你需要的默认值，这里用原prize举例
    prize
  }
}

# 调用函数并更新全局的prize
prize <- score(symbols)
prize
# [1] 3

2. 直接修改全局环境的变量（不推荐）

如果你一定要在函数内部修改全局环境的变量，可以用<<-操作符，它会向上查找父环境（直到找到全局环境）并修改对应的变量：

symbols <- c("DD", "DD", "DD")
prize <- 100

score <- function() {
  if (all(symbols == symbols[1])) { 
    # 用<<-修改全局环境的prize
    prize <<- 3 
  }
}

score()
prize
# [1] 3

⚠️ 注意：这种方式不推荐，因为它会产生“副作用”——函数修改了外部环境的变量，会让代码逻辑变得不清晰，容易引发难以排查的bug。

其实这正是《Hands On Programming with R》第7章要教你的环境概念：每个函数都有自己独立的执行环境，和全局环境隔离开，这样能避免变量名冲突，让代码更安全可靠。

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