在ggplot2

Question

我有一种情况（这里的例子不是 ），我想在左垂直轴和实际绘制的数据之间的绘图中放置辅助信息。这是一个玩具示例-看起来很笨的情节，但说明了问题所在。首先，一个玩具数据集：

toy = data.frame(group = rep(LETTERS[1:2], each = 5), 
    treat = rep(letters[1:5], 2),
    score = c(57, 68, 49, 88, 75,   52, 69, 54, 90, 72),
    time = c(23.5, 14.9, 64.2, 34.8, 31.1,   56.9, 45.5, 32.7, 22.0, 45.3))

和代码：

library(ggplot2)
ggplot(data = toy, aes(x = score, y = treat)) + 
    geom_tile() + geom_tile(aes(x = 32)) + 
    facet_grid(. ~ group) + 
    geom_label(aes_(x = 30, label = ~time, hjust = "right"))

在所示比例下，标签仅部分可见。如果将绘图窗口调整​​为全屏，则它们是完全可见的。但是我需要使标签适合数据的左端和垂直轴之间的位置，并使其完全可见，以便合理调整绘图窗口的大小。

我可以在较小的x值处添加一个不可见点，以腾出更多空间，但是标签的大小为固定大小，因此要使用的x取决于图的大小。另外，如果我缩小窗口尺寸，如果这些标签的尺寸不缩小，那就太好了-就像勾号标签等等都保持不变。 （实际上，这就像在每个面板中都有一个附加的垂直轴，带有不同的标签）。有什么建议吗？