R语言gganimate疫情数据动态可视化
R语言gganimate学习所需加载包
library(av)
library(ggplot2)
library(gganimate)
library(tidyverse)
library(lubridate)
library(scales)
library(ggrepel)
library(cowplot)
数据
https://img-blog.csdnimg.cn/20200303121430707.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80NTQzMjIwMg==,size_16,color_FFFFFF,t_70
ps = ggplot(mydatan, aes(x=reorder(省份, 累计确诊),y=累计确诊, fill=省份,frame=Date)) +
geom_bar(stat= 'identity', position = 'dodge',show.legend = FALSE) +
geom_text(aes(label=paste0(累计确诊)),col="black",hjust=-0.2)+
#theme_bw()+
#theme(legend.position="none") +
theme(axis.text.x = element_text(size = 12,angle = 90, hjust = 0.2, vjust = 0.2),legend.position="none") +
theme(panel.background=element_rect(fill='transparent'))+
theme(axis.text.y=element_text(angle=0,colour="black",size=12,hjust=1))+
theme(axis.text.x=element_text(angle=0,colour="white",size=2,hjust=1))+
theme(panel.grid =element_blank()) + ## 删去网格线
theme(axis.text = element_blank()) + ## 删去所有刻度标签
theme(axis.ticks = element_blank()) + ## 删去所有刻度线
# Here comes the gganimate specific bits
#labs(title = '日期:', x = '省份', y = '累计确诊病例') +
#annotate("text",x=0,y=40,label=C,parse=T)+
coord_flip()+
transition_manual(frames=as.Date(Date)) +
#ggdark::dark_theme_bw() + #设置黑色主题
labs(title = paste('日期:', '{current_frame}'),x = '', y ='各省累计确诊病例增长(除湖北省外)')+
ease_aes('linear')
ps
结果展示
https://img-blog.csdnimg.cn/20200303121933247.gif
视频格式转化，加载BGM
#df <- animate(ps, renderer = av_renderer('animation.mp4'),
# width = 1280, height = 720, res = 100, fps = 10)#视频制作
# av_encode_video(df, 'output.mp4', framerate = 2,audio ="N.mp3")
全国新冠状肺炎26天增长状况
pc<-ggplot(data=CNdata_s,aes(x=variable,y=value,fill=variable,frame=Date))+
geom_bar(stat= 'identity', position = 'dodge',show.legend = FALSE,width=0.7) +
geom_text(aes(label=paste0(value)),col="black",hjust=-0.2)+
theme(legend.position="none") +
theme(panel.background=element_rect(fill='transparent'))+
theme(axis.text.x=element_text(angle=0,colour="black",size=15,hjust=1))+
theme(axis.text.y=element_text(angle=0,colour="white",size=2,hjust=1))+
theme(panel.grid =element_blank()) + ## 删去网格线
theme(axis.text = element_blank()) + ## 删去所有刻度标签
theme(axis.ticks = element_blank()) + ## 删去所有刻度线
#scale_x_continuous(limits = c(0,6))+
# Here comes the gganimate specific bits
#labs(title = '日期:', x = '省份', y = '累计确诊病例') +
#annotate("text",x=0,y=40,label=C,parse=T)+
# coord_flip()+
transition_manual(frames=as.Date(Date)) +
# ggdark::dark_theme_bw() + #设置黑色主题
labs(title = paste('日期:', '{current_frame}'),x = '全国新冠状肺炎增长', y ='')+
ease_aes('linear')
pc
https://img-blog.csdnimg.cn/2020030312225314.gif
动态图合并
library(magick)
ps_gif <- animate(ps,,width = 720, height = 480)
pc_gif <- animate(pc, width = 360, height = 480)
ps_gifs <- image_read(ps_gif)
pc_gifs <- image_read(pc_gif)
new_gif <- image_append(c(pc_gifs, ps_gifs))
for(i in 2:length(pc_gifs)){
combined <- image_append(c(pc_gifs, ps_gifs))
new_gif <- c(new_gif, combined)
}
new_gif
结果展示
https://img-blog.csdnimg.cn/20200303123453387.gif
111111111111
页:
[1]