有以下程序：
x<-c(176,176,96,288,112,48,256,144,192,176,160,128,288,176,240,192,240,288,320,144,192,336,192,240,144,288,144,352,144,144,96,240,192,64,288,32,240,240,192,320,176,192,240,192,192,240,176,192,192,192)
a<-rnorm(50,0,1)  #利用正态分布产生一组随机数
rank(a)  #求随机数的秩
b<-rank(a)
c<-x[b[1:5]]  #利用随机数的秩将X分组   
这个只能得到第一组的分组结果

我想知道除了一组一组输入之外，怎样可以一次得到所有的分组结果？