Part 1

Import Data, Data Cleaning & Data Visualisation

# load data vacancy
data_vac <- readxl::read_excel("vacancy_development.xlsx")
data_vac <- data_vac[12:53, ]
colnames(data_vac) <- c("Jahr", "1-Zimmer", "2-Zimmer", "3-Zimmer", "4-Zimmer", "5-Zimmer", 
    "6+-Zimmer", "Total", "EFH", "neu", "zuvermieten", "zuverkaufen", "Leerstandsziffer")
# change data type where necessary for later
data_vac$Leerstandsziffer <- as.numeric(data_vac$Leerstandsziffer)
data_vac$Total <- as.numeric(data_vac$Total)

# load data population
data_pop <- readxl::read_excel("population_development.xlsx")
data_pop <- data_pop[5:163, ]
colnames(data_pop) <- c("Jahr", "Bevoelkerungsstand(Jan)", "Lebendgeburten", "Todesfaelle", 
    "Geburtenueberschuss", "Einwanderungen", "Auswanderungen", "Wanderungssaldo", 
    "CHBuergerrecht", "Bestandesbereinigung", "Bevoelkerungsstand(Dez)", "absolut", 
    "relativ")
# colnames(data_pop) <- c('Jahr', 'Bevölkerungsstand(Januar)', 'Lebendgeburten',
# 'Todesfälle', 'Geburtenüberschuss', 'Einwanderungen', 'Auswanderungen',
# 'Wanderungssaldo',
# 'CHBürgerrecht','Bestandesbereinigungen','Bevölkerungsstand(Dezember)',
# 'absolut', 'relativ') change data type where necessary for later
data_pop$`Bevoelkerungsstand(Dez)` <- as.numeric(data_pop$`Bevoelkerungsstand(Dez)`)

# construction development
data_con <- readxl::read_excel("construction_development.xlsx")
data_con <- data_con[7:45, ]
colnames(data_con) <- c("Jahr", "Zugang(Neubau)", "Abgang(Abbruch)", "Umbau", "Reinzugang")
# change data type where necessary for later
data_con$Reinzugang <- as.numeric(data_con$Reinzugang)

# get summary of data
vac <- ts(data_vac[, "Total"], frequency = 1, start = c(1980))
pop <- ts(data_pop[, "Bevoelkerungsstand(Dez)"], frequency = 1, start = c(1980))
con <- ts(data_con[, "Reinzugang"], frequency = 1, start = c(1980))

# plot the data
plot_vac <- autoplot(vac) + ylab("Vancancy(Total)")
plot_pop <- autoplot(pop) + ylab("Population")
plot_con <- autoplot(con) + ylab("Construction")
# arrange plots
grid.arrange(plot_vac, plot_pop, plot_con, ncol = 3, nrow = 1)