plot_vaekst <- ggplot()+
  geom_line(vs, mapping = aes(x= year, y = Forbrugerindex, color = "red" ))+
  geom_line(vs, mapping = aes(x = year, y = Nettoledighed, color = "blue"))+
  scale_color_discrete(name = "Variable", label = c("Forbrugerpriser", "Nettoledighed"))+
  labs(x = "Årstal", y= "Procent",
       title = "Vækstraten for forbrugsprisindex og nettoledighed(1995-2010)",
       subtitle = "Figur 3.3",
       caption = "Kilde: Danmarks statistik")+
  theme_minimal()+
  theme(text = element_text(size = 12 ),
        plot.title = element_text(size=4),
        axis.text.x = element_text(angle=90, vjust=0.5)+
  scale_x_continuous(breaks = 1995:2018))

plot_vaekst