R语言绘制全国气象站点位置

R语言绘制全国气象站点位置

这篇博客主要介绍将经纬度坐标绘制到中国地图上，需要用到全国经纬度坐标文件，以及九段线地图，请自行搜索下载。

载入需要的扩展包

library(openxlsx)  # 读取xlsx扩展包
library(devEMF)    # 输出emf文件扩展包
library(mapdata)   # 提供地图文件数据
library(maps)      # 提供绘制地图的函数

读取经纬度坐标文件

设置工作路径并读取文件

l.dir = 'D:\\工作区\\硕士毕业论文\\数据分析\\数据输入'
setwd(l.dir)
l.file = read.xlsx('全国气象台站经纬度坐标.xlsx')

绘制地图

先绘制气象站点的位置和设置好的范围，再绘制中国地图

# 输出图片格式为emf
emf('示意图.emf',width=24,height=18,pointsize=27)

x.loc <- seq(70,140,by=10)      # 设置绘制地图的范围
y.loc <- seq(15,55,by=10)
xlab <- paste(x.loc,'°E',sep = '')  
ylab