VIZ <- select(rtab, - mp, - m, - n, - s) %>% 
  pivot_longer(cols = low:high)

ggplot(VIZ, aes(x = year, y = value, col = name)) +
  geom_line(alpha = .5) +
  geom_shadowpoint()

write_delim(VIZ, file = "~/data/appl-wb/20_staff/kjo/BM_AHV_AUSGABEN_SCENARIO.csv",
            delim = ";")
