# vettore con i dati
dati <- c(56524064, 56563031, 56565117, 56588319, 56597823, 56594487,
          56609375, 56649201, 56694360, 56744119, 56772923, 56821250, 
          56842392, 56844408, 56844197, 56876364, 56904379, 56909109, 
          56923524, 56960692, 56993742, 57321070, 57888245, 58462375, 
          58751711, 59131287, 59619290, 60045068)

# serie storica
tabA1.ts <- ts(dati, 
               start = 1982, 
               end = 2009,
               frequency = 1)

# grafico
plot(tabA1.ts/1000000, type = "b", pch = 15,
     xlab = "", ylab = "milioni", 
     main = "Popolazione residente in Italia, 1982-2009")
grid()