如何在lapply（）中使用第二个列表中的元素

Question

我有两个列表，例如：

L1 <- list(A=1:3, B=4:6)
L2 <- list(A=2, B=3)

我希望第二个列表中的数字重复第一个列表的元素，从而产生：

>L3
$A
[1] 1 2 3 1 2 3

$B
[1] 4 5 6 4 5 6 4 5 6

我试过lapply()，但我无法弄清楚正确的时间论点：

L3 <- lapply(L1, function(x) rep(x, L2))

当然很容易解决，但我现在不能解决。

Answer 1

这是一个解决方案：

lapply(names(L1), function(x) rep(L1[[x]], L2[[x]]))