ggplot2中的旋转和间距轴标签

将最后一行更改为

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

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

https://learnr.files.wordpress.com/2009/03/immigration_b4.png?w=416&h=415

上图来自 this blog post。

---

使用 coord_flip()

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

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

https://i.stack.imgur.com/kCRXo.png

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

https://i.stack.imgur.com/QHVDW.png

在 R for Data Science 的第 3.9 章中，Wickham 和 Grolemund 谈到了这个确切的问题：

coord_flip() 切换 x 和 y 轴。如果您想要水平箱线图，这很有用（例如）。它对于长标签也很有用：很难在不重叠 x 轴的情况下让它们适合。

---

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

https://i.imgur.com/h7AYZOi.png

从 the documentation of the angle argument：

与在 theme() / 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

https://i.imgur.com/5XmAYZk.png

---

要使刻度标签上的文本完全可见并以与 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)

产生以下内容：

https://i.stack.imgur.com/orUEV.png

---

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

https://i.imgur.com/8oFlouO.png

^{由 reprex package (v0.2.1) 于 2018 年 11 月 6 日创建}

通过 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))

https://i.imgur.com/d5uCPkT.png

请注意，element_text 的垂直/水平对齐参数 vjust/hjust 与文本相关。因此，vjust 负责水平 对齐。

如果没有 vjust = 0.5，它将如下所示：

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

https://i.imgur.com/qUZN7kY.png

如果没有 hjust = 1，它将如下所示：

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

https://i.imgur.com/Wvbjn5Q.png

如果出于某种（有线）原因您想将刻度标签顺时针旋转 90°（以便可以从左侧读取），您需要使用：q + theme(axis.text.x = element_text(angle = -90, vjust = 0.5, hjust = -1))。

所有这些都已在 this answer 的评论中讨论过，但我经常回到这个问题，以至于我想要一个答案，我可以从中复制而无需阅读评论。

---

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

https://i.imgur.com/udGPWCg.png

^{由 reprex package (v0.3.0) 于 2020 年 3 月 11 日创建}

---

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

---