Мы можем использовать select_if
из dplyr
после считывания данных в R
library(dplyr)
df1 %>%
select_if(is.numeric)
Или если нам нужно отрицать
library(purrr)
df1 %>%
select_if(negate(is.numeric))
Или
df1 %>%
select_if(~ !is.numeric(.))
Или в base R
мы можем проверить с помощью sapply
i1 <- sapply(df1, is.numeric)
df1[i1]
Если нам нужно исключить, отрицание (!
)
df1[!i1]
Или с Filter
Filter(is.numeric, df1)
Или Negate
Filter(Negate(is.numeric), df1)
С воспроизводимым примером
Filter(Negate(is.factor), iris)