R语言怎么实现多维放射状流向图

这篇文章主要介绍了R语言怎么实现多维放射状流向图的相关知识，内容详细易懂，操作简单快捷，具有一定借鉴价值，相信大家阅读完这篇R语言怎么实现多维放射状流向图文章都会有所收获，下面我们一起来看看吧。需求是这样的，一个国家各省或者全球各国之间存在的贸易关系、或者其他经济往来。想要用线条来表达这些指标的流向，同时使用线条粗细来表达指标流向的量级，我给他们的建议是，虽然你很明确要表达的意思，但是实际上这种形式所呈现的最终结果，可能并非你想要的。如果在一个地图中这些线条都是从一个点发散出来的，这种表达形式虽说不妥，但是不算糟糕，但是倘若你的数据中是多个发散中心，即每个城市都会向其他各个城市发散出一组放射线条，同时线条还有粗细之分，那么最终的效果简直惨不忍睹。当然我还是会用案例来把这种常规的想法用代码演示一遍，同时给出自己觉得最优的两种解决思路：#加载包：library(ggplot2)library(dplyr)library(rgdal)library(shiny)library(shinythemes)##转换为数据框并合并城市数据：china_map
province_city
###构造线条起始点数据：city
city_data%rename(Start=x,End=y)%>%arrange(Start)city_data%merge(province_city[,c(“city”,”jd”,”wd”)],by.x=”Start”,by.y=”city”,all.x=TRUE)%>%rename(Start_long=jd,Start_lat=wd)city_data%merge(province_city[,c(“city”,”jd”,”wd”)],by.x=”End”,by.y=”city”,all.x=TRUE)%>%rename(End_long=jd,End_lat=wd)city_data
###理所当然的普通做法1：ggplot()+geom_polygon(data=china_data,aes(x=long,y=lat,group=group),fill=”whi 香港云主机te”,colour=”grey60″)+geom_segment(data=city_data,aes(x=Start_long,y=Start_lat,xend=End_long,yend=End_lat,size=zhibiao1),colour=”black”)+coord_map(“polyconic”) +scale_size_area(max_size=2)+theme_void()###最合适的做法1：图形分面：ggplot()+
geom_polygon(data=china_data,aes(x=long,y=lat,group=group),fill=”white”,colour=”grey60″)+geom_segment(data=city_data,aes(x=Start_long,y=Start_lat,xend=End_long,yend=End_lat),colour=”black”)+geom_point(data =city_data,aes(x=End_long,y=End_lat,size=zhibiao1),shape=21,fill=”#8E0F2E”,colour=”black”,alpha=0.4)+scale_size_area(max_size=6)+coord_map(“polyconic”) +facet_wrap(~Start,nrow = 2)+theme_void()###最合适的做法2：Shiny动态交互图：city_list
ui
theme=shinytheme(“cerulean”), titlePanel(“Population Structure Data”), sidebarLayout( sidebarPanel( radioButtons(“var1″,”City”,city_list,inline=FALSE), selectInput(“var2″,”Value”,c(“zhibiao1″=”zhibiao1″,”zhibiao2″=”zhibiao2″,”zhibiao3″=”zhibiao3″),selected=”zhibiao1”) ), mainPanel(h3(“Trade Stream”),plotOutput(“distPlot”)) )))server
output$distPlot
mydata=filter(city_data%>%filter(Start==input$var1)) argu
ggplot(mydata)+ geom_polygon(data=china_data,aes(x=long,y=lat,group=group),fill=”white”,colour=”grey60″)+ geom_segment(aes(x=Start_long,y=Start_lat,xend=End_long,yend=End_lat),colour=”black”)+ geom_point(aes(x=End_long,y=End_lat,size=argu),shape=21,fill=”#8E0F2E”,colour=”black”,alpha=0.4)+ scale_size_area(max_size=6)+ coord_map(“polyconic”) + theme_void() })})shinyApp(ui=ui,server=server)关于“R语言怎么实现多维放射状流向图”这篇文章的内容就介绍到这里，感谢各位的阅读！相信大家对“R语言怎么实现多维放射状流向图”知识都有一定的了解，大家如果还想学习更多知识，欢迎关注开发云行业资讯频道。