r - 在面板外添加ggplot注释？还是两个头衔？

Question

我正在使用ggplot2和animation包制作动画图。动画的每一帧都包含一个 map ，其中包含我想用作标题/标签的两位信息。

在我看来有两种方法可以做到这一点。

1. 调整绘图边距，使标题边距消失，然后使用 geom_text 添加“标题”作为绘图上的文本注释。
2. 添加第二个标题。 (我尝试用空格填充单个标题来模拟两个标题，但由于字距调整，这会因重复绘图而崩溃。)

第一种方法并不理想，因为我需要对每个帧使用相同的绘图限制，并且我从以纬度/经度测量的 map 范围中获取这些限制。确定标签所需的额外高度会导致单位的困惑。因此，添加第二个标题对我来说在语义上似乎更明智，但在使用 annotation_custom 后，我似乎无法弄清楚。

这是我所追求的模型，显示了两个“标题”，并且每个标题都有单独的对齐方式，以确保它们在重复的帧中保持在适当的位置。我打开了绘图边框以帮助可视化该位置。在最终的图中，这将被删除。

感谢您的帮助!

编辑

感谢巴蒂斯特的路标。我必须使用稍微不同的参数来(a)获得正确的定位和(b)为两个标题使用相同的字体。这是一个例子:

require(gtable)
require(ggplot2)

## Create the basic plot
df <- data.frame(x=1:10, y=1:10)
gg <- ggplot(df, aes(x,y)) + geom_point() + labs(title="Left") +
    theme(plot.title=element_text(hjust=0))

## Get the title style from the original plot
g <- ggplotGrob(gg)
title_style <- g$grobs[[8]]$gp

## Add the second title and plot
g2 <- gtable_add_grob(g, textGrob("Right", x=1, hjust=1, gp=title_style),
                      t=2, l=4, b=2, r=4, name="right-title")
grid.draw(g2)

结果如下:

Answer 1

试试这个

p = qplot(1,1) 
g = ggplotGrob(p)

require(gtable)
g = gtable_add_grob(g, grobTree(textGrob("left", x=0, hjust=0), 
                                textGrob("right", x=1, hjust=1)), 
                    t=1, l=4)

grid.draw(g)