Мы можем использовать pmax
, чтобы получить максимум`
do.call(pmax, c(df1[-1], na.rm = TRUE))
Или найти mov ie с максимальным рейтингом
apply(df1[-1], 1, function(x) names(x)[which.max(x)])
Средний рейтинг для каждого мова ie, мы можем найти с colMeans
colMeans(df1[-1], na.rm = TRUE)
Чтобы получить 5 лучших фильмов, один из вариантов - конвертировать в «длинный» формат
library(dplyr)
library(tidyr)
df1 %>%
summarise_at(vars(starts_with('Movie')), max, na.rm = TRUE) %>%
pivot_longer(everything(), values_drop_na = TRUE) %>%
top_n(5, wt = value)