r - 如何删除具有单个值的数据框列

Question

假设我在 R 中有以下数据框:

df1 <- data.frame(Item_Name = c("test1","test2","test3"), D_1=c(1,0,1),
                  D_2=c(1,1,1), D_3=c(11,3,1))

我想创建一个函数来删除没有差异的列
(例如，在这种情况下，它会删除列 D_2 因为它只有 1 个值)

我知道我可以手动检查它，但实际上我的数据非常大，我想自动化它。任何的想法？

Answer 1

Filter在这里是一个有用的功能。我只会过滤那些有超过 1 个唯一值的那些。

IE。

Filter(function(x)(length(unique(x))>1), df1)

##   Item_Name D_1 D_3
## 1     test1   1  11
## 2     test2   0   3
## 3     test3   1   1