GoogleVis

#install.packages("googleVis")
suppressPackageStartupMessages(library(googleVis))

## Creating a generic function for 'toJSON' from package 'jsonlite' in package 'googleVis'

M <- gvisMotionChart(Fruits, "Fruit", "Year",
                     options=list(width=600, height=400))
plot(M)

## starting httpd help server ...

##  done

#print(M,"chart")