static <- ggplot(df5, aes(x = Ukenr, y = Timepris, group = Type, col = Type)) +
  geom_line() +
  geom_segment(aes(xend = 54, yend = Timepris), linetype = 2, colour = 'grey') +
  geom_point(size = 2) +
  geom_text(aes(x = 53.1, label = Timepris), hjust = 0) +
  transition_reveal(Ukenr) +
  coord_cartesian(clip = 'off') +
  labs(title = 'Snitt timepris pr uke fordelt på privat/offentlig', y = 'Timepris') +
  theme_minimal() +
  theme(plot.margin = margin(5.5, 40, 5.5, 5.5))



final_animation <- animate(static,100,fps = 20,duration = 30, width = 950, height = 750, renderer = gifski_renderer())