如何在R语言中调整列表内数据框的列顺序？

需求：现有一个包含多个数据框的列表，各数据框除1个或多个独有列外，其余列名一致。需要将列表内每个数据框的列调整为：先按固定顺序排列指定共同列（name、gender、age），再排列其余非共同列，且实现批量操作，无需逐个指定列名。

示例数据 #

age <- c(20,30,22,32,10)
gender <- c('M','F','M','F','M')
name <- c('A','B','C','D','E')
salary <- c('800','400','300','670','790')
resident <- c('X','Y','Z','W','U')
ownership <- c('Yes','No','Yes','No','No')

df1 <- data.frame(age,name,gender,salary)
df2 <- data.frame(gender,name,age,resident,ownership)

mylist <- list(df1, df2)

解决方案 #

方法1：Base R 实现 #

先定义固定顺序的核心列，再用lapply批量处理列表中的每个数据框：

# 定义固定顺序的核心列
core_cols <- c("name", "gender", "age")

# 批量调整列顺序
formatted_list <- lapply(mylist, function(df) {
  # 获取当前数据框的非核心列
  other_cols <- setdiff(colnames(df), core_cols)
  # 重新排列列：核心列在前，非核心列在后
  df[, c(core_cols, other_cols)]
})

方法2：tidyverse 实现 #

如果习惯使用tidyverse工具包，可用purrr::map简化代码：

library(purrr)

core_cols <- c("name", "gender", "age")
formatted_list <- map(mylist, ~ .x[, c(core_cols, setdiff(colnames(.x), core_cols))])

验证结果 #

查看处理后的结果：

# 查看第一个数据框
formatted_list[[1]]
#>   name gender age salary
#> 1    A      M  20    800
#> 2    B      F  30    400
#> 3    C      M  22    300
#> 4    D      F  32    670
#> 5    E      M  10    790

# 查看第二个数据框
formatted_list[[2]]
#>   name gender age resident ownership
#> 1    A      M  20        X       Yes
#> 2    B      F  30        Y        No
#> 3    C      M  22        Z       Yes
#> 4    D      F  32        W        No
#> 5    E      M  10        U        No

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