利用dplyr包里的filter函數(shù)
library("dplyr")
data %>% filter_at(vars(c(1:20)),all_vars(.>0)) #提取前20列大于0的所有行
data %>% filter_all(any_vars(. >0)) #提取所有列大于0的所有行
filter_all篩選所有列玫氢，filter_at 篩選指定列。
參考：R語言基礎(chǔ)入門(2) filter的使用方法從基礎(chǔ)到高級 - 簡書 (jianshu.com)
