有没有一种方法可以在R中突出显示一个动态字符的图例？

install.packages("ggplot2")  # 安装ggplot2包
install.packages("gganimate")  # 安装gganimate包
library(ggplot2)  # 加载ggplot2包
library(gganimate)  # 加载gganimate包

p <- ggplot(data, aes(x, y, color = category)) +
  geom_point() +
  scale_color_manual(values = c("red", "blue", "green")) +
  labs(title = "动态图例示例")
p <- p + enter_fade()  # 设置动画效果

animation <- animate(p, nframes = 100, interval = 0.1, renderer = gifski_renderer())

anim_save("animation.gif", animation)