R语言数据可视化实例分析

今天小编给大家分享一下R语言数据可视化实例分析的相关知识点，内容详细，逻辑清晰，相信大部分人都还太了解这方面的知识，所以分享这篇文章给大家参考一下，希望大家阅读完这篇文章后有所收获，下面我们一起来了解一下吧。

library("plyr")

library("dplyr")

library("ggplot2")

library("ggmap")

library("maptools")

library("maps")

library("REmap")

library("Cairo")

library("baidumap")

library(showtext)

################中国地图######################

china_map<-readShapePoly("c:/rstudy/bou2_4p.shp")

x1 <- china_map@data          

xs1 <- data.frame(x1,id=seq(0:924)-1)  

china_map1 <- fortify(china_map) 

china_map_data <- join(china_map1, xs1, type = "full") 

mydata1 <- read.csv("c:/rstudy/geshengzhibiao.csv")

china_data <- join(china_map_data, mydata1, type="full") 

####################放射路径气泡图#####################

city_list<-c("西安","西宁","郑州","重庆","成都","石家庄","兰州","济南","大同","咸阳","包头")

#address<-get_geo_position(city_list)

address<-getCoordinate(city_list, formatted = T)

address<-data.frame(address,city=row.names(address),stringsAsFactors = FALSE)

del<-getCoordinate("长沙", formatted = T)

del<-as.character(del)

lonx<-as.numeric(rep(del[1],11))

laty<-as.numeric(rep(del[2],11))

address<-data.frame(address,lonx,laty)

address$lonx<-as.numeric(address$lonx)

address$laty<-as.numeric(address$laty)

names(address)[1:2]<-c("lon","lat")

address$Num<-round(runif(11,50,100),2)

#----------------------------------------------------------------------------------------------------

font.add("myfont", "msyhl.ttc")

CairoPNG(file="C:/Users/Administrator/Desktop/航线图1.png",width=1000,height=670)

showtext.begin()

ggplot()+

geom_polygon(data=china_data,aes(x=long,y=lat,group=group),fill="white",size=0.2,colour="#D9D9D9")+

geom_segment(data=address,aes(x=lon,y=lat,xend=lonx,yend=laty),size=0.3,colour="#FF6833")+

geom_point(data=address,aes(x=lon,y=lat,size=Num),shape=21,fill="#ED7D31",col="#E02939",alpha=.6)+

geom_point(data=NULL,aes(x=112.97935,y=28.21347),shape=21,size=8,fill=NA,col="steelblue")+

guides(fill=FALSE)+

coord_map("polyconic")+

scale_size_area(max_size=8)+ 

     theme(

          plot.background=element_rect(fill="#D0DEDE", color=NA),

          panel.spacing = unit(0,"lines"), 

          plot.margin=unit(rep(0.2,4),"cm"),

          panel.grid = element_blank(),

          panel.background = element_blank(),

          axis.text = element_blank(),

          axis.ticks = element_blank(),

          axis.title = element_blank(),

          #legend.position=c(0.8,0.3),

          legend.position="none"

          )

showtext.end()  

dev.off()

#######################迁徙路径气泡图##################################

city_list<-c("海口","广州","长沙","武汉","郑州","石家庄","北京","沈阳","长春","哈尔滨")

addA<-getCoordinate(city_list, formatted = T)

addA<-data.frame(addA,city=row.names(addA),stringsAsFactors = FALSE)

data1<-addA[-1,]

names(data1)[1:2]<-c("lonx","latx")

data2<-addA[-length(row.names(addA)),]

names(data2)[1:2]<-c("lony","laty")

addB<-cbind(data2,data1)[,-3]

addA$Num<-round(runif(10,50,100),2)

names(addA)[1:2]<-c("lon","lat")

#-------------------------------------------------------------------------------------------------------

font.add("myfont", "msyhl.ttc")

CairoPNG(file="C:/Users/Administrator/Desktop/航线图2.png",width=1000,height=670)

showtext.begin()

ggplot()+

geom_polygon(data=china_data,aes(x=long,y=lat,group=group),fill="white",size=0.2,colour="#D9D9D9")+

geom_segment(data=addB,aes(x=lonx,y=latx,xend=lony,yend=laty),size=0.3,colour="#FF6833")+

geom_point(data=addA,aes(x=lon,y=lat,size=Num),shape=21,fill="#ED7D31",col="#E02939",alpha=.6)+

guides(fill=FALSE)+

coord_map("polyconic")+

scale_size_area(max_size=8)+ 

     theme(

          plot.background=element_rect(fill="#D0DEDE", color=NA),

          panel.spacing = unit(0,"lines"), 

          plot.margin=unit(rep(0.2,4),"cm"),

          panel.grid = element_blank(),

          panel.background = element_blank(),

          axis.text = element_blank(),

          axis.ticks = element_blank(),

          axis.title = element_blank(),

          #legend.position=c(0.8,0.3),

          legend.position="none"

          )

showtext.end()  

dev.off()

########################闭环路径气泡图################################

city_list3<-c("兰州","成都","重庆","贵阳","昆明","南宁","海口","广州","福州","上海","青岛","石家庄","呼和浩特","银川")

addC<-getCoordinate(city_list3, formatted = T)

addC<-data.frame(addC,city=row.names(addC),stringsAsFactors = FALSE)

names(addC)[1:2]<-c("lon","lat")

datac1<-addC[2:14,]

datac2<-addC[1,]

addCC<-rbind(datac1,datac2)

adddata<-cbind(addC,addCC)

names(adddata)<-c("lonx","latx","city","lony","laty","city")

adddata<-adddata[,-3]

addC$Num<-round(runif(14,50,100),2)

#-------------------------------------------------------------------------------------------------------------

CairoPNG(file="C:/Users/Administrator/Desktop/航线图3.png",width=1000,height=670)

showtext.begin()

ggplot()+

geom_polygon(data=china_data,aes(x=long,y=lat,group=group),fill="white",size=0.2,colour="#D9D9D9")+

geom_segment(data=adddata,aes(x=lonx,y=latx,xend=lony,yend=laty),size=0.3,colour="#FF6833")+

geom_point(data=addC,aes(x=lon,y=lat,size=Num),shape=21,fill="#ED7D31",col="#E02939",alpha=.6)+

guides(fill=FALSE)+

coord_map("polyconic")+

scale_size_area(max_size=8)+ 

     theme(

          plot.background=element_rect(fill="#D0DEDE", color=NA),

          panel.spacing = unit(0,"lines"), 

          plot.margin=unit(rep(0.2,4),"cm"),

          panel.grid = element_blank(),

          panel.background = element_blank(),

          axis.text = element_blank(),

          axis.ticks = element_blank(),

          axis.title = element_blank(),

          #legend.position=c(0.8,0.3),

          legend.position="none"

          )

showtext.end()  

dev.off()

#-------------------------------------------方形气泡图---------------------------------------------------

CairoPNG(file="C:/Users/Administrator/Desktop/航线图4.png",width=1000,height=670)

showtext.begin()

ggplot()+

geom_polygon(data=china_data,aes(x=long,y=lat,group=group),fill="white",size=0.2,colour="#D9D9D9")+

geom_point(data=address,aes(x=lon,y=lat,size=Num,fill=Num),shape=22,col="#E02939",alpha=.6)+

guides(fill=FALSE)+

scale_fill_gradient2(low="#8E0F2E", mid="#BFBEBE", high="#0E4E75", midpoint=median(na.omit(address$Num)))+

coord_map("polyconic")+

scale_size_area(max_size=8)+ 

     theme(

          plot.background=element_rect(fill="#D0DEDE", color=NA),

          panel.spacing = unit(0,"lines"), 

          plot.margin=unit(rep(0.2,4),"cm"),

          panel.grid = element_blank(),

          panel.background = element_blank(),

          axis.text = element_blank(),

          axis.ticks = element_blank(),

          axis.title = element_blank(),

          #legend.position=c(0.8,0.3),

          legend.position="none"

          )

showtext.end()  

dev.off()

#-----------------------------------------------菱形气泡图-----------------------------------------------------

CairoPNG(file="C:/Users/Administrator/Desktop/航线图5.png",width=1000,height=670)

showtext.begin()

ggplot()+

geom_polygon(data=china_data,aes(x=long,y=lat,group=group),fill="white",size=0.2,colour="#D9D9D9")+

geom_point(data=address,aes(x=lon,y=lat,size=Num,fill=Num),shape=23,col="#E02939",alpha=.6)+

guides(fill=FALSE)+

scale_fill_gradient2(low="#8E0F2E", mid="#BFBEBE", high="#0E4E75", midpoint=median(na.omit(address$Num)))+

coord_map("polyconic")+

scale_size_area(max_size=8)+ 

     theme(

          plot.background=element_rect(fill="#D0DEDE", color=NA),

          panel.spacing = unit(0,"lines"), 

          plot.margin=unit(rep(0.2,4),"cm"),

          panel.grid = element_blank(),

          panel.background = element_blank(),

          axis.text = element_blank(),

          axis.ticks = element_blank(),

          axis.title = element_blank(),

          #legend.position=c(0.8,0.3),

          legend.position="none"

          )

showtext.end()  

dev.off()

以上所有图表的指标数据均为随机数虚构，图表的图形代码使用showtext和Cario进行高清渲染并自动输出，除了需加载的地图素材之外，其他代码均可一次性放在控制台流畅运行。

以上就是“R语言数据可视化实例分析”这篇文章的所有内容，感谢各位的阅读！相信大家阅读完这篇文章都有很大的收获，小编每天都会为大家更新不同的知识，如果还想学习更多的知识，请关注亿速云行业资讯频道。