dplyr :: select_if（。，is.numeric）超级慢

Question

这（部分y = ...）运行异常缓慢：

library(dplyr)
n <- 10000
p <- 1000


x <- as.tbl(as.data.frame(matrix(rnorm(n * p), nc = p)))
y = x %>%
  select_if(., is.numeric)

事实上，它是我数据清理代码中最小的一部分。有更好的方法吗？

（dplyr 0.7.1）

Answer 1

尽管更笨重，但速度更快：

x %>% select(which(lapply(x,class) == "numeric"))