删除特定数值重复的列

给一个小朋友写的脚本
原dataframe：

> a <- c(1,2,3,3,7)
> b <-- c(4,5,6,6,8)
> c <- c(6,10,8,7,3)
> d <- data.frame(a,b,c)
>
d a b  c
1 1 4  6
2 2 5 10
3 3 6  8
4 3 6  7
5 7 8  3

需求：删除数据框中6重复的列，脚本如下

temp=c()
for (i in 1:ncol(d)){
  temp[i]=ifelse(sum(d[,i]==6)<2,i,0)
}
data=d[,c(temp)]

image.png

不知道有没有简单的函数可以代替。