使用ggplot2，我希望在同一行的标题下有两个字幕，但一个左对齐，一个右对齐，以形成如下所示的多面图。
我可以让字幕左对齐：
p <- ggplot(mtcars, aes(mpg, hp)) +
geom_point() +
facet_grid(am~.) +
theme(plot.title=element_text(hjust=0.5))
p + labs(title="Data: mtcars", subtitle="Subtitle (left-aligned)")
或右对齐，
p + labs(title="Data: mtcars", subtitle="Subtitle (right-aligned)") +
theme(plot.subtitle=element_text(hjust=1))
但我似乎无法同时实现两者，除非我将它们组合起来，并在它们之间留出任意数量的空格（这就是我上面绘制图表的方法）。但我不喜欢这个解决方案。还有其他方法吗？