plot_privatforbrug <- ggplot()+
  geom_line(pf, mapping = aes(x= year, y = privatforbrug/privatforbrug[13]*100 ))+
  #geom_line(pf, mapping = aes(x = year, y = bnp))+
  labs(x = "Årstal", y= "Forbrug i pct.",
       title = "Privatforbruget i faste priser (1995-2018)",
       subtitle = "Figur 4.3          index 2007 = 100",
       caption = "Kilde: Danmarks statistik")+
  theme_minimal()+
  theme(text = element_text(size = 12 ),
        axis.text.x = element_text(angle=90, vjust=0.5))+
  scale_x_continuous(breaks = 1995:2018)

plot_privatforbrug