У меня есть данные, как показано ниже. Я хотел бы получить лучший выбор для каждого пола из следующих данных
subjectID <- c("1", "2", "1", "0", "1", "0", "0", "1", "0", "2",
"0", "0", "2", "2","2","1","2","1","0","2")
gender <- c("M", "M", "F", "M", "M", "F", "M", "M", "M", "F",
"M", "F", "M", "M", "F","M", "F", "M", "F", "F")
selection <- data.frame(subjectID, gender)
subjectID <- c("1", "2", "0")
subject <- c("Maths", "Music", "English")
subjects <- data.frame(subjectID, subject)
Я попытался отобразить варианты в порядке убывания, как показано ниже:
favourite <- sqldf("SELECT a.gender, b.subject, COUNT(a.subjectID) as `no of selections`
FROM selection a
JOIN subjects b
ON (a.subjectID = b.subjectID )
GROUP BY a.subjectID, a.gender
ORDER BY a.gender, `no of selections` DESC
")
НО, я хотел бы чтобы получить следующую таблицу, где я получаю лучший выбор для каждого пола:
gender <- c("F", "M")
subjects <- c("Music", "Maths")
mostfav <- data.frame(gender, subjects)