Как исправить движения полигонов?

Question

Я хочу нарисовать анимированную карту хорофлета с помощью R и gganimate. Мне нужно показать регионы, меняющие категорию, а не полигоны, перемещающиеся из одного места в другое.

library(sf)
library(tidyverse)
library(gganimate)
nc <- st_read(system.file("shape/nc.shp", package="sf"))
nc <- nc %>% filter(CNTY_ID %in% c(1825:1830))
nc_data <- tribble(~CNTY_ID,~year,~value,
                   1825,2000,1,
                   1825,2001,2,
                   1825,2002,3,
                   1827,2000,3,
                   1827,2001,4,
                   1827,2002,1,
                   1828,2000,2,
                   1828,2001,1,
                   1828,2002,4)
nc <- nc %>% full_join(nc_data,by="CNTY_ID")
nc <- nc %>% mutate(value= as.factor(value) )
p <- nc %>% 
  ggplot() +
  geom_sf(aes(fill=value), color="black",lwd=.2) +
  transition_time(year)
animate(p,nframe=6)

# same movements with 
p <- nc %>% 
  ggplot() +
  geom_sf(aes(fill=value), color="black",lwd=.2) +
  transition_states(year)
animate(p,nframe=27)

Ожидаемые результаты будут полигонов, меняющих цвета ... без движения.

Answer 1

ОК, я думаю, что нашел ответ:

transition_manual(year)