## ---- eval=FALSE-------------------------------------------------------------- # library(onmaRg) # library(ggplot2) # # DA_2016 <- om_geo(2016, "DAUID", "sf") %>% # filter(CSDNAME == "Toronto") # # plot <- ggplot() + # geom_sf(data=DA_2016, aes(fill=DEPRIVATION_Q_DA16))