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()