增加ggplot2中axis.title和axis.text之间的间距（版本> = 0.9.0）

我目前正在使用 github 上的最新版本的 ggplot2。

在 0.8.9 版本中，我可以执行以下操作来增加 axis.title 和 axis.text 之间的空间：

Before:

ggplot(diamonds, aes(clarity)) + geom_bar() + opts(
    axis.title.x = theme_text(vjust=-1.1)
)

Fix:

ggplot(diamonds, aes(clarity)) + geom_bar() + opts(
    axis.title.x = theme_text(vjust=-1.1),
    plot.margin = unit(c(1, 1, 0.8, 0.5), "lines")
)

并且 axis.title 变得完全可见。

在最新的 ggplot2 github 版本中，plot.margin 对 axis.title 没有影响：

ggplot(diamonds, aes(clarity)) + geom_bar() + opts(
    axis.title.x = theme_text(vjust=-0.2),
    plot.margin = unit(c(1, 1, 2, 0.5), "lines"))

（注意增加的底部边距 - 我无法让plot.background在最新的开发版本中工作）

似乎0.8.9允许axis.title移动到plot.margin创建的额外空间上，但在最新的开发版本中不允许这样做。

在最新的开发版本中是否有新的方法来完成此任务（或快速修复它）？

任何帮助表示赞赏。

如何正确做

Use the margin的属性element_text for axis.title in theme。 我对 x 和 y 使用不同的边距，因为我将 y 标题旋转到水平方向（使其更易于阅读）。

library(ggplot2)
library(gridExtra)

ggplot(diamonds, aes(clarity)) +
    geom_bar() +
    theme(
        axis.title.x = element_text(margin = unit(c(3, 0, 0, 0), "mm")),
        axis.title.y = element_text(margin = unit(c(0, 3, 0, 0), "mm"), angle = 0)
    )

Old hack

opts and theme_textggplot 不再支持。因此，我的快速而肮脏的解决方案是在标题的开头或结尾添加换行符。它可能很丑陋，但可以用最小的努力完成工作。

ggplot(diamonds, aes(clarity)) +
    geom_bar() +
    xlab("\nClarity") + ylab("Count\n")