Chargement...
 
Imprimer

r_demo06_googleVis

Testing some nice graphs from Google Visualization API through R googleVis package and PluginR in Tiki.

googleVIs R-package graphs through PluginR in Tiki

Section 1 - Testing the Installation

This code:

{RR(loadandsave="1", wikisyntax="0")}
# Example adapted from the ones shown here:  http://code.google.com/p/google-motion-charts-with-r/
#   and here: http://www.r-bloggers.com/interactive-reports-in-r-with-knitr-and-rstudio/
#
# If required the first time, uncomment the following line/s to install the required R packages, and edit the path and url to suite your needs.
if(!require(googleVis)){
	install.packages("googleVis", repos="http://ftp.heanet.ie/mirrors/cran.r-project.org/")
}
{RR}


Produces (nothing if the package is already installed):
{RR(loadandsave="1", wikisyntax="0")}

  1. Example adapted from the ones shown here: http://code.google.com/p/google-motion-charts-with-r/
  2. and here: http://www.r-bloggers.com/interactive-reports-in-r-with-knitr-and-rstudio/
  3. If required the first time, uncomment the following line/s to install the required R packages, and edit the path and url to suite your needs.

if(!require(googleVis)){
install.packages("googleVis", repos="http://ftp.heanet.ie/mirrors/cran.r-project.org/")
}
{RR}

Section 2 - Scatter Chart

{R(wikisyntax="0" loadandsave="1" type="text/csv" onefile="0" echo="1" removen="1")}require(googleVis)
df <- data.frame(x = 1:10, y = 1:10)

    1. load the googleVis package

suppressPackageStartupMessagesgoogleVis?

    1. create the scatter chart

sc <- gvisScatterChart(data=df,
options=list(width=300, height=300,
legend='none',
hAxis="{title:'x'}",
vAxis="{title:'y'}")
)
print(sc, "chart") ## same as cat(sc$html$chart)
{R}

Section 3 - GeoChart USA

{R(loadandsave="1", wikisyntax="0", echo="1", removen="1")}
require(googleVis)
geo <- gvisGeoChart(CityPopularity, locationvar = "City",
colorvar = "Popularity",
options = list(region="US", height=350, displayMode = "markers",
colorAxis = "{colors: 'orange','blue'}") )
print(geo, "chart")
{R}

Section 4 - Motion Chart (impressive!)

{R(loadandsave="1", wikisyntax="0", echo="1", removen="1")}
require(googleVis)
M <- gvisMotionChart(Fruits, "Fruit", "Year", options = list(width = 550,
height = 450))
print(M, "chart")
{R}


Once everything is ready in your system (all packages installed, etc), you'll see something like this:

Image

Section 5 - Spain by Autonomous Regions

{R(loadandsave="1", wikisyntax="0", echo="1", removen="1")}
require(googleVis)

  1. Por Autonomias

RegionPopular<-data.frame(
Region=c('ES-IB', 'ES-CT', 'ES-EX', 'ES-TO')
,Popular=c(100,200,300, 250)
)

G3 <- gvisGeoMap(RegionPopular, locationvar='Region', numvar='Popular',
options=list(region="ES", dataMode="regions",
width=600, height=400))

  1. plot(G3)

print(G3, "chart")
{R}

Section 6 - Spain by provinces


{R(loadandsave="1", wikisyntax="0", echo="1", removen="1")}
require(googleVis)

  1. Por Provincias

RegionPopular<-data.frame(
Region=c('ES-PO', 'ES-SA', 'ES-VA', 'ES-TO')
,Popular=c(400,200,300, 250)
)

G4 <- gvisGeoMap(RegionPopular, locationvar='Region', numvar='Popular',
options=list(region="ES", dataMode="markers",
width=600, height=400))

  1. plot(G4)

print(G4, "chart")
{R}

Section 7 - Spain by cities

{R(loadandsave="1", wikisyntax="0", echo="1", removen="1")}
require(googleVis)

  1. Por Ciudades

CiudadPopular<-data.frame(
Ciudad=c('Madrid', 'Barcelona', 'Albacete')
,Popular=c(100,200,300)
)

G5 <- gvisGeoMap(CiudadPopular, locationvar='Ciudad', numvar='Popular',
options=list(region='ES', height=350,
dataMode='markers',
colors='0xFF8747, 0xFFB581, 0xc06000'))

  1. plot(G5)

print(G5, "chart")
{R}