II_603_agrupaciones_manipulaciones_dataframe_EDA _ Error al ejecutar secuencia

Hola, porfavor podeis echar un ojo a mi fichero R, obtengo un error al ejecutar esta secuencia extraida del file dado como ejemplo.

https://drive.google.com/file/d/1lqHPkunMiCW-_Tir9nc7LB-Sj9pYLVVj/view?usp=sharing

Gracias por confirmar!

Esta es la parte que me da error:

# Summarise + group_by – Paises con más universidades y medias de score

data_sum = data %>%
group_by(Country) %>%
summarise(num_universidades = n(),
Mean_Overall_Score = mean(Overall_Score,na.rm=TRUE),
Sd_Overdall_Score = sd(Overall_Score,na.rm = TRUE),
Median_Overall_Score = median(Overall_Score,na.rm=TRUE),
#Min_Overall_Score = min(Overall_Score,na.rm=TRUE),
Mean_Academic_Reputation_Score = mean(Academic_Reputation_SCORE,na.rm=TRUE),
Mean_Employer_Reputation_Score = mean(Employer_Reputation_SCORE,na.rm=TRUE),
Mean_Faculty_Student_Score = mean(Faculty_Student_SCORE,na.rm=TRUE),
Mean_Citations_Faculty_Score = mean(Citations_Faculty_SCORE,na.rm=TRUE),
Mean_International_Faculty_Score = mean(International_Faculty_SCORE,na.rm=TRUE)
) %>%
arrange(num_universidades)

head(data_sum,10)
—————————————
Error in summarise():
! Problem while computing `Median_Overall_Score = median(Overall_Score, na.rm =
TRUE)`.
Caused by error:
! Median_Overall_Score must return compatible vectors across groups.
i Result type for group 1 (Country = Argentina): <character>.
i Result type for group 3 (Country = Austria): <double>.
Run rlang::last_error() to see where the error occurred.
There were 50 or more warnings (use warnings() to see the first 50)