dplyr :: select_if超慢

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"))