先对这列排序，取他们的序号，再把序号放到数据框里，删除原序号列。。。（我也是新手，只想到这个办法。。。）
> test
x y
1 1 a
2 5 b
3 7 c
4 9 d
5 10 e
> no <- rank(test[1])
> no
x <NA> <NA> <NA> <NA>
1 2 3 4 5
> test1 <- cbind(test,no)
> test1
x y no
1 1 a 1
2 5 b 2
3 7 c 3
4 9 d 4
5 10 e 5
> test <- test1[c(3,2)]
> test
no y
1 1 a
2 2 b
3 3 c
4 4 d
5 5 e
扫码加好友，拉您进群
全部版块
我的主页
收藏
