6. Extras
Esto reemplaza los espacios por saltos de línea para que sean más legibles los títulos.
strwr <- function(str) gsub(" ", "\n", str)
(p1 <- ggplot(df, aes(fill = tipo)) + geom_rect(aes(x = nombres,
xmin = id - 0.45, xmax = id + 0.45, ymin = end,
ymax = start)) +
scale_x_discrete("", breaks = levels(df$nombres),
labels = strwr(levels(df$nombres))) +
theme(legend.position = "none")
)