r/ggplot: compute bar plot share within group

Question

I am using ggplot2 to make a bar plot that is grouped by one variable and reported in shares.

I would like the percentages to instead be a percentage of