R排列向量列表

Question

假设我有一个这样的向量列表：

list.of.vec <- data.frame(id = c(1,2,3,4)) %>% 
  mutate(a = list(list(c(1,2,3), c(2,3,4)), list(c(2,4,5), c(1,3,4)), list(c(1,2,3), c(4,3,4)), list(c(3,2,3), c(2,3,4))))

我怎样才能安排 a 使得在每对向量中，具有较大第一个值的那个首先出现？例如，如果有一个列表 c(1,2,3), c(2,3,4)，它应该变成 c(2,3,4), c(1,2,3)。如果第一个值相等，那么它会查看下一个值。

Answer 1

我们可以使用rrapply

library(rrapply)
library(purrr)
library(dplyr)
list.of.vec <- list.of.vec %>%
     mutate(a = map(a, ~ .x[order(-rrapply(.x, f = function(x) x[1], 
          how = 'unlist'))]))

-输出

> list.of.vec
  id                a
1  1 2, 3, 4, 1, 2, 3
2  2 2, 4, 5, 1, 3, 4
3  3 4, 3, 4, 1, 2, 3
4  4 3, 2, 3, 2, 3, 4

> list.of.vec$a
[[1]]
[[1]][[1]]
[1] 2 3 4

[[1]][[2]]
[1] 1 2 3


[[2]]
[[2]][[1]]
[1] 2 4 5

[[2]][[2]]
[1] 1 3 4


[[3]]
[[3]][[1]]
[1] 4 3 4

[[3]][[2]]
[1] 1 2 3


[[4]]
[[4]][[1]]
[1] 3 2 3

[[4]][[2]]
[1] 2 3 4

Answer 2

我们可以试试

lapply(
  a,
  function(x) {
    x[order(-sapply(x, `[`, 1))]
  }
)

给了

[[1]]
[[1]][[1]]
[1] 2 3 4

[[1]][[2]]
[1] 1 2 3


[[2]]
[[2]][[1]]
[1] 2 4 5

[[2]][[2]]
[1] 1 3 4


[[3]]
[[3]][[1]]
[1] 4 3 4

[[3]][[2]]
[1] 1 2 3


[[4]]
[[4]][[1]]
[1] 3 2 3

[[4]][[2]]
[1] 2 3 4

Answer 3

你可以使用 -

list.of.vec$a <- lapply(list.of.vec$a, function(x) {
  inds <- match(TRUE, x[[1]] != x[[2]])
  if(x[[1]][inds] > x[[2]][inds]) x else rev(x)
})

list.of.vec$a

#[[1]]
#[[1]][[1]]
#[1] 2 3 4

#[[1]][[2]]
#[1] 1 2 3


#[[2]]
#[[2]][[1]]
#[1] 2 4 5

#[[2]][[2]]
#[1] 1 3 4


#[[3]]
#[[3]][[1]]
#[1] 4 3 4

#[[3]][[2]]
#[1] 1 2 3


#[[4]]
#[[4]][[1]]
#[1] 3 2 3

#[[4]][[2]]
#[1] 2 3 4

inds 将返回我们需要比较的每个列表的索引，即两个向量中的值不同的索引。如果第一个索引具有更高的值，我们将返回列表原样而不做任何更改，否则我们返回反向列表。