更改基于r的数据帧的值

Question

我有一个矩阵和一个矢量就像

data = matrix(0,nrow=3,ncol=3)
index = c(1,2,1)

nrow(data)=length(index) 我希望ith行和index[i]数据为1，就像

一样

0,0,0
0,0,0
0,0,0

TO

1,0,0
0,1,0
1,0,0