如何沿日期为地图设置动画？

问题描述

我已经尝试过了，但是我不知道哪里出了错。

我正在尝试使用covid19数据为西班牙省地图设置动画。我可以毫无问题地绘制所选日期的地图和数据，但是我无法为该时间段内的所有数据设置动画。

这是.xml文件xml file with the data

这是下载形状文件的链接：shape files here

这是我的代码。

library(tidyverse)    
library(rgdal)     
library(broom)
library(ggplot2)
library(readxl)
library(gganimate)

setwd("C:/Users/...../Provincias_ETRS89_30N")

carto_base <- readOGR("Provincias_ETRS89_30N.shp")
data_provincias <- tidy(carto_base)

dfprovincias <- read_excel("provincias3.xls")
dfprovincias$id <- as.character(dfprovincias$id)
dfprovincias$hospitalized_per_100000 = as.numeric(gsub(",","\\.",dfprovincias$hospitalized_per_100000))
dfprovincias$date <- as.Date(dfprovincias$date,"%y/%m/%d")

dfprovincias_grafico <- data_provincias %>%
  left_join(dfprovincias,by= "id")
dfprovincias_grafico <- na.omit(dfprovincias) 

cols <- RColorBrewer::brewer.pal(8,'Paired')[c(3,6)]

dfprovincias_grafico %>%
  #filter(date == "2020-10-01")%>% 
  ggplot(aes(x=long,y= lat,group = group)) +
  geom_polygon(aes(fill=hospitalized_per_100000),color= "black",size = 0.2) +
  scale_fill_gradient(low=cols[1],high=cols[2]) +
  ggtitle("Hospitalizados por 100.000 habitantes en las provincias de España") +
  transition_reveal(date)

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）