barplot animation

library(barRacer)
bar_chart_race(gapminder::gapminder, country, pop, year, title = "人口变化")

library(magrittr)

## Warning: package 'magrittr' was built under R version 4.0.2

library(ggplot2)
library(barRacer)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

data <- read.csv('D:\\R files\\CFY-R-code\\22.barplot animation\\master.csv',encoding = 'UTF-8')
names(data)[1] <- 'country'
sui_con_year <- data %>% group_by(country,year) %>% 
  summarise(n=sum(suicides_no))

## `summarise()` regrouping output by 'country' (override with `.groups` argument)

bar_chart_race(sui_con_year,
               cat_col = country,
               val_col = n,
               time_col = year,
               max_bars = 20,
               duration = 40,
               title = 'suicide number top 20'
               )

gganimate::anim_save('suicide number top20.gif')