From 09ed0b54071adff0204a0115197128ea11be18cc Mon Sep 17 00:00:00 2001
From: Maxime Wack <maximewack@free.Fr>
Date: Thu, 13 Apr 2017 18:20:58 +0200
Subject: [PATCH] =?UTF-8?q?M=C3=A0J=20axis=20text=20angle=20pour=20le=20ra?=
 =?UTF-8?q?pport=20publi=C3=A9?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 CRHAP.Rmd | 6 ++++++
 1 file changed, 6 insertions(+)

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