前几日收到BOSS任务，需要对比我司与对手公司的网点对比情况，细细研究后，展示结果不负BOSS嘱托，下面我来分享一下：
步骤：
1、获取对手公司分公司地址，然后爬取对应经纬度数据；
2、对2公司经纬度数据进行规整；
3、使用REmap进行标注；
废话不多说 我直接上代码：
步骤1：
因为我直接在对手公司官网爬取到所有网点的经纬度，故第一步基本可以省略；（爬取大家都会我就不贴代码献丑了）
如果只是地址那么使用百度地图包进行获取经纬度，其中会使用到百度map api key 这个就需要自行申请；
步骤2：
将双方公司经纬度合并在其一；（注意：数据中除了经纬度外必须含有一个唯一值，否则标点的时候会只取第一个相同值）
步骤3：
library(REmap)
adddata<-read.csv('f:\\r0\\kuayueadd.csv',header=T)
mydata<-data.frame(lon=(adddata$lng),lat=(adddata$lat),x =(adddata$address))
remapB(markPointData = data.frame(mydata$x),
markPointTheme = markPointControl(symbol = "pin",
effect=F,
colours(distinct = TRUE),
symbolSize = 5
),
geoData = mydata )
复制代码
以上代码会生成以下地图
从上图中可以看出，地图中的点是五彩的，既然是对比那么这样是不能满足需求（初学百度很多没看到解决只用2色的方法），纠结很久找到一方法改动html源码，将颜色修改到一致即可，操作如下图：
修改完成图：
献丑了。当然如果你能直接在代码中更改那么是再好不过了；
网友评论