|
|
@@ -186,10 +186,12 @@ server <- function(input, output, session) |
|
|
|
output$plot_age <- renderPlot({ |
|
|
|
data_age() %>% |
|
|
|
ggplot() + |
|
|
|
aes(x = Age) + |
|
|
|
aes(x = Age, fill = Sexe) + |
|
|
|
geom_histogram() + |
|
|
|
scale_fill_manual(values = c("Homme" = "lightblue", "Femme" = "pink")) + |
|
|
|
scale_x_continuous(limits = c(min_age, max_age)) + |
|
|
|
theme(axis.title = element_blank()) |
|
|
|
theme(axis.title = element_blank(), |
|
|
|
legend.position = "none") |
|
|
|
}) |
|
|
|
# Map |
|
|
|
|
|
|
|