# NOT RUN {
library(sf)
data(domestic_violence)
ggplot(domestic_violence, aes(fill = Scaled)) +
geom_sf() +
north(domestic_violence, location = "bottomright", symbol = 15) +
scale_fill_continuous(low = "#fff7ec", high = "#7F0000")
# }
Run the code above in your browser using DataLab