Как сделать, чтобы ось Y ограничивала динамические значения c при использовании gganimate

Question

У меня есть анимированный сюжет, который я хочу сделать, где конечное значение намного выше, чем у остальных. Я хочу, чтобы ось Y изменялась со значениями, чтобы при отображении окончательного значения она изменяла ось Y и сжимала оставшиеся данные. Я пробовал view_follow, но это меняет только ось X, а не Y.

Вот пример кода, который воссоздает мою проблему

library(tidyverse)
library(gganimate)

#simple test data
exampledata <- data.frame(year = 1961:2020,data = rnorm(60,100,10))
exampledata$data[60] <- 2000
#plotting simple test
exampledata %>% ggplot(aes(x=year,
                           y = data)) + 
  geom_bar(stat = "identity") + 
  transition_reveal(year) + 
  shadow_trail(past = TRUE)

Кто-нибудь знает, как изменить ось Y, чтобы она менялась с наибольшим значением с течением времени?

Спасибо!

Answer 1

Попробуйте использовать view_follow с fixed_x, чтобы получить динамические c границы оси y, но фиксированные границы оси x, например,

exampledata %>% ggplot(aes(x=year,
                           y = data)) +
  geom_bar(stat = "identity") +
  transition_reveal(year) +
  view_follow(fixed_x = TRUE) +
  shadow_trail(past = TRUE)