R语言筛选分组求正态性检验、四分位数

1、读数据：
data <- data.table::fread(“data.csv”)
library(tidyverse)
2、#分组正态性检验
#假如我的分组是按照0和1分组的，分组的变量在第一列，变量名group，我的计量资料是2到10列
tmp0 <- data %>% dplyr::filter(group==0) %>% dplyr::select(2:10) %>% as_tibble()
do.call(rbind,lapply(tmp0,shapiro.test))

tmp1 <- data %>% dplyr::filter(group==1) %>% dplyr::select(2:10) %>% as_tibble()
do.call(rbind,lapply(tmp1,shapiro.test))
3、#分组四分位数，这里的tmp3/4是自己命名的，可随意更换，符合R语言变量命名规则就是
tmp3 <- data %>% dplyr::filter(group==0) %>% dplyr::select(2:10) %>% as_tibble()
do.call(rbind,lapply(tmp3,fivenum))

tmp4 <- data %>% dplyr::filter(group==1) %>% dplyr::select(2:10) %>% as_tibble()
do.call(rbind,lapply(tmp4,fivenum))

PS：关于数据的保存，另存为CSV复制粘贴会比较方便

比如:
five1<-do.call(rbind,lapply(tmp4,fivenum))
write.csv(five1,"./five1.csv")

就会得到1组的四分位数的结果，保存在当前文件夹下，命名为five1.csv