У меня есть кадр данных, содержащие ответы на пропеллер конкурс ставки в графах участника.Имена столбцов - это имена участников, а последний ряд содержит общую оценку каждого игрока.Как я могу назвать имена ВСЕХ участников с наибольшим количеством очков (есть потенциал для связей)?
Все ответы хранятся во фрейме данных с именем '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
В последней строке печатается только имя первого выигравшего столбца, а не все имена столбцов, содержащие выигрышный счет.