How to plot the proportions in mosaic plot in R



The above mosaic plot shows the distribution of data based on gender and smoking frequency.Now the proportions are:

Smoke       Female       Male
  Heavy 0.02109705 0.02531646
  Never 0.41772152 0.37552743
  Occas 0.03797468 0.04219409
  Regul 0.02109705 0.05063291

How do I display these values in the mosaic plot as labels?