将指北针和比例尺添加到ggmap的简约方法

install.packages("ggplot2")
install.packages("gridExtra")

library(ggplot2)
library(gridExtra)

library(ggmap)
map <- get_map(location = "your_location", zoom = your_zoom_level)

plot <- ggplot() +
  annotation_custom(ggplotGrob(map), xmin = -Inf, xmax = Inf, ymin = -Inf, ymax = Inf)

north_arrow <- annotation_north_arrow(location = "your_location", style = your_arrow_style)
scale_bar <- annotation_scale(location = "your_location", width_hint = your_width_hint)

plot <- plot +
  north_arrow +
  scale_bar

grid.arrange(plot, ncol = 1)