如何对列表中的dataframe重新排序？附R语言代码及当前结果

嘿，我来分享几种给你这个sampled_W列表里的dataframe重新排序的实用方案，你可以根据自己的具体需求来选：

1. 按列表的名称排序 #

如果你的需求是基于列表元素的名称（也就是你设置的1-10这些标签）来调整顺序，直接用order()配合列表名称就行：

# 按名称升序排列（默认就是从小到大）
sampled_W_sorted_name_asc <- sampled_W[order(names(sampled_W))]

# 按名称降序排列（从10到1）
sampled_W_sorted_name_desc <- sampled_W[rev(order(names(sampled_W)))]

2. 按每个dataframe的特征排序 #

要是你想根据每个dataframe里的某列数据特征（比如均值、最大值，或者某列的特定值）来排序，比如假设每个df里有一列叫score，我们按每个df的score列均值从小到大排：

# 先计算每个dataframe的排序依据（这里取score列的均值，忽略NA）
sort_metric <- sapply(sampled_W, function(df) mean(df$score, na.rm = TRUE))

# 按这个指标升序排列列表
sampled_W_sorted_by_metric <- sampled_W[order(sort_metric)]

# 要降序的话，直接加decreasing参数
sampled_W_sorted_by_metric_desc <- sampled_W[order(sort_metric, decreasing = TRUE)]

注：你可以把mean(df$score)换成任何你需要的统计量，比如max(df$value)或者其他自定义逻辑

3. 自定义顺序排序 #

如果有明确的手动指定顺序（比如想把第3个df放第一个，第1个放第二个这类），直接用自定义的索引向量就行：

# 写好你想要的顺序索引
custom_order <- c(3, 1, 5, 2, 7, 4, 10, 6, 8, 9)

# 按自定义顺序重新排列列表
sampled_W_custom_order <- sampled_W[custom_order]

额外补充：对每个dataframe内部的行排序 #

如果你不是要调整列表里df的顺序，而是想给每个df自己的行排序，那用lapply遍历处理每个df就行：

# 对每个df按某列（比如col_name）升序排序行
sampled_W_rows_sorted <- lapply(sampled_W, function(df) df[order(df$col_name), ])

# 降序排序行的话
sampled_W_rows_sorted_desc <- lapply(sampled_W, function(df) df[order(df$col_name, decreasing = TRUE), ])

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