如何重排dataframe列表my.list使首元素为行数最多的dataframe？

刚好碰到过类似的需求，用一行R代码就能简洁实现你的目标——直接根据每个DataFrame的行数对列表进行降序重排，这样第一个元素自然就是行数最多的那个：

# 核心代码：按行数降序重排列表
my.list <- my.list[order(-sapply(my.list, nrow))]

代码解释 #

• sapply(my.list, nrow)：遍历列表中的每个DataFrame，提取它们的行数，得到一个对应每个元素的数值向量
• order(-...)：对行数向量进行降序排序，生成对应的索引位置（行数最大的元素会排在索引第一位）
• 最后用这个索引向量重新索引原列表，就完成了重排

示例验证 #

举个和你描述匹配的例子测试一下：

# 构造示例列表：d2行数最多（5行）
d1 <- data.frame(x = 1:2)
d2 <- data.frame(x = 1:5)
d3 <- data.frame(x = 1:3)
my.list <- list(d1, d2, d3)

# 执行重排
my.list <- my.list[order(-sapply(my.list, nrow))]

# 验证结果：第一个元素是d2，行数为5
nrow(my.list[[1]]) # 输出：5

特殊情况说明 #

如果列表中有多个DataFrame行数相同，order()函数会保留它们在原列表中的相对顺序，不会打乱原有排列，同时这些行数相同的元素会一起排在对应位置（比如两个行数最多的会占据前两位，顺序和原列表一致）。

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