网页地图的绘制

画出来了

01、需求介绍

仅有一堆地址数据，然后想要把这些地址在地图上显示

只有地址信息

02、操作代码

数据格式要求是character格式，所以要将数据格式做个转变

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

使用getCoordinate函数获取地址经纬度，把空白部分删除

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

绘制地图前，需要处理一下数据。
创建包含精度、维度、地址三个信息的数据集。
使用函数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、结果

结果是生成一个网页版的地图，可以进行放大，缩小等操作

没放大以前