ggplot(d_wid, aes(x = year, y = d_wid, fill = scen)) +
  geom_col(position = "dodge")
