gganimate 显示沿某些对象的过渡

Question

我正在尝试创建动画以显示沿某些节点的过渡。我想显示从 SRC 到 TGT 的点移动强度的过渡变化我的 df 如下所示。

> df
  node intensity Lon Lat
1  SRC      0.90  40  60
2  TGT      0.89  80  40
3  TGT      0.80  40  30
4  TGT      0.99  30  20

library(ggplot2)
 library(gganimate)
 df <- read.table(text = "node intensity Lon Lat
                          SRC .9  40  60 
                            TGT .89 80   40
                            TGT  .8 40 30
                            TGT .99 30     20", header = TRUE)
 ggm <- ggplot(data = df, aes(x = Lon, y = Lat, size= intensity, colour=node)) +
      geom_point(alpha=.5)+
      transition_states(node)+
      labs(title = "test")+ 
      shadow_wake(wake_length = 0.5)

我想要的输出是显示像这样的移动动画

我正在沿帧获取点静止 SRC 和 TGT

Answer 1

您可以通过制作三个源副本并将一个组分配给应该从其源位置到目标位置的每个点来获得所需的效果。

https://cran.r-project.org/web/packages/gganimate/vignettes/gganimate.html

关键是群体审美。你可能对此很熟悉 绘制线条和多边形的美学，但在 gganimate 中它需要 一个更中心的地方。具有相同群体审美的数据是 解释为跨州链接。组的语义 ggplot2 中的审美是这样的，如果它未定义，它将得到 基于所有离散美学（sans 标签）。如果不存在，例如在我们的虹膜动画中，所有数据将 得到相同的组，因此会被 gganimate 匹配。

library(ggplot2)
library(gganimate)
df <- read.table(text = "node intensity Lon Lat grp
                          SRC .9  40  60 1
                          SRC .9  40  60 2
                          SRC .9  40  60 3
                            TGT .89 80   40 1
                            TGT  .8 40 30 2
                            TGT .99 30     20 3", header = TRUE)
ggm <- ggplot(data = df, aes(x = Lon, y = Lat, size= intensity, colour=node, group = grp)) +
  geom_point(alpha=.5)+
  transition_states(node)+
  labs(title = "test")+ 
  shadow_wake(wake_length = 0.5)