R中提取数据框元素

[yss5930381]

library(readxl)
aa<- read_excel("C:/Users/35939/Desktop/TRD_Mnth.xls")
aa<-as.data.frame(aa)
daima=c(000001,000002,000021,000022,300142,900925)
daima<-as.matrix(daima)
ma<-matrix(rep(0,72),ncol=6)
for(i in 1:6){
k=12*(i-1)+1
for(j in 1:72){
if(aa$Stkcd[j]==daima[i])
ma[,i]=aa$Mretnd[k:j]
}
}

出现错误：Error in ma[, i] = aa$Mretnd[k:j] :
number of items to replace is not a multiple of replacement length

请教大神，哪里出错了
我是想把aa中相同的第一列对应的第三列的元素分别提取出来合并成一个矩阵