Para que el texto de las etiquetas de marca sea completamente visible y se lea en la misma dirección que la etiqueta del eje y, cambie la última línea a

q + theme(axis.text.x=element_text(angle=90, hjust=1))

Utilizar + coord_flip().

En "R for Data Science", Wickham y Grolemund hablan de este problema exacto. En el Capítulo 3.8, Ajustes de posición , escriben:

coord_flip() cambia los ejes x e y. Esto es útil (por ejemplo), si desea gráficos de caja horizontales. También es útil para etiquetas largas:es difícil conseguir que encajen sin superponerse en el eje X.

Aplicando esto a su parcela, solo agregamos + coord_flip() a la ggplot:

data(diamonds)
diamonds$cut <- paste("Super Dee-Duper",as.character(diamonds$cut))

qplot(cut,carat,data = diamonds, geom = "boxplot") +
  coord_flip()

Y ahora los títulos super largos se extienden horizontalmente y son muy fáciles de leer!

Me gustaría proporcionar una solución alternativa, una solución robusta similar a lo que estoy a punto de proponer se requería en la última versión de ggtern, desde la introducción de la función de rotación de canvas.

Básicamente, es necesario determinar las posiciones relativas utilizando trigonometría, mediante la construcción de una función que devuelve un objeto element_text, dado ángulo (es decir,grados) y posicionamiento (es decir,uno de x, y, superior o derecha) información.

#Load Required Libraries
library(ggplot2)
library(gridExtra)

#Build Function to Return Element Text Object
rotatedAxisElementText = function(angle,position='x'){
  angle     = angle[1]; 
  position  = position[1]
  positions = list(x=0,y=90,top=180,right=270)
  if(!position %in% names(positions))
    stop(sprintf("'position' must be one of [%s]",paste(names(positions),collapse=", ")),call.=FALSE)
  if(!is.numeric(angle))
    stop("'angle' must be numeric",call.=FALSE)
  rads  = (angle - positions[[ position ]])*pi/180
  hjust = 0.5*(1 - sin(rads))
  vjust = 0.5*(1 + cos(rads))
  element_text(angle=angle,vjust=vjust,hjust=hjust)
}

, Francamente, en mi opinión, creo que un 'auto' opción debe estar disponible en ggplot2 para los argumentos hjust y vjust, al especificar el ángulo, de todos modos, vamos a demostrar cómo funciona lo anterior.

#Demonstrate Usage for a Variety of Rotations
df    = data.frame(x=0.5,y=0.5)
plots = lapply(seq(0,90,length.out=4),function(a){
  ggplot(df,aes(x,y)) + 
    geom_point() + 
    theme(axis.text.x = rotatedAxisElementText(a,'x'),
          axis.text.y = rotatedAxisElementText(a,'y')) +
    labs(title = sprintf("Rotated %s",a))
})
grid.arrange(grobs=plots)

Que produce lo siguiente: