相当于嵌套 for 循环的 purrr 映射

Question

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 = "-"))))

从概念上讲，我没有得到的是如何在 inner 映射函数中引用 outer 循环。

map(1:4, ~ map(1:6, ~ print(paste(.x, ????, sep = "-")))

Answer 1

尝试像这样嵌套时，function formulas (~) 的使用有点受限，因为完全不清楚您试图引用 map 的哪个级别。（好吧，那是不正确的。我很清楚它引用了 inside-out，并且由于它们都使用相同的命名法，所以外部变量被内部变量掩盖了变量。)

我认为最好的解决方法是不使用公式方法，而是使用 immediate/anonymous（或预定义的）函数：

library(purrr)
str(map(1:2, function(x) map(1:3, function(y) paste(x, y, sep = "-"))))
# List of 2
#  $ :List of 3
#   ..$ : chr "1-1"
#   ..$ : chr "1-2"
#   ..$ : chr "1-3"
#  $ :List of 3
#   ..$ : chr "2-1"
#   ..$ : chr "2-2"
#   ..$ : chr "2-3"

Answer 2

正如@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"

Answer 3

现在就运行通过这个。

walk(1:4,~ walk(1:6, ~ print(paste(.x, .y, sep = "-")),.y=.x)) 
[1] "1-1"
[1] "2-1"
[1] "3-1"
[1] "4-1"
[1] "5-1"
[1] "6-1"
[1] "1-2"

和

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] "1-2"

但是为了准确匹配您的嵌套 for 循环，它被摆弄了，这有效。

for (i in 1:4) {
  for (j in 1:6) {
    print(paste(i, j, sep = "-"))
  }
}
[1] "1-1"
[1] "1-2"
[1] "1-3"
[1] "1-4"
[1] "1-5"
[1] "1-6"
[1] "2-1"

purrr::pwalk(expand.grid(1:6,1:4),~print(paste(.y, .x, sep = "-")))
[1] "1-1"
[1] "1-2"
[1] "1-3"
[1] "1-4"
[1] "1-5"
[1] "1-6"
[1] "2-1"

#or even a map of this
walk(1:4,~ walk(1:6, ~ print(paste(.y, .x, sep = "-")),.y=.x))

我还没有弄明白为什么 .y=.x 在最后。

Answer 4

这是对已经非常好的答案的补充 answer-comments。我想制作一个 purr-like 函数来实现 OP 的目标。所以我做了一个 loop_map 函数，它的行为类似于主要的 Purrr map 函数。

loop_map <- function(why, ecks, fun) {
  
  # 2: for every call of this (the previous .f) the new .f is called for each
  # value of ecks, supplied the same value of why each time
  iterate_over_x = function(x_in,y_in,fun_in){
    return(pmap(.l = list(x = x_in), .f = fun_in ,y = y_in ) %>%
 set_names(nm = as.character(x_in))) 
  }
  
  # 1: this ".f"  argument is called once for each element of why, and is 
  # supplied one value of why and every value of ecks each time
  pmap(.l = list(y_in = why), .f = iterate_over_x, x_in = ecks, fun_in = fun) %>% 
set_names(nm = as.character(why))
  
}



my_paste <- function(x,y) {
  paste(x,y)
}



loop_map(list("a","b"),list("c","d"),my_paste)

作为奖励，我为输出命名，以便人们可以更轻松地对其进行索引，或者以某种方式将其转换为数据帧。我想通过添加循环遍历任意多个输入列表的功能来改进此功能，并可能使用采用 ... 参数的函数（现在所有内容都必须命名）。如果有人知道如何执行此操作，请随时告诉我。

相当于嵌套 for 循环的 purrr 映射

purrr map equivalent of nested for loop

r

purrr