給一個(gè)小朋友寫的腳本
原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
需求：刪除數(shù)據(jù)框中6重復(fù)的列，腳本如下
temp=c()
for (i in 1:ncol(d)){
temp[i]=ifelse(sum(d[,i]==6)<2,i,0)
}
data=d[,c(temp)]
image.png
不知道有沒有簡單的函數(shù)可以代替。
