ggplot2交错轴标签

我正在制作一个ggplot。 x 轴是因子，标签很长。

我无法缩短标签，它们已经尽可能短了。

我有兴趣使标签垂直偏移。我的偏好是让每个奇数标签的高度为 0，每个偶数标签的高度距离 x 轴更远 2 个单位。

我看过这里，ggplot-希望帮助 https://stackoverflow.com/questions/27492777/staggered-axis-labels-in-ggplot2，但是很难解释正在发生的事情，因此无法制作一个有用的版本。

有任何想法吗？？

（下面的示例代码...我不太擅长在这里格式化代码，看起来...抱歉。）

library("ggplot2"); 
stack <- data.frame(value =rnorm(n = 1000, sd = 2, mean=34)); stack$fact <- as.factor(rep(1:5, each=1000/5));
ggplot(stack, aes(x=fact, y=value)) + geom_boxplot(aes(fill=fact))+ scale_x_discrete(breaks=c("1", "2", "3", "4", "5"), labels=c("hi","don't suggest I shorten the text","I need long labels", "This is a long factor label","This label is very long"))

不管你明白与否，它似乎运作得很好。在你的问题中调用情节your_plot:

your_plot + theme(axis.text.x = element_text(vjust = grid::unit(c(-2, 0, 2), "points")))

指定首选项theme()是调整 ggplot 装饰的方法。axis.text.x仅修改 x 轴文本，该文本是使用设置的首选项创建的element_text()。您可以在中指定字体大小、字体系列、旋转角度等element_text(). vjust代表“垂直对齐”，因此设置vjust三个值，-2、0 和 2 将这些值应用于连续的 x 轴标签。 （显然负数上升了，这让我感到惊讶。）

Using grid::unit()允许我们指定文本垂直移动的单位（在本例中为点）。看着?grid::units显示您可以使用英寸、厘米或其他几个单位。

唯一的问题是与 x 轴标题重叠。我认为解决这个问题最简单的方法是添加几个换行符"\n"在它之前：

your_plot + 
    theme(axis.text.x = element_text(vjust = grid::unit(c(-2, 0, 2), "points"))) +
    labs(x = "\n\nfact")

另一种解决方案是旋转文本：

your_plot + theme(axis.text.x = element_text(angle = -90, hjust = 0, vjust = 0))

如需更多阅读，有一个关于 ggplot2 主题的完整小插图 http://docs.ggplot2.org/dev/vignettes/themes.html.