刪除所有列

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 

我想刪除具有跨所有rows.ie相同值的列我的數據框應該是這樣的：

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)]