Временные ряды уровня инфляции

Question

Здравствуйте. У меня есть набор данных из ИПЦ за 20 лет, в котором я рассчитал инфляцию:

"/" <- function(x,y) ifelse(y==0,0,base:::"/"(x,y))

n <- length(CPI.germany$CPI)

infl <- CPI.germany$CPI[13:n]/CPI.germany$CPI[1:(n-12)]

# adjust the date column
date <- CPI.germany1$Date
datenew<- date[13:252]

#control
length(datenew)
length(infl)

 infl    datenew
1    1.08182862 1991-01-15
2    1.08195654 1991-02-15
3    1.08191389 1991-03-15
4    1.22093054 1991-04-15
5    1.28206524 1991-05-15
6    1.56516705 1991-06-15
7    2.01404189 1991-07-15
8    1.58665134 1991-08-15

Как узнать, как создать график временных рядов, подобный тому, который я прикрепил. И какой пакет самый легкий? ggplot2?

Answer 1

Предполагая, что DF, воспроизводимый в примечании, в конце преобразуйте в серию зоопарка z, а затем используйте один из показанных методов.

library(zoo)
z <- read.zoo(DF, index = "datenew")

# classic graphics
plot(z)

# ggplot2
library(ggplot2)
autoplot(z)

# lattice
library(lattice)
xyplot(z)

Примечание

Lines <- " infl    datenew
1    1.08182862 1991-01-15
2    1.08195654 1991-02-15
3    1.08191389 1991-03-15
4    1.22093054 1991-04-15
5    1.28206524 1991-05-15
6    1.56516705 1991-06-15
7    2.01404189 1991-07-15
8    1.58665134 1991-08-15"
DF <- read.table(text = Lines)