按多列对数据帧进行排序(Sorting a dataframe by multiple columns)

 我想对数据框进行排序，而“名称”列中的团队名称保留在“评级”列中的评级。 例如，ne的评分最高为13.62。 我需要将“ne”和“13.62”分类到第一个位置。 这是我的一些代码： 
 
x <-t(nfl_data)
y <- solve(x)
myfun = function(i) round( (1/13)*(sum(x[,i])) + mean(y[,i]), digits=2 )

ratings = numeric(32)
for (i in 1:32){
    ratings[i] = myfun(i)
}

teams <- c('ari','atl','bal','buf','car','chi','cin','cle','dal',
        'den','det','grn','hou','ind','jac','kc','mia','min','ne',
        'no','nyj','nyg','oak','phi','pit','sd','sea','sf','stl',
        'tb','tn','was')

df <- data.frame(teams,ratings)
df[with(df, order(teams, -ratings)), ] 
 
 这是df的示例输出： 
 
     teams ratings
 1    ari   -3.73
 2    atl    9.46
 3    bal    2.31
 4    buf   -5.46
 5    car   -0.69
 6    chi    7.57
 7    cin    6.69
 8    cle   -4.23
 
 如果我尝试运行有序数据帧代码，我会得到相同的结果。 我究竟做错了什么？ 

I wanted to sort a data frame while the team names in the "name" column stay with the ratings in the "ratings" column. For example, ne has the highest rating of 13.62. I need both "ne" and "13.62" to be sorted to the first position. Here is some of my code:
 
x <-t(nfl_data)
y <- solve(x)
myfun = function(i) round( (1/13)*(sum(x[,i])) + mean(y[,i]), digits=2 )

ratings = numeric(32)
for (i in 1:32){
    ratings[i] = myfun(i)
}

teams <- c('ari','atl','bal','buf','car','chi','cin','cle','dal',
        'den','det','grn','hou','ind','jac','kc','mia','min','ne',
        'no','nyj','nyg','oak','phi','pit','sd','sea','sf','stl',
        'tb','tn','was')

df <- data.frame(teams,ratings)
df[with(df, order(teams, -ratings)), ] 
 
Here is the sample output of df:
 
     teams ratings
 1    ari   -3.73
 2    atl    9.46
 3    bal    2.31
 4    buf   -5.46
 5    car   -0.69
 6    chi    7.57
 7    cin    6.69
 8    cle   -4.23
 
I get the same results if I try running the ordered data frame code. What am I doing wrong?

原文：https://stackoverflow.com/questions/20710990