recharts模拟百度迁徙

recharts

-模拟百度迁徙recharts-模拟百度迁徙library(recharts)route<-flight$route#迁移路线names(route)<-c('name1','name2')#重命名coord<-flight$coordtarget<-data.frame(name1=c(rep('北京',10),rep('上海',10),rep('广州',10)),#重复10次name2=c("上海","广州","大连","南宁","南昌","拉萨","长春","包头","重庆","常州","包头","昆明","广州","郑州","长春","重庆","长沙","北京","丹东","大连","福州","太原","长春","重庆","西安","成都","常州","北京","北海","海口"),value=c(95,90,80,70,60,50,40,30,20,10,95,90,80,70,60,50,40,30,20,10,95,90，80,70,60,50,40,30,20,10))模拟百度迁徙recharts-模拟百度迁徙target$series<-paste0(target$name1,'Top10')#映射数据g<-echartr(NULL,type='map_china')%>%addGeoCoord(coord)%>%#添加坐标addML(series=1,data=route,symbol=c('none','circle'),symbolSize=1,#添加标注线smooth=TRUE,itemStyle=list(normal=itemStyle(color='#fff',borderWidth=1,borderColor='rgba(30,144,255,0.5)')))g<-g%>%setSeries(hoverable=FALSE,itemStyle=list(normal=itemStyle(#修改样式borderColor='rgba(100,149,237,1)',borderWidth=0.5,

areaStyle=areaStyle(color='#1b1b1b'))

))g模拟百度迁徙recharts-模拟百度迁徙#标注线样式line.effect<-list(show=TRUE,scaleSize=1,period=30,color='#fff',shadowBlur=10)line.style<-list(normal=itemStyle(borderWidth=1,lineStyle=lineStyle(type='solid',shadowBlur=10)))g1<-g%>%#标注线增加数据值addML(series=c('北京Top10','上海Top10','广州Top10'),data=target,smooth=TRUE,effect=line.effect,itemStyle=line.style)g1模拟百度迁徙recharts-模拟百度迁徙jsSymbolSize<-JS('function(v){return10+v/10;}')mp.style<-list(normal=itemStyle(label=labelStyle(show=FALSE)),emphasis=itemStyle(label=labelStyle(position='top')))g2<-g1%>%#添加标注点addMP(series=2:4,data=target[,c("name2","value","series")],effect=list(show=TRUE),symbolSize=jsSymbolSize,itmeStyle=mp.style)g2模拟百度迁徙recharts-模拟百度迁徙g3<-g2%>%setDataRange(#设置标尺color=c('#ff3333','orange','yellow','limegreen','aquamarine'),valueRange=c(0,100),textStyle=list(color='#fff'),splitNumber=0)g3<-g3%>%#添加主题setLegend(pos=10,selected='上海Top10',textStyle=list(color='#fff'))%>%setTheme(palette=c('gold','aquamarine','limegreen'),bgColor='#1b1b1b')%>%setToolbox(pos=3)%>%setTitle('BaiduMigration','FictiousData',pos=12,