能否在R语言函数中返回两个Data Frame？

你提供的代码无法正常运行，存在两个关键问题：

• R的return()函数仅能接收单个返回值，不能同时传入两个数据框
• R不支持a,b=test()这种直接多变量赋值的语法

下面是两种可行的实现方式：

方法一：返回列表（推荐） #

这是R中返回多个对象的标准做法，将多个数据框打包进列表，后续通过列表索引或名称提取：

test <- function(){
  my.df <- data.frame(
    col1 = sample(c(1,2), 10, replace = TRUE),
    col2 = as.factor(sample(10)))
  other.df <- data.frame(
    col3 = letters[1:10],
    col4 = sample(c(TRUE, FALSE), 10, replace = TRUE))
  # 用列表打包两个数据框，可自定义元素名称
  return(list(first_df = my.df, second_df = other.df))
}

# 方式1：先接收列表，再提取元素
result <- test()
a <- result$first_df
b <- result$second_df

# 方式2：用base R的with函数直接赋值
with(test(), {
  a <- first_df
  b <- second_df
})

# 方式3：使用magrittr包的解包赋值（需先安装包）
# install.packages("magrittr")
library(magrittr)
c(a, b) %<-% test()

列表的优势在于可以容纳任意类型的R对象，且命名后可读性强，是最常用的多值返回方案。

方法二：返回环境 #

如果需要更灵活的对象管理，可以返回一个环境对象，将数据框存入环境中：

test <- function(){
  res_env <- new.env()
  res_env$my.df <- data.frame(
    col1 = sample(c(1,2), 10, replace = TRUE),
    col2 = as.factor(sample(10)))
  res_env$other.df <- data.frame(
    col3 = letters[1:10],
    col4 = sample(c(TRUE, FALSE), 10, replace = TRUE))
  return(res_env)
}

# 提取环境中的数据框
result_env <- test()
a <- result_env$my.df
b <- result_env$other.df

这种方式适合需要动态添加或修改对象的场景，但日常使用中列表足够满足需求。

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