Не могу получить анимацию карты с geom_map

Question

Я пытался получить анимацию карты хороплета, которую я легко рисовал для отдельных лет, но я не могу получить анимацию для временного ряда.

Мой код приведен ниже.

q <- ggplot() + geom_map(data = cg2, aes(map_id = Pr_mlnyn, fill = gdp), 
                    map =china) +
  expand_limits(x = china$long, y = china$lat) + 
  coord_fixed(1.3) +
  transition_reveal(year) +
  ease_aes('linear')

animate(q, 3, 1)

Мои данные выглядят следующим образом.

structure(list(Pr_mlnyn = c("Beijing", "Tianjin", "Hebei", "Shanxi", 
"Inner Mongolia", "Liaoning", "Jilin", "Heilongjiang", "Shanghai", 
"Jiangsu", "Zhejiang", "Anhui", "Fujian", "Jiangxi", "Shandong", 
"Henan", "Hubei", "Hunan", "Guangdong", "Guangxi", "Hainan", 
"Chongqing", "Sichuan", "Guizhou", "Yunnan", "Tibet", "Shaanxi", 
"Gansu", "Qinghai", "Ningxia", "Xinjiang", "Beijing", "Tianjin", 
"Hebei", "Shanxi", "Inner Mongolia", "Liaoning", "Jilin", "Heilongjiang", 
"Shanghai", "Jiangsu", "Zhejiang", "Anhui", "Fujian", "Jiangxi", 
"Shandong", "Henan", "Hubei", "Hunan", "Guangdong", "Guangxi", 
"Hainan", "Chongqing", "Sichuan", "Guizhou", "Yunnan", "Tibet", 
"Shaanxi", "Gansu", "Qinghai", "Ningxia", "Xinjiang", "Beijing", 
"Tianjin", "Hebei", "Shanxi", "Inner Mongolia", "Liaoning", "Jilin", 
"Heilongjiang", "Shanghai", "Jiangsu", "Zhejiang", "Anhui", "Fujian", 
"Jiangxi", "Shandong", "Henan", "Hubei", "Hunan", "Guangdong", 
"Guangxi", "Hainan", "Chongqing", "Sichuan", "Guizhou", "Yunnan", 
"Tibet", "Shaanxi", "Gansu", "Qinghai", "Ningxia", "Xinjiang"
), year = c(2008L, 2008L, 2008L, 2008L, 2008L, 2008L, 2008L, 
2008L, 2008L, 2008L, 2008L, 2008L, 2008L, 2008L, 2008L, 2008L, 
2008L, 2008L, 2008L, 2008L, 2008L, 2008L, 2008L, 2008L, 2008L, 
2008L, 2008L, 2008L, 2008L, 2008L, 2008L, 2012L, 2012L, 2012L, 
2012L, 2012L, 2012L, 2012L, 2012L, 2012L, 2012L, 2012L, 2012L, 
2012L, 2012L, 2012L, 2012L, 2012L, 2012L, 2012L, 2012L, 2012L, 
2012L, 2012L, 2012L, 2012L, 2012L, 2012L, 2012L, 2012L, 2012L, 
2012L, 2017L, 2017L, 2017L, 2017L, 2017L, 2017L, 2017L, 2017L, 
2017L, 2017L, 2017L, 2017L, 2017L, 2017L, 2017L, 2017L, 2017L, 
2017L, 2017L, 2017L, 2017L, 2017L, 2017L, 2017L, 2017L, 2017L, 
2017L, 2017L, 2017L, 2017L, 2017L), gdp = c(1111500L, 671901L, 
1601197L, 731540L, 849620L, 1366858L, 642610L, 831437L, 1406986L, 
3098198L, 2146269L, 885166L, 1082301L, 697105L, 3093328L, 1801853L, 
1132892L, 1155500L, 3679671L, 702100L, 150306L, 579366L, 1260123L, 
356156L, 569212L, 39485L, 731458L, 316682L, 101862L, 120392L, 
418321L, 1787940L, 1289388L, 2657501L, 1211283L, 1588058L, 2484643L, 
1193924L, 1369158L, 2018172L, 5405822L, 3466533L, 1721205L, 1970178L, 
1294888L, 5001324L, 2959931L, 2225045L, 2215423L, 5706792L, 1303510L, 
285554L, 1140960L, 2387280L, 685220L, 1030947L, 70103L, 1445368L, 
565020L, 189354L, 234129L, 750531L, 2800035L, 1859538L, 3596400L, 
1497351L, 1610317L, 2394200L, 1528894L, 1619988L, 3013386L, 8590094L, 
5176826L, 2751867L, 3229828L, 2081850L, 7267818L, 4498816L, 3652295L, 
3459056L, 8987923L, 2039625L, 446254L, 1950027L, 3698022L, 1354083L, 
1653134L, 131063L, 2189881L, 767700L, 264280L, 345393L, 1092009L
)), row.names = c(NA, -93L), class = "data.frame")

Я не знаю, нужен ли для моего вопроса полигон для Китая, страны для отображения.Но я могу при необходимости отправить укрепленные данные о полигонах.