ggplot2交错轴标签

Question

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

我无法缩短标签，他们会尽可能缩短标签。

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

我看过这里ggplot-hopeful-help，但是在解释发生的事情时遇到了麻烦，所以无法做出有用的版本。

任何想法??

（下面的示例代码......我不太擅长格式化代码，看起来...... sry。）

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

Answer 1

理解与否，似乎工作得很好。在问题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轴标签。 （显然负面因素上升，让我感到惊讶。）

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

更多阅读，there's a whole vignette on ggplot2 theming。

Answer 2

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"))+
theme(axis.text.x = element_text(vjust = grid::unit(c(0, 2), "points"))) + 
theme(axis.title.x = element_text(vjust = -0.6))

实际上the link you reported中讨论的解决方案只需稍加修改即可。 我还添加了

theme(axis.title.x = element_text(vjust = -0.6)) 

降低x轴标签以防止重叠。