在 gganimate 中使用 transition_reveal 来累积绘制线条

Question

有没有办法transition_reveal()在 gganimate 中使用一条一条线来绘制线条 - 或者使用其他转换功能的解决方法..

library(tidyverse)
library(gganimate)
set.seed(1)
d <- tibble(x = 1:100, a = cumsum(rnorm(100)), b = cumsum(rnorm(100))) %>%
  pivot_longer(cols = a:b, names_to = "grp", values_to = "y")
d
# # A tibble: 200 x 3
#        x grp        y
#    <int> <chr>  <dbl>
#  1     1 a     -0.626
#  2     1 b     -0.620
#  3     2 a     -0.443
#  4     2 b     -0.578
#  5     3 a     -1.28 
#  6     3 b     -1.49 
#  7     4 a      0.317
#  8     4 b     -1.33 
#  9     5 a      0.646
# 10     5 b     -1.99 
# # ... with 190 more rows

我希望一次只显示一条线——以便第二条线的绘制在第一条线完成后开始（在第 101 帧上）——而不是同时绘制两条线......

ggplot(data = d, mapping = aes(x = x, y = y, colour = grp)) +
  geom_line() +
  transition_reveal(along = x) 

Answer 1

我们可以制作一个辅助栏，将 for 的点数放在 for 的b所有点数之后a：

d %>%
  arrange(grp, x) %>%
  mutate(x_reveal = row_number()) %>%
  ggplot(aes(x = x, y = y, colour = grp)) +
    geom_line() +
    transition_reveal(along = x_reveal)