Как добавить метки данных на мозаичный график?

Question

С пакетом ggmosaic (работающим с ggplot2) я пытаюсь интегрировать проценты в график, но не могу найти решение. Кто-нибудь знает, как интегрировать проценты в каждом поле, а также названия каждой модальности переменной?

Вот пример с набором данных в R:

data(esoph)
ggplot(data = esoph) +
  geom_mosaic(aes(x = product(tobgp), fill = agegp), na.rm = TRUE) + 
  labs(x = "Tobacco consumption", y = " ", fill = "Age group") + 
  theme(legend.position = "bottom") + 
  scale_y_continuous(labels = percent)