3

我有一个如下所示的数据框：

head(newnolarank)

    lon      lat week b
1 -90.06445 29.97121    1 9
2 -90.06704 29.96944    1 9
3 -90.07495 29.96567    1 9
4 -90.07448 29.96621    1 9
5 -90.16480 29.91240    1 9
6 -90.04797 29.94557    1 9

我的地图是从 ggmap 中的 get_map 函数生成的

map <- get_map("New Orleans, LA", zoom=10, color="bw")

我用 geom_hex 制作了一个十六进制地图

   p <- ggmap(map)+
coord_cartesian()+
stat_binhex(data=newnolarank,aes(x=lon, y=lat, alpha=0.5, frame = as.factor(b), cumulative = FALSE))+
scale_fill_continuous(low="#ACD9F4",high="#EC008C")+
theme(text=element_text(family="Avenir"), 
axis.line=element_blank(), 
axis.ticks = element_blank(), 
axis.text = element_blank(), 
plot.title=element_text(hjust=0.5),
 axis.title=element_blank())+
 ggtitle("Number of Sign Ups")

然后用gganimate制作了一个gif。这就是问题所在；即使将累积设置为 false，生成的 gif 似乎也有旧图像，这会产生叠加十六进制的不良效果，或者十六进制出现在奇数区域。 

gganimate(p, "gif1.gif", title_frame = TRUE)

这是GIF：

您还可以在图例中看到叠加层。

奖励问题：如果有人可以帮助我摆脱出现的 alpha 传说，那也很棒。

4

1 回答 1

0

忘记在此处发布解决方案：结果数据集中有时间的 NA，因此 gganimate 将它们添加到第一张图像和所有其他图像中。基本上这是一个功能而不是错误，从周列中删除 NA 解决了这个问题。

于 2017-08-16T16:18:07.220 回答