Question

我正在使用动画包绘制参数曲线 $ x = sin（t）$和$ y = sin（t）^ 2 $以及使用以下代码跟踪曲线的圆圈：

require(animation)
x <- seq(-1,1,length=20)
y <- x^2
plot(x,y,type="l")
library(animation)
ani.record(reset=TRUE)
t <- seq(0,4*pi,by=pi/30)
for (i in 1:length(t)) {
    points(sin(t[i]),sin(t[i])^2,pch=19,cex=2)
    ani.record()
    plot(x,y,type="l")  # I have a question in this line
 }
 ani.replay()

它有效（请复制并粘贴此代码），但录制需要相当长的时间。这是一条简单的曲线，但我应该想要做复杂的，完成录制动画需要花费太多时间。我可以改进的一件事就是不要使用第二个绘图功能来重绘parobola以摆脱前一个绘图中出现的圆圈。有什么我可以做得更好吗？

Answer 1

基础R包grDevices有两个功能，可以保存和播放绘图，专为以下情况设计：

recordPlot()
replayPlot()

我的机器上有点主观测试似乎表明它比重新绘制整个绘图更快：

require(animation)
x <- seq(-1,1,length=20)
y <- x^2
plot(x,y,type="l")
oopts <- ani.opts(interval=0.25)
p <- recordPlot()   # <== Record plot here =============
ani.record(reset=TRUE)
t <- seq(0,4*pi,by=pi/30)

for (i in 1:length(t)) {
  replayPlot(p)     # <== Replay plot here =============
  points(sin(t[i]),sin(t[i])^2,pch=19,cex=2)
}
ani.replay()

r动画，参数曲线

1 个答案: