行列の各変数に重複する値を数えるループ

Question

これまでのところこのコードがあります。私はいくつの変数がそれらに重複した文字を含んでいるのか見ようとしています。たとえば、変数1に{a、b、c、c、d}がある場合は、これをtrueに戻したいと考えています。 Rのループのためにこれまで行ったことはありません。どんな助け？

wordSoup<-replicate(100,(replicate(5,sample(letters,1)))) 
notUnique=0 

for (i in wordSoup) { 
    if (anyDuplicated(wordSoup[,i])==1) { 
    notUnique=notUnique+1 
    } 
} 

Answer 1

ここにはforループのないオプションがあります。列番号と同じ長さの論理ベクトルを返します。 TRUEは重複を意味し、FALSEはすべての文字がその列で一意であることを意味します。

apply(wordSoup, 2, function(x) any(table(x) > 1)) 

もう一つのアイデアは、独自の文字を取得し、独自の文字の数を確認するためにlengthを使用するuniqueを使用しています。 5より小さい場合は、重複があり、TRUEを返すことを意味します。

apply(wordSoup, 2, function(x) length(unique(x)) < 5)