X axis labels à 45°

index.Rmd

@@ -242,6 +242,7 @@ renderPlotly({
     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)
@@ -329,6 +330,7 @@ renderPlotly({
     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
 
@@ -369,6 +371,7 @@ renderPlotly({
 
     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
 
@@ -457,6 +460,7 @@ renderPlotly({
     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
 
@@ -497,6 +501,7 @@ renderPlotly({
 
     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
 
@@ -585,6 +590,7 @@ renderPlotly({
     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