patriciahoffmanphd

MotionChartID2fb48b55be2
Data: mpgVis • Chart ID: MotionChartID2fb48b55be2googleVis-0.5.8
R version 3.0.2 (2013-09-25) • Google Terms of UseDocumentation and Data Policy
library(googleVis) library(ggplot2) attach(mpg) visColm<- paste(model,trans,displ,fl,sep=":") mpgVisd<- data.frame("visColm"=visColm,"year"=as.numeric(year), "manufacturer"=manufacturer, "model"=model, "displ"=displ, "cyl"=cyl,"trans"=trans, "drv"=drv, "cityMpg"= cty,"highwayMpg"= hwy, "fl"=fl, "class"=class) # Find duplicates - removes 11 rows dup <- paste(visColm,mpg$year,sep=":") dupind <- which(duplicated(dup)==TRUE) mpgVis <- mpgVisd[-dupind,] C<-gvisMotionChart(mpgVis,idvar="visColm",timevar="year")#,date.format="%Y") plot(C) print(C,file="googleVismpg.html") detach(mpg)
Make a Free Website with Yola.