With purrr package and based on the comments: DfModel <- DfFilter %>% purrr::keep(.p = function(x) is.numeric(x)).
確定! 回上一頁