r - 根据 r 中数字列表的顺序按升序对字符列表进行排序

Question

我想根据另一个列表上的顺序/排列结果来排列一个包含字符的列表。例如，给定一个列表 char 和值列表(数字)mini，我可以获得排序的字符列表:

sorted<-mapply(function(x, y) y[x], lapply(mini, order), char)

我想使用排列/顺序来根据升序 min 列表对 char 列表进行排序

(当 mini 中的值相同时，我希望有上升字母字符)。

建议？

编辑:虚拟示例

char <- list(A=c("dd", "aa", "cc", "ff"), B=c("rr", "ee", "tt", "aa"))
mini <- list(A=c(4,2,4,4), B=c(5,5,7,1))

char
$A
"dd" "aa" "cc" "ff" ...
$B
"rr" "ee" "tt" "aa" ...

mini
$A
4 2 4 4 ...
$B
5 5 7 1 ...

预期结果:

sorted
$A
"aa" "cc" "dd" "ff"
$B
"aa" "ee" "rr" "tt"

Answer 1

试试这个:

Map(function(x, y) y[order(x, y)], mini, char)