R中画中国地图并根据经纬度添加标记点

一、使用hchinamap包进行做图

总结：该包不能按照经纬度添加标记点，但是可以通过更改数据来自定义，做图简单。

该包做图使用包中的内置的文件，首先通过链接下载文件到本地然后读取再进行做图。

可以对Rdata中Value列的值进行更改换成自己想表达的值，同时可以根据region选择感兴趣的省份进行做图。

#安装包
install.packages("hchinamap")
library(hchinamap)

#首先加载包中自带的数据
load(file.path("chinadf.rda"), verbose = T)

#将其保存为表格后重新读取
write.csv(chinadf,"chinadf.csv")
Rdata <- read.csv("chinadf.csv")

#作图
hchinamap(
  name = Rdata$name, # 要绘制的省份或城市
  value = Rdata$value, # 要可视化的数据,可以将Rdata中各个省份的value列换成自己想代表的值
  width = "100%", # 地图的宽度
  height = "400px", # 地图的高度
  title = "hchinamap包绘制中国地图", # 地图标题
  minColor = "#FAEBD7", # 最小值的颜色
  maxColor = "#8B8378", # 最大值的颜色
  region = "China" # 要绘制的区域,同时可以选择绘制省份例如“Anhui”
)

 二、使用leaflet作图

1、安装R包

install.packages("leaflet")
install.packages("geojsonio")
install.packages("htmlwidgets")
library(leaflet)
library(geojsonio)
library(htmlwidgets)

2、下载地图数据

推荐使用