performance - ggplot をループしてアニメーションを作成する: 速度を上げる

Question

以下のようなスクリプトでアニメーションを作成しています

require(ggplot2)
require(animation)

data(diamonds)

ani.record(reset=TRUE)
for (i in 1:100){
 rows <- sample(1:nrow(diamonds), i)
 temp.diamond <- diamonds[rows, ]
 qplot.temp <- qplot(carat, price, alpha=1/100, data=temp.diamond)
 print(qplot.temp)
 ani.record()
 dev.off()
}
ani.replay()

ただし、スクリプトは完了するまでに長い時間がかかり、増加するにつれてますます遅くなりますi。遅いのは、ディスプレイの印刷とオフにあるようです (ただし、トグルdev.off()は速度に目立った影響を与えないようです)。

ani.record()実際に画面にプロットしなくても、プロットされているものを「見る」方法はありますか? スクリプトの速度を向上させる他の方法はありますか?