yields_annimate %>% ggplot(aes(x = years, y = yield, color = rate)) + geom_line()