想了很久不一定可行
首先
mydata<-list()

for (i in 1:ncol(数据集)) {
  
n <- sum(is.na(titanic[,i]))
mydata[[i]]<-n
}#生成一个变量缺失值的list
mydata <- as.data.frame(mydata)#转变成数据框
然后合并，或者行列转换后合并，根据此列排序，然后删除na多的
不太确定能用，你试试把

好的，谢谢了，我试试