在面板外添加 ggplot 注释？还是两个称号？

Question

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

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

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

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

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

感谢您的帮助！

编辑

感谢 Baptiste 提供路标。我不得不使用稍微不同的参数来（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)

Answer 2

基于grid包的解决方案

require(ggplot2)
require(grid)

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))
gg
grid.text("Right", x = unit(0.95, "npc"), y = unit(0.96, "npc"))

Answer 3

替代 annotate 并关闭剪辑（不推荐）

p = qplot(1,1) + annotate("text", label="left", 
                          x=-Inf, y=Inf, vjust=-1, hjust=0) 
g = ggplotGrob(p)
g$layout$clip[g$layout$name == "panel"] = "off"
grid.draw(g)