Add north arrow and scale bar to plot using ggplot and ggspatial

add_north_arrow_scale_bar.R

# create plot
nyc_cd_market_comp_plot <- nyc_cd_market_plot +
  annotation_scale(
    location = "bl",
    pad_x = unit(3, "cm")
  ) +
  annotation_north_arrow(
    location = "br",
    pad_x = unit(0.5, "in"),
    style = north_arrow_fancy_orienteering
  ) +
  theme(panel.grid = element_line(color = "transparent"))

# save plot
ggsave("./images/nyc_cd_market_comp_plot.png", plot = nyc_cd_market_comp_plot)

# preview results
nyc_cd_market_comp_plot