我有一个数据框架,如下所示:
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,这会产生一种不期望的效果,即在奇数区域中出现的十六进制。
gganimate(p, "gif1.gif", title_frame = TRUE)这是GIF:

你也可以在传说中看到覆盖。
附加问题:如果有人能帮我摆脱阿尔法的传奇,那就太好了。
发布于 2017-08-16 16:18:07
忘记在这里发布解决方案:原来时间数据集中有NAs,所以gganimate将这些添加到第一个图像和所有其他图像中。基本上,这是一个特性,而不是一个bug,从周专栏中删除NAs解决了这个问题。
https://stackoverflow.com/questions/42196711
复制相似问题