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