以下选自省心师兄昨天的公众号文章
————————
技巧篇06--R语言绘制全网爆火的动态条形图 (qq.com)
————————

安装并载入R包：

install.packages("gifski")
install.packages("devtools")
library(devtools)
install_github("jl5000/barRacer")
library(barRacer)
library(magrittr)
library(ggplot2)
library(dplyr)

读取数据：

data <- read.csv("China_edited_data.csv")
names(data)[c(1,8)] <- c("Province","Date")
dataDate)
data <- data[data$Province != "Hubei",] # 去掉湖北数据；

dataDate,"-"),function(x) paste(paste(x[3],x[2],sep = "-"),x[1],sep = "-")))
dataDate)

COVID19_Data <- data %>% group_by(Province,Date) %>%
summarise(n=sum(Confirmed))

bar_chart_race(COVID19_Data,
cat_col = Province,
val_col = n,
time_col = Date,
max_bars = 20,
duration = 30,
title = "China COVID19 Data")

gganimate::anim_save("COVID19_Data.gif")
————————
缺陷就是极大数与相差甚远的第二数没有类似于坐标轴的隔断。