使用多个条件在R中使用apply函数对列进行子集

x1 <- 1:10
x2 <- round(rnorm(10, mean=3, sd = 1), 0)
x <- cbind(x1, x2, x3 = 0, x4 = NA)
x

x1 x2 x3 x4
1  2  0 NA
2  5  0 NA
3  2  0 NA
4  5  0 NA
5  3  0 NA
6  3  0 NA
7  2  0 NA
8  5  0 NA
9  3  0 NA
10  3  0 NA

xsub <- x[,apply(x, 2, function (x) !all(is.na(x)))] #excludes cols with all NAs
xsub <- xsub[,apply(xsub, 2, function(x) !all(x==0))] #excludes cols with all zeros

xsub <- x[,apply(x, 2, function(x) !all(x==0) | !all(is.na(x)))]