R语言gganimate疫情数据动态可视化

1047521767

R语言gganimate学习
所需加载包
9 T# H! I3 B$ [% K7 ilibrary(av)
library(ggplot2)
library(gganimate)
library(tidyverse)
library(lubridate)
library(scales)
( _+ d2 `- ]; B! k9 H' Elibrary(ggrepel)
6 {: J4 H# _' z! }$ s1 y3 N. c0 Glibrary(cowplot)
" |( J1 X; K  G数据
; R) [. U& N: T& t

ps = ggplot(mydatan, aes(x=reorder(省份, 累计确诊),y=累计确诊, fill=省份,frame=Date)) +
     geom_bar(stat= 'identity', position = 'dodge',show.legend = FALSE) +
, y, N' _; h) A4 Q    geom_text(aes(label=paste0(累计确诊)),col="black",hjust=-0.2)+
    #theme_bw()+
' t  M# A7 ^, q: v  _) V& b# y5 d   #theme(legend.position="none") +
/ G0 {* x  X$ U  r  i2 \    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))+
9 S* J; g; o4 I" S+ z4 u9 D   theme(panel.grid =element_blank()) +   ## 删去网格线
  theme(axis.text = element_blank()) +   ## 删去所有刻度标签
  theme(axis.ticks = element_blank()) +  ## 删去所有刻度线
. O# K+ ]! u( a' A% p, R# Here comes the gganimate specific bits
5 B. w4 e# B( t  q0 @- a#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')
! A# K2 V  }4 M9 r5 T) j3 hps
6 M6 T9 c! A7 m' n( S% j结果展示

/ m; ?; f6 e: ]; D: W, V
视频格式转化，加载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")
# [# k4 q$ o5 J- ^全国新冠状肺炎26天增长状况
# G4 h$ i& c. P! p7 q# n
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) +
  A" @2 _8 ^! V8 b2 C   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))+
$ e7 v) q2 _  Y! x! a' a4 |   theme(panel.grid =element_blank()) +   ## 删去网格线
1 C: \9 |* @3 x8 ?7 C  theme(axis.text = element_blank()) +   ## 删去所有刻度标签
  theme(axis.ticks = element_blank()) +  ## 删去所有刻度线
  #scale_x_continuous(limits = c(0,6))+
# Here comes the gganimate specific bits
5 b9 P0 f  S/ e#labs(title = '日期:', x = '省份', y = '累计确诊病例') +
#annotate("text",x=0,y=40,label=C,parse=T)+
! k1 E( _6 U2 }& d6 t    # coord_flip()+
1 I+ e9 ?5 i! I; D: C     transition_manual(frames=as.Date(Date)) +
2 p3 i! k1 t$ a# b6 C# u    # ggdark::dark_theme_bw() + #设置黑色主题
     labs(title = paste('日期:', '{current_frame}'),x = '全国新冠状肺炎增长', y ='')+
; x2 @# M/ E! u: ?+ G5 o     ease_aes('linear')
* ?; [8 I" H; p( ?$ C1 jpc

8 R6 N( G# h1 B1 F
1 U6 ?' c! T  D+ X' L动态图合并
library(magick)
5 M9 t# C. n3 q& X$ Tps_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[1], ps_gifs[1]))
for(i in 2:length(pc_gifs)){
  combined <- image_append(c(pc_gifs, ps_gifs))
6 I$ {( ?+ r; |9 o  new_gif <- c(new_gif, combined)
; x1 D; p+ w/ g7 L}
/ i' T+ ]9 N- R+ w0 i3 x+ Ynew_gif
结果展示
( g% t5 T# _" a9 c! M
5 O  n0 m) O  O1 F( X9 T
7 J' a# J/ B1 B8 X9 G' s
+ [8 B! s% v) d9 k/ i% N

sjlxdn

111111111111
6 Q6 s' v( s! Y: @