SSIN0<-filter(SIN,rowSums(SIN)>0)
SSIN<-SSIN0 %>% select(where(~ is.numeric(.x) && sum(.x) >10000 ))

相关文章: