gganimate：将条形图与线图相结合

Question

library(ggplot2)
library(tidyverse)
library(gganimate)

set.seed(321)
year <- 2001:2021
value <- runif(n = length(year))*100%>% round(digits = 2)

df <- data.frame(year, value) %>%
  mutate(cumsum = cumsum(value))


df %>% 
  ggplot(aes(x = year)) +
  geom_col(aes(y = value)) +
  geom_line(aes(y = cumsum)) +
  transition_states(year) +
  shadow_mark()

如何获得多年来的条形图和线图的动画，上面的代码有错误。 transform_path 错误（all_frames, next_state, ease, params$transition_length[i], : 补间路径和线条需要转换器

Answer 1

安装transformr() package

library(ggplot2)
library(tidyverse)
library(gganimate)
library(transformr)

set.seed(321)
year <- 2001:2021
value <- runif(n = length(year))*100%>% round(digits = 2)

df <- data.frame(year, value) %>%
  mutate(cumsum = cumsum(value))


df %>% 
  ggplot(aes(x = year)) +
  geom_col(aes(y = value)) +
  geom_line(aes(y = cumsum)) +
  transition_states(year) +
  shadow_mark()