require(data.table)
require(googleVis)

## Toy Data
DT.iris <- data.table(iris)

## Add a date column to the toy data
DT.iris[, Date := as.Date(seq(.N), origin="2011-03-15"), by=Species ]

## Attempt to plot the data.table
G.DT <- gvisMotionChart(DT.iris, idvar="Species", timevar="Date", chartid="Using_DT")
plot(G.DT)

## Now plotting the data.frame
DF.iris <- as.data.frame(DT.iris)
G.DF <- gvisMotionChart(DF.iris, idvar="Species", timevar="Date", chartid="Using_DF")
plot(G.DF)