按另一个相同长度的列表对列表进行排序/重新排序

Question

我有两个列表，希望其中两个以列表格式保存。

list1 <- list("two", "one", "three")
list2 <- list(2, 1, 3)

我想使用list2对list1重新排序，同时保持两者的列表格式。我希望这两个列表的输出如下。

> list1
#[[1]]
#[1] "one"
#
#[[2]]
#[1] "two"
#
#[[3]]
#[1] "three"
> list2
#[[1]]
#[1] 1
#
#[[2]]
#[1] 2
#
#[[3]]
#[1] 3

我该怎么做？

Answer 1

您可以将order用于此目的；然而，order期望向量，因此将list2作为列表有点不方便：

result = list1[order(unlist(list2))]