r - 如何重复列表可变次数

Question

假设我有一个列表

x <- as.list(c("john","jerry","james"))

还有一个值列表

y <- as.list(c(8,5,10))

我想遍历 x 的第一个元素，y 的第一个元素的次数，并在末尾添加一个后缀。所以对于元素 john，它将是 john_1,john_2...john_8。那么 jerry 将是 jerry_1,jerry_2...jerry_5。还有 james_1,james_2,...,james_10

这是我尝试过但不起作用的方法

z <- lapply(x, function(i){paste(i,"_",rep(max))})

但这并没有给我我想要的。

也许，我不应该改用 lapply 或某些版本的 map*，但还没有研究过这些。

Answer 1

基于 R 的想法，

Map(function(x, y)paste0(x, '_', seq(y)), x, y)

#[[1]]
#[1] "john_1" "john_2" "john_3" "john_4" "john_5" "john_6" "john_7" "john_8"

#[[2]]
#[1] "jerry_1" "jerry_2" "jerry_3" "jerry_4" "jerry_5"

#[[3]]
# [1] "james_1"  "james_2"  "james_3"  "james_4"  "james_5"  "james_6"  "james_7"  "james_8"  "james_9"  "james_10"