对所有列进行t检验
for (i in c(5:525) ) {t_test_p.value =sapply( Data[5:525], function(x) t.test(Data[,i],x, na.rm=TRUE)$p.value)} tidyverse包使用tidyverse包进行t检验,能够对多个变量进行t检验
library(tidyverse)res <- test_data %>% select_if(is.numeric) %>% map_df(~ broom::tidy(t.test(. ~ group)), .id = 'var')res# group为分组变量