library(topChef)
library(tidyr)
library(dplyr)
library(ggplot2)
chefdetails <- topChef::chefdetails %>% filter(seasonNumber == 20)
challengewins <- topChef::challengewins %>% filter(seasonNumber == 20)
###########################################################################
## Set up data
###########################################################################
currentstats <- challengewins %>%
select(!rating) %>%
full_join(chefdetails %>%
select(series,season,seasonNumber,chef,placement,gender))
## number of each type (combination of challenge + outcome)
nums <- currentstats %>%
group_by(chef,challengeType,outcome,placement,gender) %>%
summarise(n=n()) %>%
# remove groups we don't want to visualize
filter(!(is.na(outcome)))
nums$outcome <- factor(nums$outcome,levels=c("OUT","LOW","IN"
,"HIGH","WIN"))
## Create bar charts for #s of each combo of challenge type-outcome
nums %>%
filter(!(outcome %in% c("IN","OUT"))) %>%
ggplot(aes(x=n,y=chef,color=outcome,fill=outcome)) +
geom_bar(stat="identity" ,alpha=.8 ) +
facet_wrap(challengeType ~ outcome) +
scale_fill_manual(values=c("#ffbc69","#a3cce9","#1170AA"))+
scale_color_manual(values=c("#ffbc69","#a3cce9","#1170AA"))+
theme_minimal() +
theme(legend.position="none") +
labs(title="Challenge summary for Season 20")
