仅删除一个因子值（R）的所有变量

Question

我得到了一个二进制数据集，其中Y等于1或0，X也等于。首先，我将所有变量分解，不幸的是，有一些X变量仅取值1（一个因子）。我有1700个变量，用手删除每个变量会很麻烦。

有人遇到过同样的问题或对此有一个好的解决方案吗？

Answer 1

解决方案

从用户jogo那里获取代码，我可以解决问题。 您需要做的就是：

a = names(Dataset)[sapply(Dataset, function(x) length(levels(x))==1)]
Dataset = Dataset[, setdiff(names(Dataset), a)]

完成。