Code是
<br />
library(animation)<br />
ani.options(interval = 0.1)<br />
pp <- function(N) {<br />
x1 <- runif(N, 0, N)<br />
y1 <- runif(N, 0, N)<br />
par(ann = F, bg = "darkblue", pch = 8, mar = rep(0, 4))<br />
x <- seq(1, 30 * N)<br />
j <- sample(x, 30)<br />
plot(1, ann = F, type = "n", axes = F, xlim = c(0, N), ylim = c(0, N))<br />
points(j, N - 1.5 * rep(1, 30), col = "white", cex = 2)<br />
interval = ani.options("interval")<br />
for (i in 2:N) {<br />
x <- seq(1, 30 * N)<br />
x <- x[-j]<br />
j <- c(sample(x, 30), j)<br />
plot(1, ann = F, type = "n", axes = F, xlim = c(0, N), ylim = c(0, N))<br />
y <- N - 1.5 * rep(1:i, rep(30, i))<br />
points(j, y, col = "white", cex = 2)<br />
z <- sample(N, length(x1), replace = T)<br />
points(x1[i], y1[i], col = N - i, cex = 3)<br />
points(x1[i + 1], y1[i + 1], col = N - i - 1, cex = 2.5)<br />
text(N/2, N/2, "Merry Christmas", srt = 360 * i/N, col = rainbow(N)[i], cex = 4.5 * i/N)<br />
Sys.sleep(interval)<br />
}<br />
}<br />
saveMovie(pp(100), 0.1, convert = 'gm convert')</p>
<p>
</p>
运行记录
<br />
Executing:<br />
gm convert -loop 0 -delay 10<br />
C:/Users/Arsenal/AppData/Local/Temp/RtmpKCzohc/Rplot1.png<br />
C:/Users/Arsenal/AppData/Local/Temp/RtmpKCzohc/Rplot2.png<br />
C:/Users/Arsenal/AppData/Local/Temp/RtmpKCzohc/Rplot3.png<br />
C:/Users/Arsenal/AppData/Local/Temp/RtmpKCzohc/Rplot4.png<br />
C:/Users/Arsenal/AppData/Local/Temp/RtmpKCzohc/Rplot5.png<br />
。。。。。。<br />
C:/Users/Arsenal/AppData/Local/Temp/RtmpKCzohc/Rplot50.png<br />
。。。。。。<br />
C:/Users/Arsenal/AppData/Local/Temp/RtmpKCzohc/Rplot99.png<br />
C:/Users/Arsenal/AppData/Local/Temp/RtmpKCzohc/Rplot100.png<br />
"C:\Users\Arsenal\AppData\Local\Temp\RtmpKCzohc/0.1"<br />
Output at: C:\Users\Arsenal\AppData\Local\Temp\RtmpKCzohc/0.1<br />
Error in shell.exec(output.path) :<br />
file association for 'C:\Users\Arsenal\AppData\Local\Temp\RtmpKCzohc/0.1' not available or invalid<br />
</p>
谢谢！
