r - 将列表逐元素附加到 R 中嵌套列表的元素

Question

我是 R 的新手，仍在努力了解 apply 系列而不是使用循环。

我有两个列表，一个是嵌套的，另一个不是，都是由字符组成的:

>lst1 <- list(c("ABC", "DEF", "GHI"), c("JKL", "MNO", "PQR"))
>lst2 <- c("abc", "def")

我想创建第三个列表，以便将 lst2 的每个元素附加为 lst1 中相应子列表的最后一个元素。所需的输出如下所示:

>lst3
[[1]]
[1] "ABC" "DEF" "GHI" "abc"

[[2]]
[1] "JKL" "MNO" "PQR" "def"

到目前为止，我在 R 中的经验告诉我，可能有一种方法可以在不显式编写循环的情况下执行此操作。

Answer 1

您可以使用 Map，它的作用与 mapply(..., simplify = F) 完全相同:

Map(c, lst1, lst2)
[[1]]
[1] "ABC" "DEF" "GHI" "abc"

[[2]]
[1] "JKL" "MNO" "PQR" "def"