R如何将两两关系转化为0-1矩阵？

 data_1<-data.frame(a=c(rep(1,3),rep(2,2),rep(3,5)),b=rep(c('A','B','C','D','E'),2))
 data_2<- data.frame(a=c(1:3),A=c(1,0,1),B=c(1,0,1),C=c(1,0,1),D=c(0,1,1),E=c(0,1,1))

求助，实例数据如上所示，实际变量有几千个,将两两关系转化为0-1矩阵,类似于购物篮数据
要求：
原始数据:data_1
转化后数据:data_2

> data_1
   a b
1  1 A
2  1 B
3  1 C
4  2 D
5  2 E
6  3 A
7  3 B
8  3 C
9  3 D
10 3 E
> data_2
  a A B C D E
1 1 1 1 1 0 0
2 2 0 0 0 1 1
3 3 1 1 1 1 1