R语言ggplot2制作动态正弦曲线图形

library(pacman)
p_load(ggplot2,dplyr,gganimate,ggrepel,gapminder,gifski,grid,showtext)
theme_set(theme_bw())
showtext_auto()
x <- seq(-2*pi, 2*pi, 0.1)
y <- sin(x) 
d.data <- tibble(x,y)

p<-ggplot() +
  xlab("")+ylab("")+   # x、y轴坐标题为空
  geom_line(data = d.data,aes(x = x,y = y),col = "red") + 
  geom_point(data = d.data,aes(x = x,y = y),col = "blue",pch = 9) +
  scale_y_continuous(limits = c(-1.5,1.5))+ # Y轴坐标范围
  geom_vline(xintercept = 0,lty = 2,col = "darkgray")+
  geom_hline(yintercept = 0,lty = 2,col = "darkgray")+
  geom_hline(yintercept = 1,lty = 2,col = "green")+
  geom_hline(yintercept = -1,lty = 2,col = "green")+ # 辅助虚线
  theme(panel.grid = element_blank(),
        panel.background = element_blank(),
        panel.border = element_blank(),
        axis.text.y = element_blank(),
        axis.text.x = element_blank(),
        axis.ticks.y = element_blank(),
        axis.ticks.x = element_blank()) +
  transition_manual(x,cumulative = T) +
  labs(subtitle = paste('Data:','{current_frame}'),title = "正弦动态曲线")
animate(p,renderer = gifski_renderer())