library(dplyr)
data.frame (HairEyeColor) %>%
filter(Hair=="Blond", Sex=="Male") %>%
mutate(blueEyes = if_else(Eye=="Blue", "Blue","Other")) %>%
group_by(blueEyes, Hair, Sex) %>%
summarise(FreqSum=sum(Freq), n=n()) %>%
pie_chart(
"blueEyes",
"FreqSum",
mainTitle="How many males with Blonde hair have Blue eyes?",
sortOrder="desc"
)
Run the code above in your browser using DataLab