R:根据另一个列表重复列表的元素

Question

我已经搜索过这个，但徒劳无功。
问题是我有两个列表，首先是要重复的元素
例如

my.list<-list(c('a','b','c','d'), c('g','h'))

第二个列表是每个元素重复的次数

repeat.list<-list(c(5,7,6,1), c(2,3))

我想创建一个新列表，其中 my.list 中的每个元素都基于 repeat.list 重复
IE。
结果:

[[1]]
[1] "a" "a" "a" "a" "a" "b" "b"  "b" "b" "b" "b" "b" "c" "c" "c" "c" "c" "c" "d" 
[[2]]
[1] "g" "g" "h" "h" "h" 

预先感谢您的帮助

Answer 1

使用 mapply :

mapply(rep, my.list, repeat.list)
[[1]]
 [1] "a" "a" "a" "a" "a" "b" "b" "b" "b" "b" "b" "b" "c" "c" "c" "c" "c" "c" "d"

[[2]]
[1] "g" "g" "h" "h" "h"

lapply也有诀窍，但更冗长:

lapply(seq_along(my.list), function(i)rep(my.list[[i]], repeat.list[[i]]))
[[1]]
 [1] "a" "a" "a" "a" "a" "b" "b" "b" "b" "b" "b" "b" "c" "c" "c" "c" "c" "c" "d"

[[2]]
[1] "g" "g" "h" "h" "h"