library(readxl)
library(tidyverse)
cpi_raw <- read_excel("640107.xlsx", sheet = "Data1", skip = 9)
cpi_index <- read_excel("640107.xlsx", sheet = "Index", skip = 9)
selected_series <- c("A2325851W", "A2325941A", "A2326031J", "A2328101R", "A2325806K")
series_labels <- c(
A2325851W = "Food",
A2325941A = "Housing",
A2326031J = "Transport",
A2328101R = "Electricity",
A2325806K = "All Groups CPI"
)
cpi_data <- cpi_raw %>%
select(Date = 1, all_of(selected_series)) %>%
filter(Date >= as.Date("2018-01-01"))
cpi_long <- cpi_data %>%
pivot_longer(-Date, names_to = "SeriesID", values_to = "Index") %>%
mutate(Category = series_labels[SeriesID])