R語(yǔ)言之REmap之精美地圖，絕對(duì)值得一看?。。。ǘ?/h2>

gzh原文點(diǎn)我，歡迎同時(shí)關(guān)注

1.安裝包，加載包

install_github('lchiffon/REmap')
install_github('badbye/baidumap')
library(devtools)
library(REmap)
library(baidumap)

2.載入數(shù)據(jù)

setwd("D:/本人信息/生信小書(shū)生/R語(yǔ)言繪圖/2022-3-19-地圖/知乎杜雨數(shù)據(jù)/DataWarehouse-master/Rstudy/熱力圖")
province <- mapNames("china")           #全國(guó)省份
value <- rnorm(34,100,30)               #隨機(jī)生成分省值
![遼寧省熱力圖.png](https://upload-images.jianshu.io/upload_images/25700846-36a25adfe35f49b7.png?imageMogr2/auto-orient/strip%7CimageView2/2/w/1240)
mydata <- data.frame(province,value)  

3.繪圖

remapC(mydata,color=c("yellow","red"),title="全國(guó)分省熱地圖",subtitle="副標(biāo)題") #制作熱力圖

全國(guó)地圖.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

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
【社區(qū)內(nèi)容提示】社區(qū)部分內(nèi)容疑似由AI輔助生成，瀏覽時(shí)請(qǐng)結(jié)合常識(shí)與多方信息審慎甄別。
平臺(tái)聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點(diǎn)，簡(jiǎn)書(shū)系信息發(fā)布平臺(tái)，僅提供信息存儲(chǔ)服務(wù)。