R循环程序如何提取每一步数据

小菜刚学R，想请教下如何把for循环里面的每一步数据提取出来。
程序如下：

1. no<-c(1,1,1,1,1,2,2,2,2,2,3,3,3,4,4,4,4,4,5,5)
   
2. sta<-sample(20)
   
3. a<-data.frame(no,sta)
   
4. u<-list()
   
5. for (i in c(1:5)) {
   
6.   u<-diff(a[no==i,"sta"])
   
7.   uu<-c(0,u)
   
8. }

复制代码

我想如何把for循环的每一步数据结果提取出来，如何编程呢？。
如果for程序改为

1. u<-list()
   
2. for (i in c(1:5)) {
   
3.   u[i]<-diff(a[no==i,"sta"])
   
4.   uu<-c(0,u[i])
   
5. }

复制代码

会显示“ number of items to replace is not a multiple of replacement length” 错误。求教了！！

f<-function(x){u<-as.vector(diff(x))
uu<-c(0,u)
return(uu)
}
qq<-by(a[,"sta"],INDICES = list(a$no),FUN=f)
install.packages("reshape")
library(reshape)
melt.list(qq)
a<-transform(a,qq=qq$value)