Tidyverse many models using several dependent variables

many_dv_models.R

``` r
library(tidyverse)

indep_vars <- c("vs", "am", "gear", "carb")

dep_vars <- c("mpg", "disp", "hp")

init_grid <- tibble(dep_var = dep_vars,
               indep_vars = list(indep_vars))

res_grid <- init_grid %>% 
  rowwise() %>% 
  mutate(mod = list(lm(reformulate(indep_vars, dep_var),
                  data = mtcars)),
         res = list(broom::tidy(mod)))

res_grid
#> # A tibble: 3 × 4
#> # Rowwise: 
#>   dep_var indep_vars mod    res             
#>   <chr>   <list>     <list> <list>          
#> 1 mpg     <chr [4]>  <lm>   <tibble [5 × 5]>
#> 2 disp    <chr [4]>  <lm>   <tibble [5 × 5]>
#> 3 hp      <chr [4]>  <lm>   <tibble [5 × 5]>
```

<sup>Created on 2023-05-30 with [reprex v2.0.2](https://reprex.tidyverse.org)</sup>