R语言函数中使用mget返回NULL问题求助

嘿，我之前也踩过这个一模一样的坑！你遇到的问题核心其实是函数作用域的小细节——虽然你给mget()指定了.GlobalEnv，但前面用ls()搜索对象名称的时候，它默认是在函数自己的执行环境里找，而不是全局环境，自然搜不到任何对象，后续步骤就只能返回NULL了。

问题重现（你的函数可能是这样的） #

假设你写了类似下面的函数：

bind_objects <- function(pattern) {
  # 这里ls()默认在函数环境搜索，找不到全局环境的对象
  obj_names <- ls(pattern = pattern)
  obj_list <- mget(obj_names, envir = .GlobalEnv)
  dplyr::bind_rows(obj_list)
}

单独执行ls(pattern = "xxx")时，是在全局环境搜，能找到对象；但放到函数里，ls()就盯着函数内部的环境看，自然找不到目标对象，最后返回空列表，绑定后就是NULL。

修正方案 #

只需要给ls()也加上envir = .GlobalEnv参数，让它去全局环境里找对象名称就行，同时可以加个判断处理“没有匹配对象”的情况，避免报错：

bind_objects <- function(pattern) {
  # 关键：让ls()到全局环境搜索匹配模式的对象
  obj_names <- ls(pattern = pattern, envir = .GlobalEnv)
  
  # 处理没有找到对象的情况
  if (length(obj_names) == 0) {
    warning("全局环境里没有找到匹配该模式的对象哦")
    return(NULL)
  }
  
  # 获取对象列表并绑定为数据框
  obj_list <- mget(obj_names, envir = .GlobalEnv)
  combined_df <- dplyr::bind_rows(obj_list)
  
  # 显式返回结果（虽然R默认返回最后一行，但写出来更清晰）
  return(combined_df)
}

测试一下 #

先在全局环境创建几个测试对象：

player_2022 <- data.frame(id = 1:3, score = c(80, 90, 85))
player_2023 <- data.frame(id = 4:6, score = c(92, 88, 95))

然后调用函数：

result <- bind_objects("player_")
print(result)

这时候就能得到合并后的完整数据框啦！

另外再提个小细节：如果你的函数最后一步不是绑定数据框的操作，一定要用return()显式指定返回值，不然R会返回最后一行代码的结果，可能不是你想要的。

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