答案 0 :(得分:4)
尝试
m1 <- matrix(NA, 7,5)
m1[] <- rank(col(m1)-row(m1), ties.method='first')
m1
# [,1] [,2] [,3] [,4] [,5]
#[1,] 21 26 30 33 35
#[2,] 16 22 27 31 34
#[3,] 11 17 23 28 32
#[4,] 7 12 18 24 29
#[5,] 4 8 13 19 25
#[6,] 2 5 9 14 20
#[7,] 1 3 6 10 15