前幾日收到BOSS任務，需要對比我司與對手公司的網(wǎng)點對比情況箕别，細細研究后和簸，展示結果不負BOSS囑托彭雾，下面我來分享一下：
步驟：
1、獲取對手公司分公司地址锁保，然后爬取對應經(jīng)緯度數(shù)據(jù)薯酝；
2半沽、對2公司經(jīng)緯度數(shù)據(jù)進行規(guī)整；
3吴菠、使用REmap進行標注者填；
廢話不多說 我直接上代碼：
步驟1：
因為我直接在對手公司官網(wǎng)爬取到所有網(wǎng)點的經(jīng)緯度，故第一步基本可以省略做葵；（爬取大家都會我就不貼代碼獻丑了）
如果只是地址那么使用百度地圖包進行獲取經(jīng)緯度占哟，其中會使用到百度map api key 這個就需要自行申請；
步驟2：
將雙方公司經(jīng)緯度合并在其一酿矢；（注意：數(shù)據(jù)中除了經(jīng)緯度外必須含有一個唯一值榨乎，否則標點的時候會只取第一個相同值）
步驟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源碼，將顏色修改到一致即可严肪，操作如下圖：
修改完成圖：
獻丑了史煎。當然如果你能直接在代碼中更改那么是再好不過了；
