将最后一行更改为

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 Librarieslibrary(ggplot2)library(gridExtra)
#Build Function to Return Element Text ObjectrotatedAxisElementText = 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/180hjust = 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 Rotationsdf    = 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 spaceslibrary(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()

^{创建于2018-11-06由reprex包（v0.2.1）}

通过GitHub搜索相关参数名称找到：https://github.com/search?l=R&； q=element_text+角+90+vJust+org%3Acran&type=Code

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

^{创建于2020-03-11，由reprex包（v0.3.0）创建}

过时-请参阅这个答案以获得更简单的方法

要在没有其他依赖项的情况下获得可读的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 + theme(axis.text.x = element_text(angle = -90, vjust = 0.5, hjust = -1))。

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

ggplot 3.3.0通过提供guide_axis(angle = 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

从#0论点的留档：

与在主题（）/element_text（）中设置角度相比，这也使用一些启发式算法自动选择hJust和vJust你可能需要

或者，它还提供 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（）的情况下绘制水平图，因为它支持双向geom，只需交换x和y轴。