如何修复多边形的运动？

Question

我想用 R 和 gganimate 绘制一个动画 chorophlet 地图。我需要显示区域变化类别，而不是多边形从一个地方移动到另一个地方。

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)