purrr::map等效于:
for (i in 1:4) {
for (j in 1:6) {
print(paste(i, j, sep = "-"))
}
}
要么
lapply(1:4, function(i)
lapply(1:6, function(j)
print(paste(i, j, sep = "-"))))
从概念上讲,我没有得到的是如何引用内部map函数中的外部循环。
map(1:4, ~ map(1:6, ~ print(paste(.x, ????, sep = "-")))
最佳答案
正如@ r2evans指出的那样,您的第一个调用的.x
被屏蔽了。但是,您可以创建一个包含2个参数.x
和.y
的lambda函数,并通过.x
参数将先前的.y
分配给新的...
。
我将使用walk
而不是map
,因为在这种情况下,您仅对副作用(打印)感兴趣
walk(1:4,~ walk(1:6, ~ print(paste(.x, .y, sep = "-")),.y=.x))
另一种选择是使用
expand.grid
布置组合,然后对具有pwalk
的组合(或在其他情况下为pmap
)进行迭代purrr::pwalk(expand.grid(1:4,1:6),~print(paste(.x, .y, sep = "-")))
两种情况下的输出:
[1] "1-1"
[1] "2-1"
[1] "3-1"
[1] "4-1"
[1] "5-1"
[1] "6-1"
[1] "1-2"
[1] "2-2"
[1] "3-2"
[1] "4-2"
[1] "5-2"
[1] "6-2"
[1] "1-3"
[1] "2-3"
[1] "3-3"
[1] "4-3"
[1] "5-3"
[1] "6-3"
[1] "1-4"
[1] "2-4"
[1] "3-4"
[1] "4-4"
[1] "5-4"
[1] "6-4"
关于r - purrr映射等效于嵌套的for循环,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/48847613/