R语言——动态图

library(ggplot2)
library(dplyr)
library(gganimate)
library(ggrepel)

ADHD %>% 
    ggplot(aes(x = Year, y = Value)) + 
    geom_point(aes(color = Location)) + 
    guides(size = F) + 
    scale_x_continuous(breaks = seq(1990, 2017, 3)) + 
    labs(title = 'Attention-defict/hyperactivity disorder\nBoth sexes, All ages',
         subtitle = 'Year:{current_frame}', 
         color = 'World Bank Regions',
         y = "DALYs  per  100,000") + 
    scale_color_brewer(palette = 'Set1') + 
    transition_manual(Year, cumulative = T) + 
    ggdark::dark_theme_bw() + 
    theme(panel.grid = element_blank())

ADHD %>% 
    ggplot(aes(x = Year, y = Value)) + 
    geom_point(aes(colo