ペアワイズの比較を可能にするために、このワイドテーブルをRで再構成するにはどうすればよいですか？

Question

Iは、以下のデータを有する：

structure(list(id = c(174L, 187L, 188L, 190L, 213L, 234L), p7 = c(1L, 
1L, NA, 1L, 0L, 1L), p4 = c(1L, NA, NA, 1L, 1L, 1L), p3 = c(1L, 
1L, 1L, 1L, NA, 1L), p6 = c(1L, NA, NA, 1L, 1L, 1L), p1 = c(1L, 
1L, 1L, 1L, NA, 1L), p2 = c(1L, 1L, 1L, 1L, 1L, 1L), p5 = c(1L, 
0L, NA, 1L, NA, 1L), p8 = c(1L, NA, NA, 1L, 1L, 1L), q1 = c(1L, 
1L, NA, NA, NA, NA), q2 = c(NA, NA, 0L, NA, NA, NA), q3 = c(1L, 
1L, 1L, NA, 0L, 0L), q4 = c(NA, NA, NA, 0L, 0L, 0L), q5 = c(NA, 
1L, 0L, 1L, 0L, 1L), q6 = c(1L, NA, 1L, 1L, 0L, NA), q7 = c(0L, 
NA, 0L, 0L, NA, 1L), q8 = c(1L, NA, 0L, 0L, 0L, 0L)), .Names = c("id", 
"p7", "p4", "p3", "p6", "p1", "p2", "p5", "p8", "q1", "q2", "q3", 
"q4", "q5", "q6", "q7", "q8"), row.names = c(NA, 6L), class = "data.frame") 

を、私は最初の列はidが8回繰り返さ含むデータフレームを必要とし、第2列は、（この順番で）pで標識されたすべての値が含まれ、そして3列目には、qというラベルの付いたすべての値がその順に表示されます。私は対応するpとqのデータポイントの間でペアワイズ比較を実行できるようにこれが必要です。

ヒントヘッド（両方）：あなたは、単に使用して表示できるよう

Answer 1

library(reshape2) 

df = structure(list(id=c(174L,187L,188L,190L,213L,234L),p7=c(1L, 
1L,NA,1L,0L,1L),p4=c(1L,NA,NA,1L,1L,1L),p3=c(1L, 
1L,1L,1L,NA,1L),p6=c(1L,NA,NA,1L,1L,1L),p1=c(1L, 
1L,1L,1L,NA,1L),p2=c(1L,1L,1L,1L,1L,1L),p5=c(1L, 
0L,NA,1L,NA,1L),p8=c(1L,NA,NA,1L,1L,1L),q1=c(1L, 
1L,NA,NA,NA,NA),q2=c(NA,NA,0L,NA,NA,NA),q3=c(1L, 
1L,1L,NA,0L,0L),q4=c(NA,NA,NA,0L,0L,0L),q5=c(NA, 
1L,0L,1L,0L,1L),q6=c(1L,NA,1L,1L,0L,NA),q7=c(0L, 
NA,0L,0L,NA,1L),q8=c(1L,NA,0L,0L,0L,0L)),.Names=c("id", 
"p7","p4","p3","p6","p1","p2","p5","p8","q1","q2","q3", 
"q4","q5","q6","q7","q8"),row.names=c(NA,6L),class="data.frame") 

p = melt(df, id.vars=c("id"),measure.vars=c("p7", "p4", "p3", "p6","p1", "p2", "p5", "p8"), variable.name="p") 
q = melt(df, id.vars=c("id"),measure.vars=c("q1", "q2", "q3", "q4","q5", "q6", "q7", "q8"), variable.name="q") 
both = cbind(p, q) 

Answer 2

我々は、複数のmeasurepatterns

library(data.table) 
melt(setDT(df), measure = patterns("^p\\d+", "^q\\d+"), 
        value.name = c("p", "q"), variable.name = "grp")