Isso foi o que fiz..
#Lê a base de dados
ano1<-read.csv("os dados abaixo...",header = TRUE ,sep=";", row.names=1)
#Cria a série temporal
ano<-ts(ano1[,1],start=c(2009,1), end=c(2010,12),freq=12)
#plota a série
plot(ano,ylab='indice', xlab='ano',main='distribuiçao dos casos')
Esses são os dados:
## Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
## 2009 1.6 1.0 0.2 0.0 -0.2 0.1 0.9 1.4 0.8 -0.4 -0.8 0.1
## 2010 1.8 1.2 0.3 -0.1 -0.2 -0.3 1.5 1.9 1.2 0.1 -0.6 -0.5
Porém ele plota um gráfico "periódico".
Ps.: São vários anos, mas queria aprender nesse 'simples' pra aplicar no outro.