gzh原文点我，欢迎同时关注
1.安装包，加载包
install_github('lchiffon/REmap')
install_github('badbye/baidumap')
library(devtools)
library(REmap)
library(baidumap)
2.载入数据
setwd("D:/本人信息/生信小书生/R语言绘图/2022-3-19-地图/知乎杜雨数据/DataWarehouse-master/Rstudy/热力图")
province <- mapNames("china") #全国省份
value <- rnorm(34,100,30) #随机生成分省值
mydata <- data.frame(province,value)
3.绘图
remapC(mydata,color=c("yellow","red"),title="全国分省热地图",subtitle="副标题") #制作热力图
全国地图.png
4.辽宁省热力图
ad_ln <- mapNames("liaoning")
value_ln<-rnorm(14,100,30)
data_ln <-data.frame(ad_ln,value_ln)
map_out <- remapC(data_ln,
maptype = "liaoning",
color=c("green"),
title="辽宁省热力地图",
theme = get_theme("Sky"),
maxdata=180)
map_out
辽宁省热力图.png
