Markdown example with knitr and googleVis

This is a little Markdown example file.
Set the googleVis options first.
In this case change the behaviour of plot.gvis

library(googleVis)
op <- options(gvis.plot.tag = "chart")

The following plot statements will automatically return the HTML
required for the 'knitted' output.

Combo chart

## Add the mean
CityPopularity$Mean=mean(CityPopularity$Popularity)
CC <- gvisComboChart(CityPopularity, xvar='City',
          yvar=c('Mean', 'Popularity'),
          options=list(seriesType='bars',
                       width=450, height=300,
                       title='City Popularity',
                       series='{0: {type:"line"}}'))
plot(CC)

Example of gvisComboChart with R code shown above.

Place two charts next to each other

Example of a gvisGeoChart with gvisTable and R code hidden.

Motion Chart

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

Please note that the Motion Chart is only displayed when hosted on a
web server, or is placed in a directory which has been added to the
trusted sources in the security settings of Macromedia.
See the googleVis package vignette for more details.

## Set options back to original options
options(op)