if (FALSE) {
if (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