data(ChickWeight)
glimpse(ChickWeight)

ChickWeight$Time <- ifelse(ChickWeight$Time >= 10,1,0)
ChickWeight <- ChickWeight %>% mutate(weight_group = ntile(weight, 3))

ChickWeight$Diet <- as.factor(ChickWeight$Diet)
ChickWeight$Time <- as.factor(ChickWeight$Time)
ChickWeight$weight_group <- as.factor(ChickWeight$weight_group)


table(ChickWeight$Diet, ChickWeight$Time, ChickWeight$weight_group)

ggplot(data = ChickWeight, aes(x=Time, y=Diet, fill=weight_group)) +
  geom_tile()