I apologize for the confusing title – I wasn’t quite sure how to phrase what I wanted.

The dataset that I am working on is a subdataset I created from my main data. It looks something like this:

There are 16 other rows but this is just a small section of my dataset. Malegrossing is calculated for each genre. I am going to add another variable that calculates Femalegrossing – I know how to do this.

So far, the current dataset I am working with was obtained from the following code being repeated and ‘cbind’ for each genre. There where issues with the raw data I was using and this was the only way we could work with it instead of against it.

genre = "Animation", raw_data %>% filter(Animation == 1) %>% summarise(meangross = mean(InflatedGross),meanBudget = mean(InflatedBudget), Malegross = ((mean(Proportion_male))*meangross)))

The adding of the variables Malegrossing and Femalegrossing will always equal to meanGrossing.

I want to present the information in something like this:

Y axis is meangross. X axis is each genre category. Each bar graph is composed of two colors, blue and pink totaling up to the meangross showing how much they each make up the entire grossing.

Please let me know if more clarification is needed.