# NOT RUN {
if (require("bcmapsdata") && #' require(sf) && require(ggplot2)) {
bec <- bec()
ggplot() +
geom_sf(data = bec[bec$ZONE %in% c("BG", "PP"),],
aes(fill = ZONE, col = ZONE)) +
scale_fill_manual(values = bec_colors()) +
scale_colour_manual(values = bec_colours())
}
# }
Run the code above in your browser using DataLab