2023学年完整公开课版recharts动态地图

recharts

-动态地图recharts-动态地图echartr(NULL,type='map_world')%>%setTitle('WorldMap')绘制世界地图recharts-动态地图echartr(NULL,type='map_china')%>%setTitle('ChinaMap')绘制中国地图recharts-动态地图绘制区域地图echartr(NULL,type='map_china',subtype='上海')%>%setTitle('ChinaMap|Shanghai')recharts-动态地图绘制多地图data<-data.frame(x=c('UnitedStatesofAmerica','China','Japan'))echartr(data,x,facet=x,type='map_world',subtype=as.list(data$x))recharts-动态地图添加数据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-动态地图地图着色echartr(worldgdp,country,GDP,type="map_world",subtype="move+scale")%>%setDataRange(splitNumber=0,color=getColFromPal('rainbow'))%>%setTitle("WorldGDPTop4,2014")recharts-动态地图绘制动态地图str(ChinaGDP)#加载数据集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-动态地图绘制动态地图recharts-动态地图设置时间轴echartr(ChinaGDP,Prov,GDP,t=Year,type="map_china",subtype="sum")%>%setDataRange(splitNumber=0,valueRange=range(totGDP[,2]),color=c('red','orange'