我有一个图，其中x轴是一个标签很长的因子。虽然可能不是理想的可视化，但现在我想简单地将这些标签旋转为垂直。我已经用下面的代码解决了这一部分，但正如你所看到的，标签并不完全可见。
data(diamonds)
diamonds$cut <- paste("Super Dee-Duper",as.character(diamonds$cut))
q <- qplot(cut,carat,data=diamonds,geom="boxplot")
q + opts(axis.text.x=theme_text(angle=-90))
当前回答
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
其他回答
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创建
使用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轴上不重叠地匹配。
过时-查看此答案以了解更简单的方法
要在没有附加依赖项的情况下获得可读的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））。
所有这些都已经在这个答案的评论中讨论过了，但我经常回到这个问题，所以我想要一个答案，我可以不阅读评论就直接复制。
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=代码
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
