Manómetros de confianza

Después de las entradas sobre web scraping y confianza en la política, quería presentar los indicadores de confianza en la economía y en la política que proporciona el CIS mensualmente de forma visual.

Google Chart Tools permite generar distintos tipos de gráficos de forma bastante sencilla y que se pueden integrar en cualquier página web. Por su parte, el paquete googleVis de R genera el código necesario para pegar en la página, sin necesidad de trabajarse el API de gráficos de Google.

El resultado real se puede ver a la derecha (debajo inserto una captura de la pantalla):

El código en R es sencillo:

library(googleVis)
datos < - data.frame(label=c("Economía", "Política"), value=c(26.3, 32.9))
 
conf <- gvisGauge(datos, labelvar="label", numvar="value", chartid="gauge1",
                options=list(min=0, max=100, minorTicks=2, redFrom=0, redTo=25, 
                             greenFrom=75, greenTo=100))
plot(conf)  ## Vista previa en el navegador
print(conf, 'chart',  file="conf-gauges.html")