R语言：如何让函数访问其他函数或全局环境中的变量？

原代码执行报错是因为f2()定义在全局环境，它的作用域默认只包含全局环境和已加载的包，无法访问f1()内部的局部变量x。以下是几种可行的解决方法：

• 方法1：将x作为参数传递给f2
  这是最规范的函数交互方式，明确传递依赖：

  f1 <- function(){
    x <- 5
    f2(x)  
  }
  
  f2 <- function(x){
    x
  }
  
  f1()
  #> [1] 5
  

• 方法2：在f1内部定义f2
  让f2成为f1的嵌套函数，这样f2会继承f1的执行环境，自然能访问x：

  f1 <- function(){
    x <- 5
    f2 <- function(){
      x
    }
    f2()  
  }
  
  f1()
  #> [1] 5
  

• 方法3：修改f2的运行环境（不推荐）
  强制将f2的环境设置为f1的当前执行环境，这种方式会改变f2的全局绑定，可能引发意外问题：

  f1 <- function(){
    x <- 5
    environment(f2) <- environment()
    f2()  
  }
  
  f2 <- function(){
    x
  }
  
  f1()
  #> [1] 5
  

全局环境的变量默认可以被函数直接访问，只要函数内部没有同名局部变量覆盖它：

• 直接访问全局变量

  # 在全局环境定义变量
  global_var <- 10
  
  my_func <- function(){
    global_var
  }
  
  my_func()
  #> [1] 10
  

• 当函数内部有同名变量时，强制访问全局版本
  如果函数内部定义了同名局部变量，可通过指定全局环境来访问全局变量：

  global_var <- 10
  
  my_func <- function(){
    global_var <- 20  # 局部变量覆盖全局变量
    # 方式1：使用.GlobalEnv访问
    .GlobalEnv$global_var
    # 方式2：使用get()指定环境
    # get("global_var", envir = globalenv())
  }
  
  my_func()
  #> [1] 10
  

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