dplyr: список выводимых фреймов данных без цикла for

Question

Следующий код работает нормально.Тем не менее, я хочу получить необходимый вывод без цикла.Любые мысли

library(magrittr)
data("mtcars")

df1 <- mtcars %>% dplyr::filter(mpg > qsec*1/2)
df2 <- mtcars %>% dplyr::filter(mpg > qsec*2/2)

df <- vector("list", 2)

for(i in 1:2){
  df[[i]] <- mtcars %>% dplyr::filter(mpg > qsec*i/2)
}

Answer 1

lapply () - это стандартный способ замены циклов:

df <- lapply(1:2 / 2, function(x) dplyr::filter(mtcars, mpg > qsec*x))

Answer 2

Если нам нужен list из filter ed наборов данных, мы можем использовать map из purrr (часть пакетов tidyverse)

library(tidyverse)
map(1:2, ~ mtcars %>% 
                dplyr::filter(mpg > qsec * .x/2))

---

Чтобы иметьодин набор данных, замените map на map_df и, чтобы иметь какой-то идентификатор, используйте .id

map_df(1:2, ~ mtcars %>% 
                 dplyr::filter(mpg > qsec * .x/2), .id = 'grp')