R 在动画gif中转换散点图图像

我有一个想法，从我的散点图创建一个动画gif，并认为如果它是可能的第一位

我在散点图中大约有1000-2000个点，我想如果我能让R为第一个点生成一个图，为第一个+第二个点生成一个图，为第一个+第二个+第三个点生成一个图，以此类推，这样我就能得到一个正在创建的图的动画gif，使我的演示更有趣

有没有一种方法可以在脚本中保存png

有谁能至少说一句，首先是否有可能做到这一点

这是我的密码

volcano_plot_mix <- ggplot(data=resultado_table3, aes(x=log2FoldChange, y=-    log10(padj))) +
  geom_point(data=data_shape, size=2, shape=6) +
  geom_point(data=resultado_table3[resultado_table3$threshold==TRUE, ], size=2, colour="#CC0000") +
  geom_point(data=resultado_table3[resultado_table3$threshold2==TRUE, ], size=2, colour="#000099")+
  #scale_colour_manual(name="Legenda",values=legend) +
  xlab("\n log2 fold change") +
  ylab("-log10 p-value adjusted \n") +
  ggtitle("Controle Vs Mistura")+
  scale_x_continuous(limit=c(-6,3), breaks=c(-6,-5,-4,-3,-2,-1,0,1,2,3)) +
  scale_y_continuous(limit=c(0,50)) +
  theme_bw() +
  theme(axis.title.y = element_text(face="bold", size=16, colour="white"),
        axis.title.x = element_text(face="bold", size=16, colour="white"),
        axis.text = element_text(size=12),
        legend.title =element_blank() ,
        legend.text = element_text(size = 12))
  volcano_plot_mix 

---

你试过动画软件包吗？从未听说过。我查一下。谢谢。我能画出100个散点图，但都是一样的。我想我必须编写一个循环，在ggplot中添加+1点，并使用动画包一次性完成所有操作？因为在循环中使用ggplot，您可能必须执行

print（volcano\u plot\u mix）

，因为ggplot仅在打印其对象时才实际进行打印。如果仍然卡住，请编辑您的Q以显示您尝试过的内容。如果您的数据有一个行号，

r

，则绘制所有点，但将ggplot中的

alpha

美学设置为

aes（[…]，alpha=r）
row.names   baseMean    log2FoldChange  lfcSE   stat    pvalue  padj    threshold   threshold2
 1  ENSMUSG00000000001  271.556874  -0.2586453163   0.1932363   -1.33849262    1.807359e-01 3.245108e-01    FALSE   FALSE
2   ENSMUSG00000000028  14.425989   -0.7678419135   0.4871996   -1.57603155  1.150185e-01   2.306094e-01    FALSE   FALSE 
3   ENSMUSG00000000031  243.168564  2.8036752381    0.1859020   15.08146607 2.144536e-51    4.498238e-49    TRUE    FALSE
4   ENSMUSG00000000049  5.494035    -0.4191875260   0.6160034   -0.68049552 4.961908e-01    6.568972e-01    FALSE   FALSE
5   ENSMUSG00000000056  507.039921  0.6190059663    0.1371111   4.51463200  6.342681e-06    4.937424e-05    FALSE   FALSE
6   ENSMUSG00000000058  598.257239  1.2975264408    0.1510505   8.59001843  8.695538e-18    3.268956e-16    TRUE    FALSE
7   ENSMUSG00000000078  542.650626  -0.8415712222   0.1891324   -4.44964026   8.601424e-06  6.552488e-05    FALSE   FALSE
8   ENSMUSG00000000085  103.272511  -0.2538031364   0.2236255   -1.13494746 2.563973e-01    4.196936e-01    FALSE   FALSE
9   ENSMUSG00000000088  2289.066560 0.8291929325    0.1194602   6.94116312  3.888847e-12    7.960698e-11    FALSE   FALSE
10  ENSMUSG00000000093  19.973601   -0.4603336297   0.4165947   -1.10499166 2.691632e-01    4.349332e-01    FALSE   FALSE
11  ENSMUSG00000000120  10.267475   -1.4756032832   0.5527286   -2.66967051 7.592571e-03    2.555670e-02    FALSE   TRUE
12  ENSMUSG00000000126  26.757132   0.7317334670    0.3630208   2.01567904  4.383355e-02    1.086051e-01    FALSE   FALSE