r - 简化嵌套的lapply

Question

我想将一个列表映射到一个列表列表并执行一个函数。目前我有嵌套的 lapplys，但我只是不喜欢它，如果可能的话，我想在一个映射中做到这一点。我已经创建了我的代码的简化版本，我将年份和日期粘贴在一起。实际上我的函数是 raster() 并且我正在创建一个按年然后按天的光栅对象列表列表。感谢您的帮助，或将我指向我错过的任何以前的帖子!
我想简化的示例可重现代码 -

exmp1 <- list(list(4, 7,9), list(23, 28), list(5, 32, 82, 99))
exmp2 <- list(1999, 2000, 2001)

exmp3 <- seq(from = 1, to = length(exmp1))
foo <- lapply(exmp3, function(w) { 
  lapply(exmp1[[w]], function(k){
    paste(exmp2[[w]], k)
    })})

Answer 1

我想你可以用 Map这里 :

Map(paste, exmp1, exmp2)

对于更复杂的函数，您可以使用匿名函数来包含更多行代码。

Map(function(x, y) paste(x, y), exmp1, exmp2)