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

我有这样一个数据框：

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

---

有没有最简单的方法可以做到这一点？

您将如何对行执行此操作？

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