library(googleVis) asylum<-read.table('F://asylum.txt') myStateSet<-' {"iconType":"BUBBLE","uniColorForNonSelected":false,"orderedByX":false,"playDuration":15000,"xZoomedIn":false,"xZoomedDataMin":5,"yZoomedIn":false,"xLambda":0,"time":"2001","orderedByY":false,"xZoomedDataMax":103080,"yLambda":0,"sizeOption":"2","nonSelectedAlpha":0.4,"colorOption":"_UNIQUE_COLOR","iconKeySettings":[{"key":{"dim0":"the Netherlands"},"trailStart":"2001"}],"xAxisOption":"2","yZoomedDataMax":0.7340301974,"duration":{"multiplier":1,"timeUnit":"Y"},"yAxisOption":"3","yZoomedDataMin":0,"dimensions":{"iconDimensions":["dim0"]},"showTrails":true} ' plot(c1<-gvisMotionChart(asylum, idvar='Country', timevar='Year', options=list( height=600,width=1000, state=myStateSet))) cat(c1$html$chart, file="F://googlechart.html")