Фильтрация списка фреймов данных по количеству наблюдений в каждом фрейме данных

Question

Скажем, у вас есть список фреймов данных:

library(tidyverse)
library(janitor)

dat <- map(mtcars, tabyl)

Как вы могли бы затем отфильтровать эти фреймы данных с более чем 6 наблюдениями?

Моя первая мысль была discard(), но яне было такой удачи.Любое понимание будет оценено!

Answer 1

С purrr::discard

purrr::discard(dat, ~nrow(.) < 6)

или с keep

purrr::keep(dat, ~nrow(.) >= 6)

Answer 2

Мы можем использовать sapply для создания логического вектора и использовать его для фильтрации list в base R (пакеты не используются)

dat[sapply(dat, nrow) >= 6]

Answer 3

Другой purrr вариант:

dat[purrr::map_lgl(dat,~nrow(.x)>=6)]

Answer 4

Вы можете использовать Filter, т.е.

Filter(function(i)nrow(i) >= 6, dat)