8.6 Faceting Annotations

g +
    facet_wrap(~state, scales = "free_x")

Grid package scales coordinates between 0 and 1

library(grid)
my_grob <- grobTree(textGrob("Great Recession",
                             x = .2, y = .9, hjust = 0,
                             gp = gpar(col = "black",
                                       fontsize = 10,
                                       fontface = "bold")))

g +
    annotation_custom(my_grob) +
    facet_wrap(~state, scales = "free_x")