9.2 Multivariate Graphing

ggplot(data = nesarc, aes(x = MajorDepression, fill = TobaccoDependence)) +
  geom_bar(position = "fill") +
  theme_bw() +
  labs(x = "", y = "Fraction", title = "Fraction of young adult daily smokers\nwith and without nicotine addiction\nby depression status") +
  scale_fill_manual(values = c("green", "red"), name = "Tobacco Addiction Status") +
  facet_grid(Sex ~ .) +
  guides(fill = guide_legend(reverse = TRUE))

Bivariate Graphing Assignment

Post a graph showing the association between your explanatory and response variables (bivariate graph) on your private GitHub repository. Include a second graph of your bivariate graph by a third variable (multivariate graph). Write a few sentences describing what your graphs show.