leaflet散點(diǎn)地圖實(shí)例分析

本篇內(nèi)容介紹了“l(fā)eaflet散點(diǎn)地圖實(shí)例分析”的有關(guān)知識(shí)，在實(shí)際案例的操作過程中，不少人都會(huì)遇到這樣的困境，接下來就讓小編帶領(lǐng)大家學(xué)習(xí)一下如何處理這些情況吧！希望大家仔細(xì)閱讀，能夠?qū)W有所成！

成都創(chuàng)新互聯(lián)專注于企業(yè)全網(wǎng)整合營銷推廣、網(wǎng)站重做改版、唐山網(wǎng)站定制設(shè)計(jì)、自適應(yīng)品牌網(wǎng)站建設(shè)、H5網(wǎng)站設(shè)計(jì)、商城網(wǎng)站建設(shè)、集團(tuán)公司官網(wǎng)建設(shè)、外貿(mào)營銷網(wǎng)站建設(shè)、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計(jì)等建站業(yè)務(wù)，價(jià)格優(yōu)惠性價(jià)比高，為唐山等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。

#加載包：

library(plyr)

library(maps)

library(mapdata)

library(leaflet)

library(stringi)

library(maptools)

library(htmltools)

library(RColorBrewer)

library(ggplot2)

為方便展示這里統(tǒng)一使用中國省級(jí)行政地圖（shp格式導(dǎo)入），在省會(huì)城市坐標(biāo)進(jìn)行指標(biāo)數(shù)據(jù)映射。

地圖素材數(shù)據(jù)導(dǎo)入：

province_city <- read.csv("c:/rstudy/chinaprovincecity.csv") #中國各省省會(huì)坐標(biāo)

province_city$size<-round(runif(34,5,10),2)                   #添加連續(xù)數(shù)值變量

province_city$type<-factor(sample(LETTERS[1:5],34,replace=TRUE))  #添加因子變量以便之后演示

co<-substr(rainbow(34),1,7)

province_city<-data.frame(province_city,co)

制作色盤：

pal <- colorFactor(c("green", "red","yellow","green","blue"), domain = c("A", "B","C","D","E"))#因子變量的映射色盤

cPal <- colorNumeric(palette = c("blue","yellow","red"),domain =province_city$size)         #數(shù)值型變量的映射色盤  

作圖函數(shù)：

leaflet(province_city)%>%addTiles()%>% addMarkers(lng=~jd,lat=~wd,popup=~city) 

leaflet(province_city)%>%addTiles()%>% addCircles(lng=~jd,lat=~wd,color="red",weight=~size,popup=~city) 

leaflet(province_city)%>%addTiles()%>% addCircleMarkers(lng=~jd,lat=~wd,radius=~size, color = ~co, fill=TRUE,popup=~city)

離散標(biāo)度映射：

leaflet(province_city)%>%addTiles()%>% addCircles(lng=~jd,lat=~wd,color = ~pal(type),weight=~size,popup=~city)%>%  

addLegend("bottomright",pal=pal,values = ~type,title = "GDP等級(jí)",labFormat = labelFormat(suffix = "檔"),opacity=1) 

leaflet(province_city)%>%addTiles()%>% addCircleMarkers(lng=~jd,lat=~wd,color = ~pal(type),radius = ~size,fill=TRUE,popup=~city) 

addLegend("bottomright",pal=pal,values = ~type,title = "GDP等級(jí)",labFormat = labelFormat(suffix = "檔"),opacity=1)  

連續(xù)標(biāo)度映射：

leaflet(province_city)%>%addTiles()%>% 

addCircles(lng=~jd,lat=~wd,fillColor=~cPal(size),weight=~size,stroke=FALSE,fillOpacity=0.8,popup=~city)%>%

addLegend("bottomright",pal=cPal,values = ~size,title = "GDP等級(jí)",labFormat = labelFormat(suffix = "檔"),opacity=1) 

leaflet(province_city)%>%addTiles()%>% 

addCircleMarkers(lng=~jd,lat=~wd,fillColor=~cPal(size),radius = ~size,stroke=FALSE,fillOpacity=0.8,popup=~city)%>%

addLegend("bottomright",pal=cPal,values = ~size,title = "GDP等級(jí)",labFormat = labelFormat(suffix = "檔"),opacity=1) 

幾種常見的地圖風(fēng)格主題效果：

默認(rèn)點(diǎn)形狀與幾種常見的地圖主題風(fēng)格搭配效果：

leaflet(province_city)%>%addProviderTiles("Esri.WorldStreetMap")%>%addMarkers(lng=~jd,lat=~wd,popup=~city) 

leaflet(province_city)%>%addProviderTiles("Esri.WorldImagery")%>%addMarkers(lng=~jd,lat=~wd,popup=~city) 

leaflet(province_city)%>%addProviderTiles("Esri.WorldTerrain")%>%addMarkers(lng=~jd,lat=~wd,popup=~city) 

leaflet(province_city)%>%addProviderTiles("Esri.NatGeoWorldMap")%>%addMarkers(lng=~jd,lat=~wd,popup=~city) 

#####################################################################

實(shí)心點(diǎn)形狀與幾種常見的地圖主題風(fēng)格搭配效果：

leaflet(province_city)%>%addProviderTiles("Esri.WorldStreetMap")%>%addCircles(lng=~jd,lat=~wd,color="red",weight=~size,popup=~city) 

leaflet(province_city)%>%addProviderTiles("Esri.WorldImagery")%>%addCircles(lng=~jd,lat=~wd,color="red",weight=~size,popup=~city) 

leaflet(province_city)%>%addProviderTiles("Esri.WorldTerrain")%>%addCircles(lng=~jd,lat=~wd,color="red",weight=~size,popup=~city) 

leaflet(province_city)%>%addProviderTiles("Esri.NatGeoWorldMap")%>%addCircles(lng=~jd,lat=~wd,color="red",weight=~size,popup=~city) 

#####################################################################

帶輪廓的點(diǎn)形狀與幾種常見的地圖主題風(fēng)格搭配效果：

leaflet(province_city)%>%addProviderTiles("Esri.WorldStreetMap")%>%addCircleMarkers(lng=~jd,lat=~wd,radius=~size,color=~co,fill=TRUE,popup=~city) 

leaflet(province_city)%>%addProviderTiles("Esri.WorldImagery")%>%addCircleMarkers(lng=~jd,lat=~wd,radius=~size,color=~co,fill=TRUE,popup=~city)

leaflet(province_city)%>%addProviderTiles("Esri.WorldTerrain")%>%addCircleMarkers(lng=~jd,lat=~wd,radius=~size,color=~co,fill=TRUE,popup=~city)

leaflet(province_city)%>%addProviderTiles("Esri.NatGeoWorldMap")%>%addCircleMarkers(lng=~jd,lat=~wd,radius=~size,color=~co,fill=TRUE,popup=~city)

可選擇的地圖類型：

addProviderTiles("Esri.WorldStreetMap")  #淺色

addProviderTiles("Esri.WorldImagery")    #深色深色衛(wèi)星云圖

addProviderTiles("Esri.WorldTerrain")    #亮白色

addProviderTiles("Esri.NatGeoWorldMap")  #深沉輪廓色

addProviderTiles("Stamen.Toner")         #Third-Party Tiles

addProviderTiles("Acetate.terrain")      #

addProviderTiles("CartoDB.Positron")

addProviderTiles("Stamen.TonerLabels")   #

“l(fā)eaflet散點(diǎn)地圖實(shí)例分析”的內(nèi)容就介紹到這里了，感謝大家的閱讀。如果想了解更多行業(yè)相關(guān)的知識(shí)可以關(guān)注創(chuàng)新互聯(lián)網(wǎng)站，小編將為大家輸出更多高質(zhì)量的實(shí)用文章！

網(wǎng)站欄目：leaflet散點(diǎn)地圖實(shí)例分析
當(dāng)前路徑：http://muchs.cn/article40/gpheho.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供小程序開發(fā)、做網(wǎng)站、網(wǎng)站收錄、網(wǎng)站改版、面包屑導(dǎo)航、企業(yè)網(wǎng)站制作

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)