Почему анимационный сюжет меньше статического?

Question

Код ниже превращает звезду в круг. Если я просто нанесу звезду, размер будет велик.

ggplot(star1) +
  geom_sf(aes(geometry = geometry))

https://stackru.com/image s/1587a61ba02842ec9185210d6babbcbe383c888f.jpg

Однако анимация оказывается меньше:

https://stackru.com/image s/3a163bb9d0e5bfd5aa716432be640231d8026a47.png Что мне сделать, чтобы анимация была такого же размера, как статический сюжет звезд?

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

star1 <- sf::st_sfc(poly_star(n = 7, st = TRUE))
circle1 <- sf::st_sfc(poly_circle(st = TRUE))

star2 <- star1 + c(2, 0)
circle2 <- circle1 + c(2,0)

star1 <- data.frame(
  id = c(1, 2),
  geo = c(star1, star2)
)

circle2 <- data.frame(
  id = c(1, 2),
  geo = c(circle1, circle2)
)

morph <- tween_sf(star1, circle2,
                  ease = 'linear', 
                  nframes = 12, 
                  id = id)  

ani <- ggplot(morph) +
       geom_sf(aes(geometry = geometry)) +
       transition_time(time = .frame) +
       theme(legend.position = "none") 

show <- animate(ani, nframes = 30, fps = 30, 
                renderer = gifski_renderer(loop = FALSE), start_pause = 15)

show

Answer 1

Параметры width и height для размера выводимой анимации в пикселях являются опциями для анимации

animate(ani, nframes = 30, fps = 30, width = 900, 
          renderer = gifski_renderer(loop = FALSE), start_pause = 15)