R语言：如何在函数中返回行数最多的数据框？

我正在编写一个基于不同条件对dataframe进行子集化的函数，需要返回行数最多的dataframe。以下是我尝试的代码：

df2 <- as.data.frame(matrix(runif(n=10, min=1, max=20), nrow=200))
df3 <- as.data.frame(matrix(runif(n=10, min=1, max=20), nrow=90))
df4 <- as.data.frame(matrix(runif(n=10, min=1, max=20), nrow=600))
df5 <- as.data.frame(matrix(runif(n=10, min=1, max=20), nrow=70))

max_row_df = ifelse(nrow(df) > nrow(df2) & nrow(df) > nrow(df5), deparse(substitute(df)),
                    ifelse(nrow(df2) > nrow(df3), deparse(substitute(df2)),
                           ifelse(nrow(df3) > nrow(df4), deparse(substitute(df3)),
                                  ifelse(nrow(df4) > nrow(df5),deparse(substitute(df4)),
                                  deparse(substitute(df5))))))
max_row_df

该语句存在逻辑缺陷，但这是我能返回dataframe名称的唯一方法，而我需要通过名称从函数中返回选中的dataframe。我还尝试了以下方法：

row_lengths <- c(nrow(df), nrow(df2), nrow(df3), nrow(df4), nrow(df5))
max_row <- max(row_lengths)

但这种方法无法解析dataframe的名称。请问是否有更好的实现方式？

可以通过将数据框放入列表的方式处理，既能保留数据框本身，又能关联它们的名称，操作简洁且无逻辑漏洞：

方法1：直接返回行数最多的数据框 #

如果目标是直接获取数据框对象，无需先取名称，可使用：

# 将所有数据框存入列表，命名对应原对象名
df_list <- list(df = df, df2 = df2, df3 = df3, df4 = df4, df5 = df5)
# 筛选出行数最多的数据框
max_df <- df_list[[which.max(sapply(df_list, nrow))]]

方法2：先获取名称再提取数据框 #

如果需要先拿到对应的数据框名称，再提取数据框：

df_list <- list(df = df, df2 = df2, df3 = df3, df4 = df4, df5 = df5)
# 获取行数最多的数据框名称
max_df_name <- names(df_list)[which.max(sapply(df_list, nrow))]
# 通过名称提取目标数据框
max_df <- df_list[[max_df_name]]

封装为可复用函数 #

如果要集成到自定义函数中，可以写成：

get_max_row_df <- function(...) {
  # 接收任意数量的数据框参数
  df_list <- list(...)
  # 自动给列表元素命名（使用传入的对象名）
  if(is.null(names(df_list))) {
    names(df_list) <- sapply(substitute(list(...))[-1], deparse)
  }
  # 找到行数最大的元素索引
  max_index <- which.max(sapply(df_list, nrow))
  # 返回数据框（如需返回名称，替换为return(names(df_list)[max_index])）
  return(df_list[[max_index]])
}

# 调用示例
result_df <- get_max_row_df(df, df2, df3, df4, df5)

这种方式避免了嵌套ifelse的逻辑漏洞，代码更易读维护，同时完美解决了名称与数据框的关联问题。

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