r - R の列ごとに特定の行に割り当てるためのベクトル化されたソリューション

Question

私は3つの行列を持っています:

a<-sapply(1:300, function(x)  sample(1:100,100*0.8,replace=F))

b<-sapply(1:300, function(x) sample(1:2,100*0.8, replace=TRUE)) 

c<-matrix(data=NA, nrow=100, ncol=300)

次の課題を行うように割り当てたいと思います。

1. c[,1]にある行を選択し、それらa[,1]に b[,1] を割り当てます。
2. c[,1:300]、a[,1:300]、すべてに対してこれを行いますb[,1:300]

1 つの列については、次のようにします。

c[a[,1],1]<-b[,1] 

しかし、すべての列に対してこれを行いたいと思います。

これに対するベクトル化されたソリューションはありますか?