Can't stack multiple scales

[willgearty]

This example no longer works since the switch from annotate to geom_rect:

p <- ggplot() +
  geom_point(aes(y = runif(1000, 1, 8), x = runif(1000, 0, 1000))) +
  scale_x_reverse() +
  coord_cartesian(xlim = c(0, 100), ylim = c(0,8), expand = FALSE) +
  theme_classic()
p <- gggeo_scale(p, height = .03, abbrv = FALSE)
p <- gggeo_scale(p, dat = "epochs", gap = .03, height = .1, rot = 90, size = 3)
gggeo_scale(p, dat = "stages", gap = .13, height = .1, rot = 90, size = 3)

I guess I'll need a way to figure out if there's already a fill_geo_scale and changed the name of the next fill aes? Or maybe I really SHOULD switch to ggnewscale, since that will switch to a new fill each time the function is called.