classification <- c("name", "genus", "vore", "order", "conservation")
msleep %>%
select(!!...msleep %>%
select_if(~!...msleep %>%
select_if(is.numeric) %>%
select_if(~mean(., na.rm=TRUE) > 10)
或者更简便:
msleep %>%
select_if...#making an unclean database:
msleep2 msleep, name, sleep_total, brainwt)
colnames(msleep2)...msleep, name, sleep_total, brainwt)
colnames(msleep2) <- c("Q1 name", "Q2 sleep total", "Q3