|
|
|
@@ -173,7 +173,7 @@ server <- function(input, output, session) |
|
|
|
data_age() %>% |
|
|
|
ggplot() + |
|
|
|
aes(x = Age, fill = Sexe) + |
|
|
|
geom_histogram() + |
|
|
|
geom_histogram(binwidth = 5) + |
|
|
|
scale_fill_manual(values = c("Homme" = "lightblue", "Femme" = "pink")) + |
|
|
|
scale_x_continuous(limits = c(min_age, max_age)) + |
|
|
|
theme(axis.title = element_blank(), |
|
|
|
|
