MàJ axis text angle pour le rapport publié

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