渲染每一帧后如何在 gganimate 中保留点

Question

我正在使用 ggplot2 和 gganimate 制作动画情节。情节和动画效果很好，但我想在渲染每一帧后添加一种方法到 show/keep 点。使用的数据在下（dput()在最后添加）：

df
# A tibble: 30 x 3
# Groups:   year [10]
    year type  Sales
   <int> <chr> <dbl>
 1  2011 A      4123
 2  2011 B       525
 3  2011 C      1153
 4  2012 A      4698
 5  2012 B       533
 6  2012 C      1434
 7  2013 A      5028
 8  2013 B       601
 9  2013 C      1629
10  2014 A      5536
# ... with 20 more rows

这是一个关于不同年份销售额的三个时间序列。现在情节的代码是下一个：

library(ggplot2)
library(gganimate)
#Plot
G1 <- ggplot(df,aes(x=year,y=Sales,color=type,
                          group=type))+
  geom_point(size=2)+
  geom_line(size=1)+
  scale_x_continuous(breaks = c(2011:2020))+
  scale_y_continuous(labels = scales::comma)+
  geom_segment(aes(xend = 2019.75, yend = Sales), linetype = 2, colour = 'grey') + 
  geom_text(aes(x = 2019.75, label = sprintf("%5.0f", Sales)), hjust = 0,show.legend = F,fontface='bold',color='black') + 
  theme(axis.text.x = element_text(face = 'bold',color='black'),
        axis.text.y = element_text(face = 'bold',color='black'),
        legend.text = element_text(face = 'bold',color='black'),
        axis.title = element_text(face = 'bold',color='black'),
        legend.position = 'bottom',
        legend.title = element_text(face = 'bold',color='black'),
        legend.justification = 'center')+
  transition_reveal(year)+
  view_follow(fixed_x = TRUE,fixed_y = TRUE)

这会产生结果：

我的问题是：我需要在代码中添加什么才能 show/keep 显示每年之后的点数？例如，在直线从 2011 移动到 2012 之后，2011 上的点应该出现并保留在图上。 2012 年等也是如此。我的意思是，每一年过去了，我怎么能表现出来呢？

此外，是否可以在到达最后一年时停止剧情并保留所有细节？

非常感谢您的宝贵时间。

下一个数据df：

#Data
df <- structure(list(year = c(2011L, 2011L, 2011L, 2012L, 2012L, 2012L, 
2013L, 2013L, 2013L, 2014L, 2014L, 2014L, 2015L, 2015L, 2015L, 
2016L, 2016L, 2016L, 2017L, 2017L, 2017L, 2018L, 2018L, 2018L, 
2019L, 2019L, 2019L, 2020L, 2020L, 2020L), type = c("A", "B", 
"C", "A", "B", "C", "A", "B", "C", "A", "B", "C", "A", "B", "C", 
"A", "B", "C", "A", "B", "C", "A", "B", "C", "A", "B", "C", "A", 
"B", "C"), Sales = c(4123, 525, 1153, 4698, 533, 1434, 5028, 
601, 1629, 5536, 614, 1580, 4989, 589, 1567, 4191, 579, 1521, 
4527, 571, 1504, 5096, 612, 1606, 5331, 595, 1616, 3895, 584, 
976)), class = c("grouped_df", "tbl_df", "tbl", "data.frame"), row.names = c(NA, 
-30L), groups = structure(list(year = 2011:2020, .rows = structure(list(
    1:3, 4:6, 7:9, 10:12, 13:15, 16:18, 19:21, 22:24, 25:27, 
    28:30), ptype = integer(0), class = c("vctrs_list_of", "vctrs_vctr", 
"list"))), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, 
-10L), .drop = TRUE))

Answer 1

我想这就是您要找的。默认情况下，像 geom_point 这样的 geoms 只显示当前位置，不显示过去的位置。你可以通过给 geom_points.

一个独特的组来解决这个问题

library(ggplot2)
library(gganimate)
library(tibble)

df <- tribble(
  ~year, ~type, ~Sales,
  2011L,   "A",  4123L,
  2011L,   "B",   525L,
  2011L,   "C",  1153L,
  2012L,   "A",  4698L,
  2012L,   "B",   533L,
  2012L,   "C",  1434L,
  2013L,   "A",  5028L,
  2013L,   "B",   601L,
  2013L,   "C",  1629L,
  2014L,   "A",  5536L,
  2014L,   "B",   614L,
  2014L,   "C",  1580L,
  2015L,   "A",  4989L,
  2015L,   "B",   589L,
  2015L,   "C",  1567L,
  2016L,   "A",  4191L,
  2016L,   "B",   579L,
  2016L,   "C",  1521L,
  2017L,   "A",  4527L,
  2017L,   "B",   571L,
  2017L,   "C",  1504L,
  2018L,   "A",  5096L,
  2018L,   "B",   612L,
  2018L,   "C",  1606L,
  2019L,   "A",  5331L,
  2019L,   "B",   595L,
  2019L,   "C",  1616L,
  2020L,   "A",  3895L,
  2020L,   "B",   584L,
  2020L,   "C",   976L
  )

                                                                                                                                                                                                                                                                                           
G1 <- ggplot(df,aes(x=year,y=Sales,color=type,
                    group=type))+
  geom_point(size=2, 
             # Create a distinct grouping variable for geom_point 
             aes(group = seq_along(year)))+
  geom_line(size=1)+
  scale_x_continuous(breaks = c(2011:2020))+
  scale_y_continuous(labels = scales::comma)+
  geom_segment(aes(xend = 2019.75, yend = Sales), linetype = 2, colour = 'grey') + 
  geom_text(aes(x = 2019.75, label = sprintf("%5.0f", Sales)), hjust = 0,show.legend = F,fontface='bold',color='black') + 
  theme(axis.text.x = element_text(face = 'bold',color='black'),
        axis.text.y = element_text(face = 'bold',color='black'),
        legend.text = element_text(face = 'bold',color='black'),
        axis.title = element_text(face = 'bold',color='black'),
        legend.position = 'bottom',
        legend.title = element_text(face = 'bold',color='black'),
        legend.justification = 'center')+
  transition_reveal(year)+
  view_follow(fixed_x = TRUE,fixed_y = TRUE)

# Animate without rewinding
animate(G1, rewind = FALSE)

^{由 reprex package (v2.0.1)}

于 2022-03-15 创建

渲染每一帧后如何在 gganimate 中保留点

How to keep points in gganimate after each frame is rendered

r

ggplot2

gganimate