我们可以用 complete.cases
complete.cases
lapply(re, function(x) { v1 <- c(t(do.call(cbind, x))) v1[complete.cases(v1)]})