plot the frequency with multiple groups

[sunnystars]

I would like to create a bargraph with four clusters of 3 bars, with the frequency of each season for bananas, apples and pears, with each group in the same color and indicate this in a legend. The frequency of each season must total 100% .
My dataframe is like:

group        season
bananas      season 1
bananas      season 1
bananas      season 2
bananas      season 3
apples       season 1
apples       season 2
apples       season 3
pears        season 1
pears        season 2
pears        season 3
pears        season 3
pears        season 1

I used count to get this dataframe:

library(tidyverse) 
df<- df %>% 
  count(season,group)

#  group        season         value
# bananas       season 1        2
# bananas       season 2        1
# bananas       season 3        1
# apple         season 1        1
# apple         season 2        1
# apple         season 3        1
# pears         season 1        2
# pears         season 2        1
# pears         season 3        2

[williaml]

Something like this?

library(tidyverse)

df <- tibble(group = sample(c("bananas", "apples", "pears"), 15, replace = TRUE),
             season = sample(c("season 1", "season 2", "season 3"), 15, replace = TRUE))

df2 <- df %>% 
  group_by(group) %>% 
  count(season) %>% 
  mutate(prop = n / sum(n))

ggplot(df2, aes(group, prop, fill = season)) +
  geom_col()

![image|482x401](upload://vhT4lCJtJjEKWWlKqfZMzofgcut.png)

Next time make your dataset reproducible:

FAQ: What's a reproducible example (`reprex`) and how do I create one?

Why reprex? Getting unstuck is hard. Your first step here is usually to create a reprex, or reproducible example. The goal of a reprex is to package your code, and information about your problem so that others can run it and feel your pain. Then, hopefully, folks can more easily provide a solution. What's in a Reproducible Example? Parts of a reproducible example: background information - Describe what you are trying to do. What have you already done? complete set up - include any library() calls and data to reproduce your issue. data for a reprex: Here's a discussion on setting up data for a reprex make it run - include the minimal code required to reproduce your error on the data…

[sunnystars]

Thanks, I will keep in mind the format for future posts. No really, I want like the following photo, but the frequency on y-axis . The frequency of each season must total 100%, like this: Season1: banana pears+apple=100%, the same for other seasons

[williaml]

Play around with the numbers and use position_dodge in ggplot2. See how you go.