diff --git a/CRHAP.Rmd b/CRHAP.Rmd index fe677a8..01e034a 100644 --- a/CRHAP.Rmd +++ b/CRHAP.Rmd @@ -76,6 +76,7 @@ CRH() %>% ggplot(aes(x = Mois, fill = Notes)) + geom_bar(position = "fill") + ylab("Proportion") + + theme(axis.text.x = element_text(angle = -45, hjust = 1)) + ggtitle("Proportion des #CRHA et #CRHP par mois de sortie du RSS") -> p ggplotly(p) @@ -156,6 +157,7 @@ CRH() %>% ggplot(aes(x = Mois, y = pourcent, colour = Pole, group = Pole)) + geom_line(stat = "identity") + geom_point() + + theme(axis.text.x = element_text(angle = -45, hjust = 1)) + ylab("Proportion de #CRHA") + ggtitle("Évolution des proportions de #CRHA par pôle") -> p @@ -192,6 +194,7 @@ CRH_sans_seance() %>% ggplot(aes(x = Mois, fill = Notes)) + geom_bar(position = "fill") + + theme(axis.text.x = element_text(angle = -45, hjust = 1)) + ylab("Proportion") + ggtitle("Proportion des #CRHA et #CRHP par mois de sortie du RSS") -> p @@ -273,6 +276,7 @@ CRH_sans_seance() %>% ggplot(aes(x = Mois, y = pourcent, colour = Pole, group = Pole)) + geom_line(stat = "identity") + geom_point() + + theme(axis.text.x = element_text(angle = -45, hjust = 1)) + ylab("Proportion de #CRHA") + ggtitle("Évolution des proportions de #CRHA par pôle") -> p @@ -309,6 +313,7 @@ CRH_seance() %>% ggplot(aes(x = Mois, fill = Notes)) + geom_bar(position = "fill") + + theme(axis.text.x = element_text(angle = -45, hjust = 1)) + ylab("Proportion") + ggtitle("Proportion des #CRHA et #CRHP par mois de sortie du RSS") -> p @@ -392,6 +397,7 @@ CRH_seance() %>% ggplot(aes(x = Mois, y = pourcent, colour = Pole, group = Pole)) + geom_line(stat = "identity") + geom_point() + + theme(axis.text.x = element_text(angle = -45, hjust = 1)) + ylab("Proportion de #CRHA") + ggtitle("Évolution des proportions de #CRHA par pôle") -> p