我有一个数据框，其中包含参与者对专项竞争的响应。列的名称是参与者的名称，最后一行包含每个玩家的总分。我该如何称呼所有得分最高的参与者（有潜在的联系）的名字？
所有响应都存储在名为“ answers.dfr”的数据框中，其中1表示正确的响应，0表示错误的响应。我能够获得列总和，将每个球员的总得分计入'answers.dfr，但是当我尝试调用包含最高分的列的名称时，我只会得到具有最高分的第一列的名称而是包含最高分数（有多个）的所有列的名称。如何获得打印所有获奖姓名的信息？
scores = colSums(answers.dfr) # total scores of each player
answers.dfr = rbind(answers.dfr, scores) # add total scores to df
winning.score = max(answers.dfr["scores",]) # calculate winning score
colnames(answers.dfr)[apply(answers.dfr["scores",],1,winning.score)]
# print names of winners
最后一行仅显示第一个获胜的列名称，而不是包含获胜分数的所有列名称。