r - 从数据框中仅选择数字列

Question

假设您有一个像这样的 data.frame:

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

如何仅选择 x 中的数字列？

Answer 1

编辑:更新以避免使用不明智的sapply。

由于数据框是一个列表，我们可以使用列表应用函数:

nums <- unlist(lapply(x, is.numeric), use.names = FALSE)  

然后是标准子集

x[ , nums]

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

对于更惯用的现代 R，我现在推荐

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

更少的代码，更少地反射(reflect) R 的特殊怪癖，并且更简单，并且在数据库后端的 tibbles 上使用更健壮:

dplyr::select_if(x, is.numeric)

较新版本的 dplyr，还支持以下语法:

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