fix(plot_tipo_caso): added wrap_text to x-axis labels

Ref: #194
epiverse-trace · Jul 31, 2024 · 35ebcca · 35ebcca
1 parent 7c22cc0
commit 35ebcca
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/plotting.R b/R/plotting.R
@@ -1138,7 +1138,10 @@ plot_tipo_caso <- function(data_agrupada,
       caption = fuente_data
     ) +
     obtener_estetica_escala(escala = escala, nombre = "Eventos\n") +
-    ggplot2::scale_x_discrete(labels = etiquetas) +
+    ggplot2::scale_x_discrete(labels = stringr::str_wrap(
+      etiquetas,
+      5
+    )) +
     tema_sivirep()
   return(plot_tipo_casos)
 }