删除所有行中具有相同值的数据框的所有列

Question

我有一个这样的数据框：

1 NA 0.2 NA 1 2
2 NA 0.5 NA 1 6 
3 NA 0.7 NA 1 4 
4 NA 0.3 NA 1 4

我想删除所有行中具有相同值的列。我的数据框应该如下所示：

1 0.2 2
2 0.5 6 
3 0.7 4 
4 0.3 4

有最简单的方法吗？

Answer 1

dataf[sapply(dataf, function(x) length(unique(x))>1)]