Momento R do Dia: zoom no seu gráfico (IPCA – livres vs. monitorados)

Com esta dica, eu fiz algo interessante: um gráfico com zoom online. Está aqui. Dê uma olhada lá porque no WordPress não consigo colocar a imagem. Basta você marcar a área em que deseja fazer o zoom. 

O código é simples. Importei os dados e construí um dataframe. Depois, só alegria.

library(googleVis)
plot(
gvisScatterChart(data,
options=list(
explorer="{actions: ['dragToZoom',
'rightClickToReset'],
maxZoomIn:0.05}",
chartArea="{width:'85%',height:'80%'}",
crosshair="{trigger:'both'}",
hAxis="{title: 'Monit (%))',
titleTextStyle: {color: '#000000'}}",
vAxis="{title: 'Livres (%)',
titleTextStyle: {color: '#000000'}}",
title="Monitorados e Livres desde 1999",
width=550, height=500,
legend="none"),
chartid="ZoomZoom")
)

Bem, espero que se divirta por lá.