r - 向ggplot map 添加比例尺

Question

我在 ggplot2 中制作了这张 map :

library(maptools); library(ggplot2)
data(wrld_simpl)
world <- fortify(wrld_simpl)
worldUk <- subset(world, id=="GBR")
ggplot() +
geom_path(aes(long, lat, group=group), data=worldUk, color="black", fill=NA) +
  coord_equal()

使用 Photoshop，我在 map 上添加了比例尺。如何使用 ggplot2 添加类似的比例尺?这篇文章添加了一个比例尺，但该条不指距离: scale bar and north arrow on map-ggplot2

Answer 1

有一个包叫 ggsn ，它允许您自定义比例尺和指北针。

ggplot() +
  geom_path(aes(long, lat, group=group), data=worldUk, color="black", fill=NA) +
  coord_equal() +
  ggsn::scalebar(worldUk, dist = 100, st.size=3, height=0.01, dd2km = TRUE, model = 'WGS84')