映射多个图层并进行动画处理

问题描述

我创建了以下具有多个图层的地图。我想显示全球有多少个地点，哪个地区及其3个最重要的中心，以及根据开放日期提供的活动/门票数量。

我想为绘图制作动画，如何改变“票”（紫色点）的频率和打开日期。

但是Region的颜色现在变得一团糟。请问是什么原因？我想展示在哪个城市至少有一张“门票”开通。

我有以下代码：

test <- ggplot() + 
  geom_polygon(data = world2,aes(x = long,y = lat,group = group)) + 
  geom_polygon(data = world3,group = group,fill = factor(Region)),col = "white") + 
  theme_map() + 
  geom_point(data = df3,size = tickets),colour = 'purple',alpha = .5) + 

  ### main regions 
  geom_point(data = city,aes(x= long,col = Hub),shape = 21,inherit.aes = F,size = 1.9,col = "black",fill = "yellow",show.legend = T) + 
  geom_text_repel(data = cities,label = c("Shanghai","San Francisco","Basel")),size = 4,color = "blue",nudge_x = cities$long,nudge_y = cities$lat,min.segment.length = 0,point.padding = NA,segment.color = "grey50") + 
  coord_cartesian(ylim = c(-50,90)) +

  ### labs
  labs(title="Locations Worldwide") + 
  theme(plot.title = element_text(size=24)) + 
  scale_fill_manual(name = "Region",breaks = c("1","2","3"),values = c("slateblue1","slategray1","steelblue1"),labels = c("Americas","Europe / Africa","Asia / Pacific")) +

  ### how to edit legend
  scale_color_manual(name = "cities",breaks = c("Yes"),values = c(Yes = "black"),labels = c("cities")) +

  ### set order of legend items (fill first)
  guides(fill = guide_legend(order = 1),color = guide_legend(order = 2)) +

  ### set legend position and vertical arrangement
  theme(legend.text = element_text(size = 9),legend.position = "top",legend.Box = "vertical") 

#### TRANSITION
p2 <-test + transition_manual(df3$ticDateOpened,cumulative = TRUE)

anim_save("filenamehere.gif",p2)

解决方法

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

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

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