Hago un gráfico de unos datos y me sale tal que así.
p %>%
ggplot( aes(y=Y1, x=X1, fill=Y1)) +
geom_density_ridges(alpha=0.5) +
theme_light() +
theme(
legend.position="none",
strip.text.x = element_text(size = 5)
) +
labs(title = "Titulo",
x = "Titulo x",
y = "")+
theme(plot.title = element_text(hjust = 0.5))
Y1 es de tipo factor, y x1 numérica
Digamos el que dibujo toca el margen superior y se corta, y no consigo ampliar el margen de la parte superior.