如何“轉置”向量列表？

Question

我有一個向量列表：

asdf = list(c(1, 2, 3, 4, 5), c(10, 20, 30, 40, 50))

現在我想“轉置”它，即獲得一個 5 對的列表，而不是 5 對的列表。

更具體地說，我希望結果類似於鍵入的結果：

transposedAsdf = list(c(1, 10), c(2, 20), c(3, 30), c(4, 40), c(5, 50))

但我不知道如何實現這一點。 如何？

Answer 1

transposedAsdf = as.list(as.data.frame(t(as.data.frame(asdf))))
transposedAsdf
$V1
[1]  1 10

$V2
[1]  2 20

$V3
[1]  3 30

$V4
[1]  4 40

$V5
[1]  5 50

Answer 2

使用data.table的選項

data.table::transpose(asdf)
#[[1]]
#[1]  1 10

#[[2]]
#[1]  2 20

#[[3]]
#[1]  3 30

#[[4]]
#[1]  4 40

#[[5]]
#[1]  5 50 

Answer 3

使用purrr包的解決方案。

library(purrr)

asdf2 <- transpose(asdf) %>% map(unlist)
asdf2
# [[1]]
# [1]  1 10
# 
# [[2]]
# [1]  2 20
# 
# [[3]]
# [1]  3 30
# 
# [[4]]
# [1]  4 40
# 
# [[5]]
# [1]  5 50

Answer 4

這是一種方式：

split(do.call(cbind, asdf), 1:length(asdf[[1]]))
# $`1`
# [1]  1 10
# 
# $`2`
# [1]  2 20
# 
# $`3`
# [1]  3 30
# 
# $`4`
# [1]  4 40
# 
# $`5`
# [1]  5 50

Answer 5

從base R到Map一個選項

do.call(Map, c(f = c, asdf))

Answer 6

包collapse具有用於“高效列表轉置”的t_list

collapse::t_list(asdf)
# $V1
# [1]  1 10
#
# $V2
# [1]  2 20
#
# $V3
# [1]  3 30
#
# $V4
# [1]  4 40
# 
# $V5
# [1]  5 50

Answer 7

使用sapply和asplit ：

asplit(sapply(asdf, `[`, 1:5), 1)

[[1]]
[1]  1 10

[[2]]
[1]  2 20

[[3]]
[1]  3 30

[[4]]
[1]  4 40

[[5]]
[1]  5 50