将比例尺添加到ggplot地图

Question

我已经制作了这张地图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？这篇文章添加了一个比例尺,但该栏并未引用距离:比例尺和map-ggplot2上的北箭头

Answer 1

另一种选择annotation_scale来自ggspatial包。关于这篇博文的更多提示。

library(ggplot2)
library(maptools)
data(wrld_simpl)

world_sf <- sf::st_as_sf(wrld_simpl)
worldUk <- subset(world_sf, NAME == 'United Kingdom')

绘制图层并添加比例尺。

library(ggspatial)

ggplot() +
  geom_sf(data = worldUk) +
  annotation_scale()

Answer 2

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