map_df*() variants

• map_dfr() = row bind the results

• map_dfc() = column bind the results

• Note that map_dfr() has been superseded by map() |> list_rbind() and map_dfc() has been superseded by map() |> list_cbind()

col_stats <- function(n) {
  head(mtcars, n) |> 
    summarise_all(mean) |> 
    mutate_all(floor) |> 
    mutate(n = paste("N =", n))
}

map((1:2) * 10, col_stats)
#> [[1]]
#>   mpg cyl disp  hp drat wt qsec vs am gear carb      n
#> 1  20   5  208 122    3  3   18  0  0    3    2 N = 10
#> 
#> [[2]]
#>   mpg cyl disp  hp drat wt qsec vs am gear carb      n
#> 1  20   6  233 136    3  3   18  0  0    3    2 N = 20

map_dfr((1:2) * 10, col_stats)
#>   mpg cyl disp  hp drat wt qsec vs am gear carb      n
#> 1  20   5  208 122    3  3   18  0  0    3    2 N = 10
#> 2  20   6  233 136    3  3   18  0  0    3    2 N = 20

map((1:2) * 10, col_stats) |> list_rbind()
#>   mpg cyl disp  hp drat wt qsec vs am gear carb      n
#> 1  20   5  208 122    3  3   18  0  0    3    2 N = 10
#> 2  20   6  233 136    3  3   18  0  0    3    2 N = 20

---