如何在数据框列表中按相同列对所有数据框进行排序？

Question

我有一个数据框列表dataframes_list。 例如，我在底部放置了dput（dataframes_list）。 我想按列enrichment对列表中的所有数据框进行排序。 我可以对一个数据框进行排序

first_dataframe <- dataframes_list[[1]]
sorted_dataframe <- first_dataframe[order(first_dataframe$enrichment),] 

我应该如何对 dataframes_list 中的每个数据框都执行这个操作？

例如，dataframes_list 的示例：

list(structure(list(rank = c(1, 2, 3, 4, 5, 6), cmap.name = c("meclocycline", 
"pimozide", "isocorydine", "alvespimycin", "15-delta prostaglandin J2", 
"naloxone"), mean = c(-0.471, 0.504, -0.49, 0.193, 0.296, -0.383
), n = c(4, 4, 4, 12, 15, 6), enrichment = c(-0.869, 0.855, -0.859, 
0.539, 0.476, -0.694), p = c("0.00058", "0.00058", "0.00068", 
"0.00072", "0.00122", "0.00199"), specificity = c("0", "0.0302", 
"0", "0.069", "0.2961", "0.0155"), percent.non.null = c(100, 
100, 100, 50, 60, 83), signature_name = c("day1_day3__sham3_strict", 
"day1_day3__sham3_strict", "day1_day3__sham3_strict", "day1_day3__sham3_strict", 
"day1_day3__sham3_strict", "day1_day3__sham3_strict")), .Names = c("rank", 
"cmap.name", "mean", "n", "enrichment", "p", "specificity", "percent.non.null", 
"signature_name"), row.names = c(NA, 6L), class = "data.frame"), 
    structure(list(rank = c(1, 2, 3, 4, 5, 6), cmap.name = c("trichostatin A", 
    "daunorubicin", "ketotifen", "quipazine", "minoxidil", "ricinine"
    ), mean = c(-0.319, -0.515, 0.486, 0.476, 0.316, -0.481), 
        n = c(182, 4, 4, 4, 5, 4), enrichment = c(-0.384, -0.883, 
        0.862, 0.861, 0.812, -0.816), p = c("0", "0.00046", "0.0005", 
        "0.0005", "0.00058", "0.00209"), specificity = c("0.3762", 
        "0.0175", "0.0053", "0.0065", "0", "0.006"), percent.non.null = c(56, 
        100, 100, 100, 60, 100), signature_name = c("hour4_day1_day3__sham3_strict", 
        "hour4_day1_day3__sham3_strict", "hour4_day1_day3__sham3_strict", 
        "hour4_day1_day3__sham3_strict", "hour4_day1_day3__sham3_strict", 
        "hour4_day1_day3__sham3_strict")), .Names = c("rank", 
    "cmap.name", "mean", "n", "enrichment", "p", "specificity", 
    "percent.non.null", "signature_name"), row.names = c(NA, 
    6L), class = "data.frame"))

- Niek de Klein

Answer 1

使用 lapply：

sorted_dataframes_list <- lapply(dataframes_list, function(df){
                                 df[order(df$enrichment),]
                                 })

- tmpname12345

Answer 2

lapply是你的好朋友 ;)

你可以使用dplyr包中的arrange来完成，方法如下:

library(dplyr)
newlist <- lapply(dataframeslist, function(df){arrange(df,enrichment)})

或者不使用dplyr，像这样：

newlist <- lapply(dataframeslist, function(df){df[order(df$enrichment),]})

- iugrina

---

dplyr的解决方案也可以写成：dataframes %.% lapply(arrange, enrichment)。 - G. Grothendieck

Answer 3

这是一个 data.table 的解决方案。

require(data.table)

# Convert to data.table
dataframes_list <- lapply(dataframes_list, data.table)

# Setting a key sorts a data.table
lapply(dataframes_list, setkey, enrichment)

- djhurio