R

animation 패키지를 이용한 구구단

이부일 2017. 9. 6. 16:30

install.packages("animation")

library(animation)


# 1초 간격으로 구구단이 보이도록 설정
animation::ani.options(interval = 1)

   for(i in 1:9){
      for(j in 1:9){
         plot.new()
        rect(0, 0, 2, 2, col="yellow")
        message = paste0(i, " * ", j, " = ", i*j)
        text(0.5, 0.5, message, cex=4, col=rgb(0, 0, 1, 1))
        animation::ani.pause() 
   }
}

자동 대체 텍스트를 사용할 수 없습니다.


[참고] 빅데이터분석의 첫걸음 R로 배우는 코딩, 장용식/강희구 지음, 생능출판, p157~158