r - 使用 gganimate 在两个时间序列条形图之间创建平滑过渡

Question

我正在尝试用 gganimate 制作一个动画，从过去 10 年的犯罪数据开始。动画开始后，我想添加可追溯到 1970 年的历史年份（当时犯罪率要高得多）。这将显示为带有自由轴的“缩小”。到目前为止，我可以从 2018 年开始，然后依次向后添加年份，如下所示：

# Create dataset
dat <- tibble(year = 1970:2018)
dat$crime <- 100 * exp(-0.02*(dat$year-1970))


p <- ggplot(dat, aes(x=year, y = crime)) +
  geom_bar(stat = "identity") +
  transition_states(-year, transition_length = 4, state_length = 2) +
  view_follow() + shadow_mark()

animate(p)

在缩小到过去 30-40 年之前，我很难从 10 年的历史情节（而不是仅仅一年）开始。任何帮助，将不胜感激！

Answer 1

使用自定义state变量对所需年份进行分组。

数据

dat <- tibble(year = 1970:2018)
dat$crime <- 100 * exp(-0.02*(dat$year-1970))

# state variable called "time" for grouping
dat$time <- c(40:2, rep(1, 10))

代码

p <- ggplot(dat) +
    geom_col(
        aes(
            x = year, 
            y = crime
        )
    ) +
    # states depend on "time", not "year"
    transition_states(
        time, 
        transition_length = 4, 
        state_length = 2
    ) +
    view_follow() + 
    shadow_mark()

animate(p)

PS：这是一个非常简洁、格式良好且可重复的第一个问题！保持！