Turtle Graphicsというものをご存知でしょうか。 知らない方はこちらをどうぞ。 http://docs.python.jp/3.3/library/turtle.html
RにはTurtle GraphicsのR実装、その名もTurtleGraphics
パッケージがあるのです。知りませんでした。
knitrのanimationと組み合わせて、亀に散歩させてみます。
t = seq(0, 2*pi, by = 0.05)
x = 16*sin(t)^3 + 20
y = 13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t) + 20
a = c(0, atan2(diff(x), diff(y))/pi*180)
library(grid)
library(TurtleGraphics)
grid.newpage()
turtle_init(40, 40)
grabs <- list()
for (i in seq_along(t)) {
turtle_setangle(a[i])
turtle_goto(x[i], y[i])
grabs[[i]] <- grid.grab()
}
for (i in seq_along(t)) {
grid.newpage()
grid.draw(grabs[[i]])
}