我希望你也考虑这个解决方案。
数据生成
dt<-data.frame("id"=sample(3,5,replace = TRUE),value=sample(5))
m<-merge(dt, dt)
然后
IDs<-unique(m[,1])
i<-1
res<-NULL
while(i<=length(IDs)){
res<-rbind(res, c(IDs[i],m[m[,1]==IDs[i],2]))
i<-i+1
}
res
您可以使用rbind
,或者rbind.na
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句