Сложный заговор RA с возрастными группами

data$group <- cut(data$Age, breaks = c(30,33,36,39), labels = c("30-33","33-36","36-39"), right = TRUE)
ggplot(data, aes(x = group, fill = Gender)) + 
  geom_bar()
Wandering Willet