How to make a pyramid plot look better and add legend in R?

Question

I have a dataframe df with some data like below:

dput(df)

df <- structure(list(Types = c("Name1", "Name2", "Name3&qu