gganimate 地图未加载

如何解决gganimate 地图未加载

随着时间的推移，我正在为美国的县级设置动画。我可以很容易地制作 ggplot（所以我知道我的数据处于形状文件的正确状态），但是每次我包含 transition_time() 或 transition_state() 来为其设置动画时，我得到的“地图”要么完全是空的，要么是完全的第一帧后为空。具体来说，这个有效：

# Plot graph of January sales prices--works just fine ...
playdata_one = subset(playdata,playdata$date == 202001)
graph1 = ggplot() + 
  coord_fixed(1.3) +
  labs(title = "Median sales prices",subtitle = "January 2020") +
  theme(panel.background = element_blank(),axis.title = element_blank(),axis.text = element_blank(),axis.ticks = element_blank()) +  
  geom_polygon(data = playdata_one,aes(x = long,y = lat,fill = saleprice,group = group)) + 
  geom_polygon(data = states,group = group),color="black",fill = NA) +
  scale_fill_viridis(na.value="transparent")

但这不会：

# Plot animated graph of January to march--fails ...
graph2 = ggplot() + 
  coord_fixed(1.3) +
  labs(title = "Median sales prices",subtitle = "{unique(msa_map_final$date[msa_map_final$date == {frame_time}])}") +
  theme(panel.background = element_blank(),axis.ticks = element_blank()) +  
  geom_polygon(data = playdata,fill = NA) +
  scale_fill_viridis(na.value="transparent") + 
  transition_states(date)

anim = animate(graph2)
anim

有什么想法吗？我已经上传了我的完整（示例）代码和数据 here。

解决方法

您只能看到亚利桑那州，因为您的数据主要来自亚利桑那州。我只选择了 playdata 的一个子集作为 df 来显示这一点。你原代码的问题是subtitle，需要和transition_states保持一致。

df <- playdata %>% filter(date >=201912,date <202005)

graph2 = ggplot() + 
  coord_fixed(1.3) +
  labs(title = "Median sales prices",subtitle = "{unique(df$date[df$date == {closest_state}])}"
       ) +
  theme(panel.background = element_blank(),axis.title = element_blank(),axis.text = element_blank(),axis.ticks = element_blank()) +  
  geom_polygon(data = states,aes(x = long,y = lat,group = group),color="black",fill = NA) +
  geom_polygon(data = df,fill = saleprice,group = group)) + 
    scale_fill_viridis(na.value="transparent") + 
  transition_states(date)
  
frames<-  df$date %>% unique %>% length
anim = animate(graph2,nframes=frames)

anim