Side-by-side bar chart with columns proportional by group (relative frequency bar chart)
问题 The dataset gender <- c('Male', 'Male', 'Male', 'Female', 'Female', 'Female', 'Male', 'Male', 'Male', 'Female', 'Female', 'Female', 'Female', 'Female', 'Male', 'Female', 'Female', 'Male', 'Female', 'Female') answer <- c('Yes', 'No', 'Yes', 'Yes', 'No', 'No', 'No', 'No', 'No', 'No', 'No', 'Yes', 'No', 'No', 'Yes', 'Yes', 'Yes', 'Yes', 'No', 'Yes') df <- data.frame(gender, answer) is biased towards females: df %>% ggplot(aes(gender, fill = gender)) + geom_bar() My task is to build a graph that