Since select_if is superseded, I wanna know the "not superseded/tidyverse" version of:
library(tidyverse)
library(ggplot2movies)
library(purrr)
movies %>%
select_if(~ sum(is.na(.))/length(.) > .25)
Another option that works is:
movies %>%
keep(~ sum(is.na(.x))/length(.x) > .25)
moviesdata is fromggplot2movies