Plot age par sexe

app.R

@@ -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