Я хотел бы создать GIF с помощьюgganimate, но мои диапазоны оси сильно варьируются в одном кадре. Это вызывает сжатие всех последующих кадров.

Вggplot2есть грань, есть возможность иметьscales="free", Есть ли способ иметь свободные весы в каждом кадреgganimate?

Вот пример:

library(gapminder)
library(ggplot2)
library(gganimate)
theme_set(theme_bw())

p <- ggplot(gapminder, aes(gdpPercap, lifeExp, size = pop, color = continent,
                           frame = year)) +
  geom_point() +
  scale_x_log10()

gganimate(p)

Теперь мы переместили одну из точек данных к некоторому экстремальному значению. Это сжимает точки ввсе последующие изменения кадры.

gapminder[1, "lifeExp"] <- 1000
gapminder[1, "gdpPercap"] <- 1e60

p <- ggplot(gapminder, aes(gdpPercap, lifeExp, size = pop, color = continent, 
                           frame = year)) +
  geom_point() +
  scale_x_log10()

gganimate(p)  # smooshed