Enredando con el paquete googleVis de R

Si el otro día denuncié un gráfico engañabobos (y algún otro me explayaré muy constructivamente sobre el intercambio de correos que mantuve con sus autores), hoy he querido reproducirlo con el paquete googleVis de R.

Habedlo:

googleViz


El código utilizado para generarlo es:

library( googleVis )
library( reshape )
 
a <- read.csv( "http://datanalytics.com/uploads/serie_bde_1.csv" )[,1:2]
b <- read.csv( "http://datanalytics.com/uploads/serie_bde_2.csv", header = F )[,1:2]
 
colnames( a ) <- c( "fecha", "privado" )
colnames( b ) <- c( "fecha", "público" )
 
fechas <- data.frame( fecha = a$fecha, orden = 1:nrow( a ) )
 
goo.dat <- merge( merge( a, b ), fechas )
goo.dat <- goo.dat[ order( goo.dat$orden ), ]
 
goo.dat$privado <- goo.dat$privado / 10^9
goo.dat$público <- goo.dat$público / 10^9
 
goo.dat <- subset( goo.dat, select = c( privado, público ) )
goo.dat$date <- seq(as.Date("1962-01-01"), by = "month", length = nrow( goo.dat ))
goo.dat <- melt( goo.dat, id.vars = "date" )
 
 
goo.tl <- gvisAnnotatedTimeLine( goo.dat, datevar = "date", numvar = "value", idvar = "variable" )


Finalmente, hay que advertir que no es inmediato el publicar estas visualizaciones en bitácoras como ésta (que utiliza WordPress). Los detalles de cómo hacerlo, en este enlace.

2 comentarios sobre “Enredando con el paquete googleVis de R

  1. Alberto 22 febrero, 2011 11:02

    ¡vaya gráfico guapo!

    ¿Se puede hacer algo parecido en R sin utilizar la API de google? Es decir, gráficos que al pasar el ratón por ellos te digan el punto que representa.

  2. datanalytics 22 febrero, 2011 17:34

    Pues la verdad, iguales a éstos, ¡no lo sé! Pero si encuentras un método, avisa.

    No osbtante, podrías echarle un vistazo a http://www.rosuda.org/iPlots. No es exactamente lo mismo, pero sí que puedes seleccionar grupos de puntos (lo llaman «brushing», creo) e interactuar de otras maneras con tus gráficos.

Los comentarios están desabilitados.