From e94b59fb35b163ee84f051292c14fbbbd818ca7f Mon Sep 17 00:00:00 2001 From: Maxime Wack Date: Mon, 6 Mar 2017 23:53:57 +0100 Subject: [PATCH] Plot age par sexe --- app.R | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/app.R b/app.R index dc42457..1253597 100644 --- a/app.R +++ b/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