recharts

-動(dòng)態(tài)地圖recharts-動(dòng)態(tài)地圖echartr(NULL,type='map_world')%>%setTitle('WorldMap')繪制世界地圖recharts-動(dòng)態(tài)地圖echartr(NULL,type='map_china')%>%setTitle('ChinaMap')繪制中國地圖recharts-動(dòng)態(tài)地圖繪制區(qū)域地圖echartr(NULL,type='map_china',subtype='上海')%>%setTitle('ChinaMap|Shanghai')recharts-動(dòng)態(tài)地圖繪制多地圖data<-data.frame(x=c('UnitedStatesofAmerica','China','Japan'))echartr(data,x,facet=x,type='map_world',subtype=as.list(data$x))recharts-動(dòng)態(tài)地圖添加數(shù)據(jù)worldgdp<-data.frame(country=c('UnitedStatesofAmerica','China','Japan','Germany'),GDP=c(17418925,10380380,4616335,3859547))echartr(worldgdp,country,GDP,type="map_world")%>%setTitle("WorldGDPTop20,2014")recharts-動(dòng)態(tài)地圖地圖著色echartr(worldgdp,country,GDP,type="map_world",subtype="move+scale")%>%setDataRange(splitNumber=0,color=getColFromPal('rainbow'))%>%setTitle("WorldGDPTop4,2014")recharts-動(dòng)態(tài)地圖繪制動(dòng)態(tài)地圖str(ChinaGDP)#加載數(shù)據(jù)集totGDP<-data.table::dcast(ChinaGDP,Prov~.,sum,value.var='GDP')#按省份匯總ChinaGDP<-ChinaGDP[order(ChinaGDP$Year),]#按年排序echartr(ChinaGDP,Prov,GDP,Year,type="map_china",subtype="average")%>%setDataRange(splitNumber=0,valueRange=range(totGDP[,2]),color=c('red','orange','yellow','limegreen','green'))%>%setTitle("ChinaGDPbyProvice,2012-2014")recharts-動(dòng)態(tài)地圖繪制動(dòng)態(tài)地圖recharts-動(dòng)態(tài)地圖設(shè)置時(shí)間軸echartr(ChinaGDP,Prov,GDP,t=Year,type="map_china",subtype="sum")%>%setDataRange(splitNumber=0,valueRange=range(totGDP[,2]),color=c('red','orange'