如何在R中对列表进行排序？

Question

我有类似这样的列表：

a <- list(
  list(day = 5, text = "foo"),
  list(text = "bar", day = 1),
  list(text = "baz", day = 3),
  list(day = 2, text = "quux")
)

具有未知数量的字段，并且这些字段可能是乱序的。

如何根据日期对列表进行排序？我需要对列表进行升序排序。我已经搜索过，但我只找到了如何对向量进行排序。是否可以对列表进行排序？

Answer 1

为了对给定的“列表列表”a 进行排序，您可以尝试使用sapply() 和提取运算符[[ 从列表中检索数据。这些用于对order()的调用：

a[order(sapply(a, `[[`, i = "day"))]
#[[1]]
#[[1]]$day
#[1] 1
#
#[[1]]$text
#[1] "bar"
#
#
#[[2]]
#[[2]]$day
#[1] 2
#
#[[2]]$text
#[1] "quux"
# ...

正如this comment 中所建议的，这也可以通过在sapply() 中使用匿名函数来实现：

a[order(sapply(a, function(x) x$day))]

这也适用于像 OP 那样在函数定义中使用：

sortBy <- function(a, field) a[order(sapply(a, "[[", i = field))]
sortBy(a, "day")

请注意，我们需要将提取运算符 [[ 括在反引号或引号中。