如何连接多个 Boxplot？

Question

我尝试绘制不同年龄的男性和女性在支出函数中的差异。

我想创建类别 1= Age45, 4= Age 45-55, 5=Age >55

ggplot(Adv.csv, aes(Age

ggplot(Adv.csv, aes("25-45 岁",AveMonthSpend)) + geom_boxplot(aes(color =Gender))

ggplot(Adv.csv, aes(Age>45,AveMonthSpend)) + geom_boxplot(aes(color =Gender))

ggplot(Adv.csv, aes("45-55 岁",AveMonthSpend)) + geom_boxplot(aes(color =Gender))

ggplot(Adv.csv, aes(Age>55,AveMonthSpend)) + geom_boxplot(aes(color =Gender))

我想将所有这些图放在同一个图形中以比较结果 来源：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()