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

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

例如在

        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 ]

colnames（featureMatrix）[]
#获取1-cols的列名
无用的
m
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