如何连接多个Boxplot？

Question

我试着画出不同年龄的男性和女性在费用函数上的差异。

我想创建类别1= Age<25，2= Age25-45，3= Age>45，4= Age45-55，5=Age >55

ggplot(Adv.csv，aes(Age<25，AveMonthSpend)) +geom_boxplot(aes(颜色=性别))

AveMonthSpend(Adv.csv，aes(“25-45岁”，AveMonthSpend)) +geom_boxplot(aes(颜色=性别))

ggplot(Adv.csv，aes(Age>45，AveMonthSpend)) +geom_boxplot(aes(颜色=性别))

AveMonthSpend(Adv.csv，aes(“45-55岁”，AveMonthSpend)) +geom_boxplot(aes(颜色=性别))

ggplot(Adv.csv，aes(Age>55，AveMonthSpend)) +geom_boxplot(aes(颜色=性别))

我想将所有这些图放在同一张图中，以比较结果来源：https://www.kaggle.com/philboaz/kernel8523b5e9dc/edit

Answer 1

您可能想查看一下cut()

library(tidyverse)

#generate Dataset
data <- tibble(Age = sample(12:99, 50,T), 
               AveMonthSpend = rnorm(50, 100,15), 
               Gender = sample(c('f','m'),50,T)) 

# group data and plot
data %>% 
  mutate(AgeGroup = cut(x = Age, 
                        breaks = c(-Inf, 25, 45, 55, Inf), 
                        labels = c('<25', '25-45', '45-55', '>55'), 
                        right = T)) %>%
  ggplot(aes(x = AgeGroup, y = AveMonthSpend, color = Gender)) +
  geom_boxplot()

​

​