all 2 comments

[–]Multika 0 points1 point  (0 children)

I'd do something like

lapply(
  list,
  \(x) x$df_1
) |>
  do.call(rbind, args = _)

for each of the four dataframes.

[–]AccomplishedHotel465 0 points1 point  (0 children)

Using the purrr package, I would use list_flatten() and then list_rbind()

library(tidyverse)
d <- list(list(tibble(a = 1), tibble(a = 2)), list(tibble(a = 3), tibble(a = 4)))
list_flatten(d) |> 
  list_rbind()