R:按嵌套列表中的值对列表进行排序

Question

数据由类似的过程生成:

x <- rnorm(10)
y <- c("a", "b", "c") 
# chr vectors might have varying length and contents, simplified for sake of example
data_list <- list()
for(i in 1:length(x)) {
  data_list <- append(data_list, list(list(numeric = x[i], char = y)))
}

基本上，生成的列表结构如下:

$ :List of 2
  ..$ numeric: num 0.928
  ..$ char   : chr [1:3] "a" "b" "c"
 $ :List of 2
  ..$ numeric: num 1.4
  ..$ char   : chr [1:3] "a" "b" "c"
...

我想按数字升序对这个列表进行排序，同时保留初始结构。

我已尝试解释解决方案 here但它破坏了 chr 向量的结构。

Answer 1

data_list = data_list[order(sapply(data_list, `[[`, i=1))]