使用 cowplot 将 x 轴切换到顶部时左对齐轴标签

Question

我正在尝试制作一个相关热图，其中使用 cowplot::switch_axis_position 将 x 轴移动到顶部。我有不同长度的轴标签，我希望标签左对齐（或者更确切地说是底部对齐，因为它们旋转了 90 度）。虽然我设法对齐了标签，但它们被移到了图的上方。

library(reshape2)
library(ggplot2)
library(cowplot)

# some toy data
set.seed(1)
mydata <- mtcars[, c(1, 3, 4, 5, 6, 7)]

# to show difference in justification better, make names of unequal length 
names(mydata) = paste0(sample(c("mtcars_", ""), 6, replace = TRUE), names(mydata))
cormat <- round(cor(mydata), 2)

melted_cormat <- melt(cormat)
head(melted_cormat)

首先是 x 轴移到顶部的图，标签垂直居中：

plot <- ggplot(data = melted_cormat, aes(x=Var1, y=Var2, fill=value)) + 
        geom_tile() +
        theme_bw(base_size=20) + xlab("") + ylab("") +
        theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 0.5))
ggdraw(switch_axis_position(plot, 'x'))

然后我使用与上面相同的代码，但使用 hjust = 0 来左对齐 x 轴文本。它确实对齐了文本，但是文本移动得离图形很远，所以变量名被截断了：

有什么解决办法吗？

Answer 1

请注意：CRAN 上 `cowplot` 的最新版本中不再存在此错误。

旧答案：

这似乎是 angle = 90 特例的错误。我们可以通过向 angle.

添加任意小的值来避免这种情况

plot <- ggplot(data = melted_cormat, aes(x=Var1, y=Var2, fill=value)) + 
  geom_tile() + theme_bw(base_size=20) + xlab("") + ylab("")+
  theme(axis.text.x=element_text(angle=90 + 1e-09, hjust = 0, vjust=1)) +
  coord_equal(expand = 0)
ggdraw(switch_axis_position(plot, 'x'))

使用 cowplot 将 x 轴切换到顶部时左对齐轴标签

Left-aligned axis labels when using cowplot to switch x axis to top

r

ggplot2

cowplot

请注意：CRAN 上 cowplot 的最新版本中不再存在此错误。

旧答案：

请注意：CRAN 上 `cowplot` 的最新版本中不再存在此错误。