話(huà)說(shuō)有那么一天拿撩。全能打雜·小潔需要寫(xiě)一個(gè)全國(guó)巡講推廣軟文押搪，打開(kāi)原來(lái)的推文看到這樣一個(gè)路徑圖
（之前做的亿扁，但是忘記該怎么做了）
兩個(gè)月過(guò)去了捺典，又去了幾個(gè)城市，圖該更新了从祝，這可咋辦襟己。向來(lái)不喜歡走回頭路，于是就另尋他法了牍陌。
胡亂搜索一下擎浴，發(fā)現(xiàn)R語(yǔ)言可以做！
直接上代碼
0.準(zhǔn)備R包
if(!require(devtools)) install.packages("devtools")
library(devtools)
if(!require("REmap")) install_github('lchiffon/REmap')
library(REmap)
1.以珠海為起點(diǎn)的足跡圖
options(remap.js.web=T)
destination<- c("重慶","濟(jì)南","北京","北京","廣州","上海",
"鄭州","西安","武漢","成都","珠海","北京","杭州","長(zhǎng)春")
origin <- rep("珠海",times=length(destination))
map_data<- data.frame(origin,destination)
map_out1<- remap(mapdata=map_data,
title ="全國(guó)巡講足跡",
subtitle ="生信技能樹(shù)",
theme =get_theme(theme='Dark')
)
plot(map_out1)
超燃的毒涧！動(dòng)態(tài)的贮预！交互式的！
2.首尾相連的路徑圖
origin<- c("珠海","重慶","濟(jì)南","北京","北京","廣州","上海",
"鄭州","西安","武漢","成都","珠海","北京","杭州","長(zhǎng)春")
#終點(diǎn)數(shù)據(jù)：
destination<- c(origin[2:length(origin)],origin[1])
map_data<- data.frame(origin,destination)
map_out1<- remap(mapdata=map_data,
title ="全國(guó)巡講足跡",
subtitle ="生信技能樹(shù)",
theme =get_theme(theme='Dark')
)
plot(map_out1)
酷斃了好嗎！不發(fā)朋友圈對(duì)的起自己?jiǎn)幔?/p>
3.熱力圖
heatmap = sampleData()
Citys<- data.frame(city = origin,prob=sample(heatmap$prob,length(destination),replace = T))
position<-get_geo_position(as.character(Citys$city )) #獲取城市所在的經(jīng)緯度
map_out1<-merge(position,Citys,by = "city")
remapH(title = "生信技能樹(shù)全國(guó)巡講",
map_out1[,2:4],
maptype = 'china',
blurSize = 25,
minAlpha = 1) #數(shù)據(jù)包含3列即經(jīng)度萌狂、維度档玻、密度
這個(gè)是靜態(tài)的，但也挺好看的~期待以后去更多城市茫藏，為了更美好的明天而奮斗误趴！
4.常見(jiàn)問(wèn)題
（1）R包安裝問(wèn)題
代碼在windows上運(yùn)行大多會(huì)遇到一個(gè)問(wèn)題：
我上課是提倡不要更新的，除非一直報(bào)錯(cuò)务傲。先選
3（不更新）凉当，緊接著library(REmap)檢驗(yàn)是否安裝成功，不成功就重新安裝選擇1（更新全部）吧售葡。
小郭同學(xué)測(cè)試過(guò)程中還遇到了這個(gè)：
這個(gè)報(bào)錯(cuò)我曾講過(guò)如何處理看杭，就是手動(dòng)刪除電腦上舊包的整個(gè)文件夾，然后重裝：http://www.reibang.com/p/ef81c27656c8
經(jīng)常遇到挟伙，如果你用mac 找不到安裝路徑楼雹，請(qǐng)看這里：http://www.reibang.com/p/a9a055172188
（2）經(jīng)緯度不識(shí)別
有可能會(huì)出現(xiàn)這樣一個(gè)warning：
警告信息：
1: In get_city_coord(out_list[i], ...) : Please use your own baidu API!
Set it using: options(remap.ak = "XXXXX")
http://lbsyun.baidu.com
然后畫(huà)出這樣的錯(cuò)誤圖：
測(cè)試了兩個(gè)windows電腦尖阔，一個(gè)剛開(kāi)始能運(yùn)行贮缅，后來(lái)就不識(shí)別了。另一個(gè)更慘介却，直接就是出現(xiàn)這種不識(shí)別的圖谴供。
我的解決方案是：拿mac試試！（然后就成功了）反正不是代碼的問(wèn)題齿坷，API如何設(shè)置我沒(méi)有搜到桂肌，放棄治療了~
