Selecting only numeric columns from a data frame

Question

Suppose, you have a data.frame like this:

x <- data.frame(v1=1:20,v2=1:20,v3=1:20,v4=letters[1:20])

How would you select only those columns in x that are numeric?

Answer 1

EDIT: updated to avoid use of ill-advised sapply.

Since a data frame is a list we can use the list-apply functions:

nums <- unlist(lapply(x, is.numeric))   

Then standard subsetting

x[ , nums]  ## don't use sapply, even though it's less code ## nums <- sapply(x, is.numeric) 

For a more idiomatic modern R I'd now recommend

x[ , purrr::map_lgl(x, is.numeric)] 

Less codey, less reflecting R's particular quirks, and more straightforward, and robust to use on database-back-ended tibbles:

dplyr::select_if(x, is.numeric) 

Newer versions of dplyr, also support the following syntax:

x %>% dplyr::select(where(is.numeric)) 

Answer 2

The dplyr package's select_if() function is an elegant solution:

library("dplyr")
select_if(x, is.numeric)