Расширение ggplot собственными геомами: адаптация масштаба по умолчанию

Фон

Прочитав этот красивый ответ о том, как расширить ggplot и соответствующая виньетка Я пытался понять, как расширить ggplot.

Кратко

Я понимаю, как собираются части, но мне не хватает важной информации: как ggplot определяет диапазон по умолчанию для оси?

Код

Рассмотрим следующий пример с игрушкой:

library(grid)
library(ggplot2)

GeomFit <- ggproto("GeomFit", GeomBar,
                   required_aes = c("x", "y"),
                   setup_data = .subset2(GeomBar, "setup_data"),
                   draw_panel = function(self, data, panel_scales, coord, width = NULL) {
                     bars <- ggproto_parent(GeomBar, self)$draw_panel(data,
                                                                      panel_scales, 
                                                                      coord)
                     coords <- coord$transform(data, panel_scales)    
                     tg <- textGrob("test", coords$x, coords$y * 2 - coords$ymin)
                     grobTree(bars, tg)
                   }
)

geom_fit <- function(mapping = NULL, data = NULL,
                     stat = "count", position = "stack",
                     ...,
                     width = NULL,
                     binwidth = NULL,
                     na.rm = FALSE,
                     show.legend = NA,
                     inherit.aes = TRUE) {

  layer(
    data = data,
    mapping = mapping,
    stat = stat,
    geom = GeomFit,
    position = position,
    show.legend = show.legend,
    inherit.aes = inherit.aes,
    params = list(
      width = width,
      na.rm = na.rm,
      ...
    )
  )
}

set.seed(1234567)
data_gd <- data.frame(x = letters[1:5], 
                      y = 1:5)

p <- ggplot(data = data_gd, aes(x = x, y = y, fill = x)) + 
  geom_fit(stat = "identity")

Что создает этот сюжет:

Проблема

Как видите, часть текста не отображается. Я предполагаю, что ggplot каким-то образом вычисляет диапазоны для оси, и поскольку он не знает о дополнительном пространстве, необходимом для моего textGrob. Как я могу это решить? (Желаемый результат эквивалентен p + expand_limits(y = 10)

Примечание. Конечно, я мог бы довести проблему до конечного пользователя, потребовав добавить ручную шкалу. Но в идеале хотелось бы, чтобы весы были правильно настроены.