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

我有一个像这样的数据框

1    1    1    K    1    K    K
2    1    2    K    1    K    K
3    8    3    K    1    K    K
4    8    2    K    1    K    K
1    1    1    K    1    K    K
2    1    2    K    1    K    K

我想删除所有具有相同值（即 K）的列，所以我的结果将是这样的

1    1    1    1    
2    1    2    1   
3    8    3    1  
4    8    2    1  
1    1    1    1 
2    1    2    1  

我尝试按列迭代 for ，但我没有得到任何结果。有任何想法吗？

要选择具有多个值的列（无论类型如何）：

uniquelength <- sapply(d,function(x) length(unique(x)))
d <- subset(d, select=uniquelength>1)

?

（哎呀，Roman 的问题是对的——这也可能会破坏你的第 5 栏）

Maybe (edit：感谢评论！）

isfac <- sapply(d,inherits,"factor")
d <- subset(d,select=!isfac | uniquelength>1)

or

d <- d[,!isfac | uniquelength>1]