Возникает с изменением масштаба (пределы оси)

Question

Я хотел бы создать 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

Answer 1

Вы можете попробовать поэкспериментировать с view_follow(),

Код

p <- ggplot(gapminder, aes(gdpPercap, lifeExp, size = pop, color = continent)) +
    geom_point() +
    labs(title = 'Year: {frame_time}', x = 'GDP per capita', y = 'life expectancy') +
    transition_time(year) +
    view_follow()

animate(p)

Answer 2

Чтобы вручную определить шкалы, см. view_step а также view_step_manual (также view_zoom а также view_zoom_manual).