Chapter 83 Plot of Results and Risks

ggplot(FoodInspections, aes(Results, ..count..)) + geom_bar(aes(fill = Risk), position = "dodge") +theme_bw() + theme(legend.position="top")