# NOT RUN {
library(sf)
data(domestic_violence)
map <- ggplot(domestic_violence, aes(fill = Scaled)) +
geom_sf() +
scale_fill_continuous(low = "#fff7ec", high = "#7F0000") +
blank()
north2(map, .5, .5, symbol = 10)
# }
Run the code above in your browser using DataLab