形質の要因毎の連続数をカウントしたい。

Question

データ
b<- cbind(ID=c(rep("a",6), rep("b", 6)), 形質1=c(0,0,1,0,1,1,0,1,1,0,1,1),形質2=c(1,1,1,0,0,0,1,1,1,1,0,1))

b

ID 形質1 形質2
[1,] "a" "0" "1"
[2,] "a" "0" "1"
[3,] "a" "1" "1"
[4,] "a" "0" "0"
[5,] "a" "1" "0"
[6,] "a" "1" "0"
[7,] "b" "0" "1"
[8,] "b" "1" "1"
[9,] "b" "1" "1"
[10,] "b" "0" "1"
[11,] "b" "1" "0"
[12,] "b" "1" "1"

IDと形質2毎にグループ化して形質1をカウントしたいです。
例：IDがa、形質２が１のときの形質２をカウントしたい、結果は、長さ：2、1で、値：０、１になります。
よろしくお願いいたします。

Answer 1

b.0.1<- NULL
b.data.frame<- as.data.frame(b)
b.id<- unique(b.data.frame$ID)
for(i in c(1:length(b.id))){

• b.sub<- subset(b.data.frame, ID== b.id[i])
  

• b.ma<- as.matrix(b.sub)
  

• b.rle<- tapply(b.ma[,2], b.ma[,3], rle)
  

• b.0<- cbind(ID1= as.character(b.id[i]), ID2= 0, Value= b.rle$'0'$values, Length= b.rle$'0'$lengths) 
  

• b.1<- cbind(ID1= as.character(b.id[i]), ID2= 1, Value= b.rle$'1'$values, Length= b.rle$'1'$lengths)
  

• b.0.1<- rbind(b.0.1, b.0, b.1)
  

• }

b.0.1

ID1 ID2 Value Length
4 "a" "0" "0" "1"
6 "a" "0" "1" "2"
2 "a" "1" "0" "2"
3 "a" "1" "1" "1"
11 "b" "0" "1" "1"
7 "b" "1" "0" "1"
9 "b" "1" "1" "2"
10 "b" "1" "0" "1"
12 "b" "1" "1" "1"

このような長いコードで解析できましたがこれより簡単な方法があれば教えてください。