what makes the data multiple rather than singular, I will assume you mean one dataframe with some grouping variable, and you want a list of models.
This sort of pattern can be used.
library(tidyverse)
options(tibble.print_min = 25)
# list of coefficients
(coeffs <- 1:10)
(example_data <-
tibble(
xvals = rep(coeffs,10),
coeff = map(coeffs,~rep(.,10)) %>% unlist
) %>% mutate(y=coeff*xvals + 1,
group=paste0("g",coeff)) %>% select(-coeff))
#make a list of models, one for each group
list_of_lms <- map(unique(example_data$group),
~ lm(y~xvals,data=filter(example_data,group==.)))
library(broom)
(analyse_lms <- map_dfr(list_of_lms,
~glance(.)) )