r - 向ggplot map 添加比例尺

我在ggplot2中制作了这张地图：

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，我在地图上添加了比例尺。如何使用ggplot2添加类似的比例尺？此帖中添加了比例尺，但该比例尺未涉及距离：scale bar and north arrow on map-ggplot2

最佳答案

有一个名为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')

关于r - 向ggplot map 添加比例尺，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/17151024/