r - R，事件矩阵，根据列和删除命名列

Question

在具有命名列的事件矩阵中，我想删除其中只有一个的列。

例如在

        a    b    c
1       0    1    1
1       1    0    1

应删除 c 列。我想到了这样的想法：

colnames(featureMatrix)[]

# get column names of 1-cols
useless <- colnames(matrix)[?]

# remove columns
matrix <- matrix[,!colnames(matrix) %in% useless ]

缺少的是基于列总和的条件。

Answer 1

m <- matrix(c(0,1,1,0,1,1),2)
rownames(m) <- c(1,1)
colnames(m) <- c("a","b","c")

m[,colMeans(m)!=1]
#   a b
# 1 0 1
# 1 1 0