lapply函数

library(ggplot2)
library(patchwork)
dat1 = read.csv('dat1.csv', row.names = 1)
p = lapply(dat1[,1:9], function(i){
 ggplot(data = dat1, aes(x = group, y = i, color = group)) + geom_violin() + 
   ylab(names(dat1)[as.list(dat1) %in% list(i)]) +
   xlab(NULL) 
})
wrap_plots(p, nrow = 3, guides = 'collect')

lapply 函数

系统内部会把X转为list，然后按列计算。
as.List()可以按列将数据转为List (因为一列是一个元素)
as.list(dat1) %in% list(i)是想找当前的在处理哪个i，以此取出列名