How do I add text in the legend section of a waffle plot in R?

I am trying to create a waffle plot. My data and waffle plot looked like this-

parts=c("Extraction"=397, "Operculectomy"=11, "Medication"=3)

waffle(parts, row=12, colors=c("#CC0000", "#006600", "#669999"))

I want to add some text on the label of the legend section of this plot like below:

Extraction (397/413)

Operculectomy (11/413)

Medication (3/413)