ストレートライニングをチェックするためにRスクリプトを書くにはどうすればいいですか？つまり、任意の行に対して、列のセット内のすべての値が同じ値を持つかどうかを確認します。

Question

参加者が10個の質問のそれぞれに同じ応答をしたかどうかを教えてくれる二分変数を作成します。各行は参加者であり、データフレームにこの新しい変数/ベクトルを作成するための簡単なスクリプトを作成します。たとえば、私のデータが最初の6列のように見える場合、私は7番目の列を作成しようとしています。

ID Item1 Item2 Item3 Item4 Item5 | AllSame 
1 5  5  5  5  5  | Yes 
2 1  3  3  3  2  | No 
3 2  2  2  2  2  | Yes 
4 5  4  5  5  5  | No 
5 5  2  3  5  5  | No 

私はifelse(data$item1==data$item2,1,ifelse(dat$item1==data$item3,0,NA))とここたとえば、別の列を比較し、このセットのソリューションを見てきましたが、私は私の実際のデータセットの10個の列を持っていると私はすべてのチェックをより良い方法があるように持って把握10を互いに対抗させる。私はまた、いくつの等価1を数える変数を作成することができますし、その数が列の数と同じであるかどうかのテストを行いますが、データ内で7つの可能な応答があります。誰かがより良い解決策を望むことを望む。ありがとうございました！

Answer 1

あり、これを行うための多くの方法でもよいが、ここでは

> mydf 
    Item1 Item2 Item3 Item4 Item5 AllSame 
1  5  5  5  5  5 TRUE 
2  1  3  3  3  3 FALSE 
3  2  2  2  2  2 TRUE 
4  5  4  5  5  5 FALSE 
5  5  2  3  5  5 FALSE 

につながる1

mydf <- data.frame(Item1 = c(5,1,2,5,5), 
        Item2 = c(5,3,2,4,2), 
        Item3 = c(5,3,2,5,3), 
        Item4 = c(5,3,2,5,5), 
        Item5 = c(5,3,2,5,5)) 

mydf$AllSame <- rowMeans(mydf[,1:5] == mydf[,1]) == 1 

であり、あなたが本当に「はい」と持っている必要があります場合は「いいえ」、代わりに使用します。何かのように

mydf$AllSame <- ifelse(rowMeans(mydf[,1:5] == mydf[,1]) == 1, "Yes", "No") 

Answer 2

Henryは既に受け入れられている短くて速い作業ソリューションを投稿しました。

mydf <- data.frame(Item1 = c(5,1,2,5,5), 
        Item2 = c(5,3,2,4,2), 
        Item3 = c(5,3,2,5,3), 
        Item4 = c(5,3,2,5,5), 
        Item5 = c(5,3,2,5,5)) 

mydf$AllSame <- apply(mydf, 1, function(row) all(row==row[1])) 

したい場合は、ここで使用されるすべての（）関数は、簡単にTRUEに設定することができna.rm引数を持っている：私はまだ私の意見では、読みやすさにわずかな利点を有しており、この選択肢を追加したいですNAsは無視される。