vendanges-en-france-metropolitaine", current$caption2, max(vendanges$annee, na.rm = TRUE), " ", current$caption3)) ggsave(paste0("~/vendanges_france_1892-2014_"...
