如何按指定向量中的名称对R语言命名列表进行自定义排序？

我有一个命名列表The_list，其结构如下：

$df1

    col1  col2
1   M     P
2   N     Q
3   O     R

$df2

    col1  col2
1   G     J
2   H     K
3   I     L

$df3

    col1  col2
1   A     D
2   B     E
3   C     F

我需要按照向量order <- c("df2", "df3", "df1")中指定的名称顺序，对该列表进行自定义排序，期望得到的结果如下：

$df2

    col1  col2
1   G     J
2   H     K
3   I     L

$df3

    col1  col2
1   A     D
2   B     E
3   C     F


$df1

    col1  col2
1   M     P
2   N     Q
3   O     R

我尝试了代码The_list[order(c("df2", "df3", "df1"))]，但未达到预期效果，请问正确的实现方法是什么？

你之前的代码逻辑有误：order()函数的作用是根据输入值生成排序后的索引，直接传入字符串向量时，它会按字符串的ASCII码值排序，得到的是字母序的索引，完全不符合自定义排序的需求。

正确的实现方式非常简单，直接用指定的名称向量对列表进行索引即可——R的命名列表支持通过名称向量直接选取元素，且会严格保留你指定的顺序：

order <- c("df2", "df3", "df1")
sorted_The_list <- The_list[order]

如果需要避免因指定名称不存在而产生NA元素，可以先做校验：

# 验证所有指定名称都在列表的命名中
if (all(order %in% names(The_list))) {
  sorted_The_list <- The_list[order]
} else {
  warning("部分指定名称不在列表中")
}

执行上述代码后，就能得到你期望的自定义排序后的列表。

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