例如：
a<-c(1:9)
b<-matrix(a,3,3,byrow=F)
b为：
> b
     [,1] [,2] [,3]
[1,]    1    4    7
[2,]    2    5    8
[3,]    3    6    9

我想把1~9按照S形排序，即生成的结果为：
> b
     [,1] [,2] [,3]
[1,]    1    6    7
[2,]    2    5    8
[3,]    3    4    9


我看了一下参数，好像没有这个功能，因为我有2500个数，想生成S形的矩阵，希望有大神可以回答。