Bar of Pie Chart in R/ggplot?

Hi, and welcome!

A reproducible example, called a reprex is likely to attract more answers, because it doesn't require retracing the steps you may have already taken, like creating a pie chart and a stack bar chart separately. Do you have anything you can share?