mirror of
https://github.com/BreizhHardware/TD-R.git
synced 2026-01-18 16:47:34 +01:00
12 lines
410 B
R
12 lines
410 B
R
# Compter le nombre de médailles par genre
|
|
medailles_par_genre <- df_medailles %>%
|
|
group_by(Gender) %>%
|
|
summarise(Nombre_Medailles = n())
|
|
|
|
# Afficher l'histogramme
|
|
ggplot(medailles_par_genre, aes(x = Gender, y = Nombre_Medailles, fill = Gender)) +
|
|
geom_bar(stat = "identity") +
|
|
labs(title = "Répartition des médailles par genre",
|
|
x = "Genre", y = "Nombre de médailles") +
|
|
theme_minimal()
|