"Zoom" para gráfico de R efetivo

Seria importante guiar a pessoa para olhar a variação do R em torno de 1, ao mesmo tempo em que não deixar de mostrar a variação do R efetivo no tempo. Para conseguir fazer os dois gerar gráfico com dois painéis: gerar o gráfico como está hoje e ao lado/ou abaixo uma aproximação para o tempo + recente WIP