I have a data frame, which looks like that:
P1 P2 P3 T1 T2 T3 I1 I2 1 2 3 5 52 43 61 6 \"b\" 2 6 4 3 72 NA 59 1 \"a\" 3
Simple one without rank :
rum[order(rum$I1, -rum$I2, decreasing = TRUE), ]