R语言ggplot地图绘制：添加经纬线、比例尺和指北针

在使用ggplot绘制完地图后，可以使用ggspatial包中的函数添加经纬线、比例尺和指北针。具体步骤如下：

安装ggspatial包。

install.packages('ggspatial')

加载ggspatial包和ggplot2包。

library(ggspatial)
library(ggplot2)

添加经纬线。

使用函数coord_spatial()可以将坐标系更改为地理坐标系，并使用函数annotation_spatial()添加经纬线。

# 绘制地图
p <- ggplot(data = your_data, aes(x = your_x, y = your_y)) + 
  geom_polygon(aes(fill = your_fill)) + 
  scale_fill_manual(values = your_colors)

# 添加经纬线
p <- p + coord_spatial() + annotation_spatial(grid = TRUE)

添加比例尺。

使用函数annotation_scale()可以添加比例尺。

# 添加比例尺
p <- p + annotation_scale(location = 'bl', width_hint = 0.2)

其中，location参数指定比例尺的位置，'bl'表示在左下角，'tr'表示在右上角，width_hint参数指定比例尺的宽度占图形宽度的比例。

添加指北针。

使用函数annotation_north_arrow()可以添加指北针。

# 添加指北针
p <- p + annotation_north_arrow(location = 'bl', which_north = 'true', pad_x = unit(0.5, 'cm'), pad_y = unit(0.5, 'cm'))

其中，location参数指定指北针的位置，which_north参数指定指北针类型，'true'表示真北，'magnetic'表示磁北，pad_x和pad_y参数指定指北针与图形边界的距离。