Измените последнюю строку на

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

По умолчанию оси выравниваются по центру текста даже при повороте. Когда вы поворачиваете +/- 90 градусов, вы обычно хотите, чтобы он был выровнен по краю:

Изображение выше взято из этого сообщения в блоге.

Используйте coord_flip()

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

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

Добавить str_wrap()

# wrap text to no more than 15 spaces
library(stringr)
diamonds$cut2 <- str_wrap(diamonds$cut, width = 15)
qplot(cut2, carat, data = diamonds, geom = "boxplot") +
  coord_flip()

В главе 3.9 R для науки о данных , Уикхэм и Гролемунд отвечают именно на этот вопрос:

Чтобы текст меток галочки был полностью видим и читался в том же направлении, что и метка оси Y, измените последнюю строку на

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

ggplot 3.3.0 исправляет это, предоставляя guide_axis(angle = 90) (как guide аргумент в scale_.. или как x аргумент для guides):

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

ggplot(diamonds, aes(cut, carat)) +
  geom_boxplot() +
  scale_x_discrete(guide = guide_axis(angle = 90)) +
  # ... or, equivalently:
  # guides(x =  guide_axis(angle = 90)) +
  NULL

Из документации по аргументу angle:

По сравнению с установкой угла в theme () / element_text (), здесь также используются некоторые эвристики для автоматического выбора hjust и vjust, которые вы, вероятно, захотите.

В качестве альтернативы он также предоставляет guide_axis(n.dodge = 2) (как guide аргумент для scale_.. или как x аргумент для guides), чтобы преодолеть проблему чрезмерного вывода на график путем уклонения от меток по вертикали. В этом случае это работает неплохо:

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

ggplot(diamonds, aes(cut, carat)) + 
  geom_boxplot() +
  scale_x_discrete(guide = guide_axis(n.dodge = 2)) +
  NULL

Я хотел бы предложить альтернативное решение, надежное решение, подобное тому, что я собираюсь предложить, требовалось в последней версии ggtern, так как появилась функция поворота холста.

По сути, вам нужно определить относительные положения с помощью тригонометрии, создав функцию, которая возвращает объект element_text, заданный угол (то есть градусы) и информацию о позиционировании (то есть одно из значений x, y, сверху или справа).

#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)
}

Честно говоря, на мой взгляд, я считаю, что параметр «auto» должен быть доступен в ggplot2 для аргументов hjust и vjust, в любом случае, при указании угла, давайте продемонстрируем, как это работает.

#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)

Что дает следующее:

Пакет ggpubr предлагает ярлык, который по умолчанию выполняет правильные действия (выравнивание текста по правому краю, текстовое поле с выравниванием по центру для отметки):

library(ggplot2)
diamonds$cut <- paste("Super Dee-Duper", as.character(diamonds$cut))
q <- qplot(cut, carat, data = diamonds, geom = "boxplot")
q + ggpubr::rotate_x_text()

^{Создано 6 ноября 2018 г. пакетом REPEX (v0.2.1)}

Найдено с помощью поиска GitHub по соответствующим именам аргументов: https://github.com/search?l=R&q=element_text+angle+90+vjust+org%3Acran&type=Code

УСТАРЕЛО - см. этот ответ для более простого подхода.

Чтобы получить читаемые метки x без дополнительных зависимостей, вы хотите использовать:

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

При этом метки-метки поворачиваются на 90 ° против часовой стрелки и выравниваются по вертикали на концах (hjust = 1) и их центры по горизонтали с соответствующей меткой-меткой (vjust = 0.5).

Полный пример:

library(ggplot2)
data(diamonds)
diamonds$cut <- paste("Super Dee-Duper",as.character(diamonds$cut))
q <- qplot(cut,carat,data=diamonds,geom="boxplot")
q + theme(axis.text.x = element_text(angle = 90, hjust = 1, vjust = 0.5))

Обратите внимание, что параметры выравнивания по вертикали / горизонтали _5 _ / _ 6_ из element_text относятся к тексту. Следовательно, vjust отвечает за горизонтальное выравнивание.

Без vjust = 0.5 это выглядело бы так:

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

Без hjust = 1 это выглядело бы так:

q + theme(axis.text.x = element_text(angle = 90, vjust = 0.5))

Если по какой-то (проводной) причине вы хотите повернуть метки на 90 ° по часовой стрелке (чтобы их можно было читать слева), вам нужно будет использовать: q + theme(axis.text.x = element_text(angle = -90, vjust = 0.5, hjust = -1)).

Все это уже обсуждалось в комментариях к этому ответу, но я возвращаюсь к этому вопросу так часто, что хочу ответ, из которого я могу просто скопировать, не читая комментариев.

Альтернативой coord_flip() является использование пакета ggstance. Преимущество состоит в том, что это упрощает объединение графиков с графиками других типов, и вы можете, что, возможно, более важно, установить фиксированные коэффициенты масштабирования для вашей системы координат.

library(ggplot2)
library(ggstance)

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

ggplot(data=diamonds, aes(carat, cut)) + geom_boxploth()

^{Создано 11 марта 2020 г. пакетом REPEX (v0.3.0)}