如何添加滑块以使点及时出现或消失

Question

我在R中对凝视数据的数据集进行了基本的ggplot分析。该图显示了注视点如何在坐标系中分布：

我现在想添加一个简单的滑块，使这些点及时出现或消失。如果确定plotly软件包应该能够做到这一点。您能告诉我为实现目标而必须添加的代码是什么？

那是我当前的代码：

ggplot(participant_208930511,aes(x = x_mav, y = y_mav, color = cut(time_proxy, breaks = c(1,50,350,405), labels = c("First period","Middle period","Last period")))) + scale_fill_distiller(palette=8, direction=1) + scale_x_continuous(expand = c(0, 0)) + scale_y_continuous(expand = c(0, 0)) + theme(legend.position='n_one') + geom_point(size=1) + guides(color=guide_legend(title="Time category")) + participant_208930511 <- participant_208930511 %>% animation_slider(currentvalue = list(prefix = "time_sec", font = list(color="red")))

这就是我的数据集的样子。时间数据位于“ time_sec”或“ time_proxy”下。

participant question time time_sec time_proxy x x_mav y y_mav <dbl> <dbl> <dbl> <dttm> <dbl> <dbl> <dbl> <dbl> <dbl> 1 208930511 7 1.54e12 2018-12-16 13:18:36 1 0 0 1397 1397 2 208930511 7 1.54e12 2018-12-16 13:18:36 2 234 234 1829 1829 3 208930511 7 1.54e12 2018-12-16 13:18:36 3 344 344 1598 1598 4 208930511 7 1.54e12 2018-12-16 13:18:37 4 -459 -459 1763 1763 5 208930511 7 1.54e12 2018-12-16 13:18:37 5 -629 -629 1560 1560 6 208930511 7 1.54e12 2018-12-16 13:18:37 6 284 284 1061 1061

提前谢谢！