這篇文章主要介紹“怎么用R語(yǔ)言可視化填充地圖”，在日常操作中，相信很多人在怎么用R語(yǔ)言可視化填充地圖問題上存在疑惑，小編查閱了各式資料，整理出簡(jiǎn)單好用的操作方法，希望對(duì)大家解答”怎么用R語(yǔ)言可視化填充地圖”的疑惑有所幫助！接下來(lái)，請(qǐng)跟著小編一起來(lái)學(xué)習(xí)吧！
成都創(chuàng)新互聯(lián)公司專業(yè)為企業(yè)提供播州網(wǎng)站建設(shè)、播州做網(wǎng)站、播州網(wǎng)站設(shè)計(jì)、播州網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)與制作、播州企業(yè)網(wǎng)站模板建站服務(wù)，十多年播州做網(wǎng)站經(jīng)驗(yàn)，不只是建網(wǎng)站，更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。
今天跟大家介紹REmap函數(shù)家族中的第三個(gè)函數(shù)——REmapC。
REmapC函數(shù)允許我們同時(shí)在一張地圖上制作填充圖和點(diǎn)圖、線圖。
library(REmap)
library(baidumap)
?remapC
remapC(data,
maptype = 'china',
markLineData = NULL,
markPointData = NULL,
color = c('#1e90ff','#f0ffff'),
theme = get_theme("Bright"),
title = "",
subtitle = "",
markLineTheme = markLineControl(),
markPointTheme = markPointControl(),
geoData = NA,
mindata = NA,
maxdata = NA)
四個(gè)主要參數(shù)說(shuō)明：
參數(shù)一：data為需要的原始數(shù)據(jù)框格式數(shù)據(jù)，共2列，第一列為省份或者城市名稱，第二列為對(duì)應(yīng)的數(shù)值，數(shù)值大小將決定地圖顏色深淺。
參數(shù)二：maptype為地圖類型設(shè)置，可選world、china或者中國(guó)省份名稱
參數(shù)三：color為熱力圖漸變顏色，默認(rèn)為2個(gè)顏色，第一個(gè)為終止色，第二個(gè)為初始色。如果只有一個(gè)顏色，系統(tǒng)會(huì)自動(dòng)以白色補(bǔ)充為初始銫色。
參數(shù)四：mindata與maxdata可以設(shè)置顏色極端點(diǎn)對(duì)應(yīng)數(shù)據(jù)的上下限（默認(rèn)是使用data中的數(shù)據(jù)最大值最小值作為兩端極值）。
一、全國(guó)熱力圖
首先利用mapnames函數(shù)提取全國(guó)各省份名稱：
province <- mapNames("china") #全國(guó)省份
value <- rnorm(34,100,30) #隨機(jī)生成分省值
mydata <- data.frame(province,value) #合成數(shù)據(jù)框作圖數(shù)據(jù)
remapC(mydata,color=c("yellow","red"),title="全國(guó)分省熱地圖",subtitle="我是副標(biāo)題") #制作熱力圖
默認(rèn)的顏色標(biāo)度是從最小值到最大值。以上函數(shù)中省略了markLineData，markPointData 兩個(gè)參數(shù)，所以并未顯示點(diǎn)線圖。
ad_ln <- mapNames("liaoning")
[1] "大連市" "朝陽(yáng)市" "丹東市" "鐵嶺市" "沈陽(yáng)市" "撫順市" "葫蘆島市" "阜新市" "錦州市"
[10] "鞍山市" "本溪市" "營(yíng)口市" "遼陽(yáng)市" "盤錦市"
value_ln<-rnorm(14,100,30)
data_ln <-data.frame(ad_ln,value_ln)
ad_ln value_ln
1 大連市 79.67630
2 朝陽(yáng)市 41.93198
3 丹東市 173.31586
4 鐵嶺市 106.01990
5 沈陽(yáng)市 119.40256
6 撫順市 79.54820
7 葫蘆島市 155.62993
8 阜新市 122.99599
9 錦州市 94.17395
10 鞍山市 82.18944
11 本溪市 98.70972
12 營(yíng)口市 115.59957
13 遼陽(yáng)市 104.89199
14 盤錦市 92.92975
map_out <- remapC(data_ln,
maptype = "liaoning",
color=c("green"),
title="遼寧省熱力地圖",
theme = get_theme("Sky"),
maxdata=180
)
plot(map_out)
接下來(lái)做一個(gè)案例：
每年春運(yùn)，廣東省人口會(huì)大批回流原住地，形成壯觀的春運(yùn)人流大軍，我們模擬出廣東省回流各省的人口數(shù)，使用填色地圖表示人流規(guī)模，使用動(dòng)態(tài)流向線表示回流最大的前10個(gè)省份。
因?yàn)闆]有實(shí)際的數(shù)據(jù)，這里我用函數(shù)模擬數(shù)據(jù)（非真實(shí)數(shù)據(jù)）：
province <- mapNames("china") #全國(guó)省份
value <- round(rnorm(34,1000,30),0) #隨機(jī)生成分省值
mydata <- data.frame(province,value) #合并數(shù)據(jù)
labelper<-mydata[order(mydata[,"value"],decreasing=T),][1:10,]
origin<-rep("廣州",length(labelper))
destination<-labelper$province
line_data<-data.frame(origin,destination)
map_out1 <- remapC(mydata,
maptype = "china",
title="人口遷徙地圖",
theme = get_theme("Drak"),
color=c("#CD0000","#FFEC8B"),
markLineData=line_data,
markLineTheme=markLineControl(
color="white",
lineWidth=2,
lineType="dashed"
),
markPointData=line_data[2],
markPointTheme=markPointControl(
symbolSize=13,
effect=T,
effectType="scale",
color="white"
)
)
plot(map_out1)
因?yàn)榧僭O(shè)廣東是人口遷出地，給廣東填色是沒有任何意義的，所以mydata數(shù)據(jù)中需要忽略 廣東的數(shù)據(jù)
mydata1 <- mydata[-12,]
map_out2 <- remapC(mydata1,
maptype = "china",
title="人口遷徙地圖",
theme = get_theme("Drak"),
color=c("#CD0000","#FFEC8B"),
markLineData=line_data,
markLineTheme=markLineControl(
color="white",
lineWidth=2,
lineType="dashed"
),
markPointData=line_data[2],
markPointTheme=markPointControl(
symbolSize=13,
effect=T,
effectType="scale",
color="white"
)
)
plot(map_out2)
到此，關(guān)于“怎么用R語(yǔ)言可視化填充地圖”的學(xué)習(xí)就結(jié)束了，希望能夠解決大家的疑惑。理論與實(shí)踐的搭配能更好的幫助大家學(xué)習(xí)，快去試試吧！若想繼續(xù)學(xué)習(xí)更多相關(guān)知識(shí)，請(qǐng)繼續(xù)關(guān)注創(chuàng)新互聯(lián)網(wǎng)站，小編會(huì)繼續(xù)努力為大家?guī)?lái)更多實(shí)用的文章！
重慶分公司
重慶分公司
