畫出來(lái)了

01、需求介紹

僅有一堆地址數(shù)據(jù)，然后想要把這些地址在地圖上顯示

只有地址信息

02、操作代碼

數(shù)據(jù)格式要求是character格式，所以要將數(shù)據(jù)格式做個(gè)轉(zhuǎn)變

address<-read.csv("E:/RStudio/圖表/map/下沙/jishui.csv")
address<-unlist(address)
address<-as.character(address)
mode(address)

使用getCoordinate函數(shù)獲取地址經(jīng)緯度，把空白部分刪除

library(baidumap)
newdata<-getCoordinate(address, formatted = T)
newdata<-na.omit(newdata)

繪制地圖前，需要處理一下數(shù)據(jù)。
創(chuàng)建包含精度、維度、地址三個(gè)信息的數(shù)據(jù)集。
使用函數(shù)remapB繪制地圖

plotdata<- data.frame(lon = newdata[,1],
                      lat = newdata[,2],
                      city =rownames(newdata))
#REmap可視化
library(REmap)
remapB(markPointData = data.frame(plotdata$city),
       markPointTheme = markPointControl(symbol = "pin",
                                         effect=F,
                                         symbolSize = 5,
                                         color="red"),
       geoData = plotdata)

03、結(jié)果

結(jié)果是生成一個(gè)網(wǎng)頁(yè)版的地圖，可以進(jìn)行放大，縮小等操作

沒(méi)放大以前