将最后一行更改为

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

默认情况下，即使旋转，轴也会在文本中心对齐。旋转+/-90度时，通常希望它在边缘对齐：

上图来自这篇博客文章。

要使记号标签上的文本完全可见，并以与y轴标签相同的方向读取，请将最后一行更改为

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

我想提供另一种解决方案，一种与我即将提出的解决方案类似的健壮解决方案，自从引入画布旋转功能以来，最新版本的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)
}

坦率地说，在我看来，我认为应该在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)

产生以下结果：

使用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()

在《数据科学R》第3.9章中，Wickham和Grolemund谈到了这个确切的问题：

coord_flip（）切换x轴和y轴。这很有用（例如），如果您需要水平方框图。它对长标签也很有用：很难使它们在x轴上不重叠地匹配。

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

由reprex软件包（v0.2.1）于2018-11-06创建

通过GitHub搜索相关参数名称找到：https://github.com/search?l=R&q=element_text+角度+90+vjust+org%3cran&type=代码

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

由reprex软件包（v0.3.0）于2020-03-11创建

过时-查看此答案以了解更简单的方法

要在没有附加依赖项的情况下获得可读的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))

注意，element_text的垂直/水平对齐参数vjust/hjust是相对于文本的。因此，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+主题（axis.text.x=element_text（角度=-90，vjust=0.5，hjust=-1））。

所有这些都已经在这个答案的评论中讨论过了，但我经常回到这个问题，所以我想要一个答案，我可以不阅读评论就直接复制。

ggplot 3.3.0通过提供guide_axis（角度=90）（作为scale_..的guide参数或作为guides的x参数）来解决此问题：

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

根据角度参数的文档：

与在theme（）/element_text（）中设置角度相比使用一些启发式方法自动选择你可能想要。

或者，它还提供guide_axis（n.dodge=2）（作为scale_..的guide参数或guides的x参数），通过垂直避开标签来克服过度绘制问题。在这种情况下，它工作得很好：

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

同样使用ggplot2 3.3+，我们可以制作没有coord_flip（）的水平图，因为它支持双向几何图形，只需交换x轴和y轴。https://cmdlinetips.com/2020/03/ggplot2-2-3-0-is-here-two-new-features-you-must-know/