r - 如何增加ggplot中*旋转* y轴上文本和标题之间的距离？

Question

我正在开发一个自定义 ggplot 主题，其中包括水平旋转的 y 轴标签，我想增加刻度标签和轴标签之间的间距。 This post建议调整 vjust参数，但在这种情况下不合适。对齐方式(例如框内的左对齐或右对齐)与该框相对于刻度标签的间距不同。

例如 axis.title.y=element_text(angle=0, vjust=1, hjust=1)) ，然后我得到了正确的对齐方式，但它离刻度标签太近了:



如果我设置 hjust=2那么文本不再正确刷新:



我玩过 margin主题选项，但我认为它们不适用于此处。有任何想法吗？

编辑 这是根据要求进行测试的简单 MWE:

df <- data.frame(x=1:10, y=1:10)
ggplot(df, aes(x,y)) +
    geom_line() +
    theme(axis.title.y=element_text(angle=0, vjust=1, hjust=1)) +
    labs(y="This\nis a\nreally long\naxis\nlabel")

Answer 1

我最终想通了这一点，它需要调整底层的 gtable。

library(ggplot2)
library(grid)
library(gtable)
df <- data.frame(x=1:10, y=1:10)
gg <- ggplot(df, aes(x,y)) +
    geom_line() +
    theme(axis.title.y=element_text(angle=0, vjust=1, hjust=1)) +
    labs(y="This\nis a\nreally long\naxis\nlabel")

# Get the table for the ggplot object
g <- ggplotGrob(gg)

# Insert a new column 0.25 inches wide after the second column
# Use gtable_show_layout(g) to figure out which column number to use
g2 <- gtable_add_cols(g, width=unit(0.25, "in"), pos=2)

# Plot the result
grid.draw(g2)