r - 将列表中的单个向量附加到另一个列表中的特定位置

Question

我想将以下列表附加到 z，但是在 z 中的特定位置一次添加一个子列表。我尝试使用以下表达式来执行此操作，但是我无法按正确的顺序进行操作。

z <- list (c(3,2,1), c(4,6,5), c(7,8,9), c(3,2,1), c(4,6,5), c(7,8,9))
y <- list (c("A","B","C"), c("D","E","F"), c("h","i","j"))

fun <- function (x) append (z , y[[x]] , c(0,2,4))
lapply (seq(length( y )) , fun )

# Desired Output
x
[[1]]
[1] "A","B","C

[[2]]
[1] 3 2 1

[[3]]
[1] 4 6 5

[[4]]
[1] "D","E","F"

[[5]]
[1] 7 8 9

[[6]]
[1] 3 2 1

[[7]]
[1] "h","i","j"

[[8]]
[1] 4 6 5

[[9]]
[1] 7 8 9

Answer 1

还有一个选择

c(y,z)[order(c(seq_along(y),rep(1:length(y), each = 2)))]

#[[1]]
#[1] "A" "B" "C"
#
#[[2]]
#[1] 3 2 1
#
#[[3]]
#[1] 4 6 5
#
#[[4]]
#[1] "D" "E" "F"
#
#[[5]]
#[1] 7 8 9
#
#[[6]]
#[1] 3 2 1
#
#[[7]]
#[1] "h" "i" "j"
#
#[[8]]
#[1] 4 6 5
#
#[[9]]
#[1] 7 8 9