File:Vendanges france 1892-2014 en US.svg
Size of this PNG preview of this SVG file: 800 × 495 pixels. Other resolutions: 320 × 198 pixels | 640 × 396 pixels | 1,024 × 633 pixels | 1,280 × 792 pixels | 2,560 × 1,584 pixels | 1,041 × 644 pixels.
Original file (SVG file, nominally 1,041 × 644 pixels, file size: 325 KB)
 | This is a file from the Wikimedia Commons. Information from its description page there is shown below. Commons is a freely licensed media file repository. You can help. |
Summary
| Description |
English: Change of wine grapes harvesting dates in France since the 19th century. The data come from several vineyards :
|
| Date | |
| Source | Data from Agence française pour la biodiversité |
| Author | Delorme |
| Other versions |
[]
|
.svg)
Licensing
I, the copyright holder of this work, hereby publish it under the following license:
This file is licensed under the Creative Commons Attribution-Share Alike 4.0 International license.
- You are free:
- to share – to copy, distribute and transmit the work
- to remix – to adapt the work
- Under the following conditions:
- attribution – You must give appropriate credit, provide a link to the license, and indicate if changes were made. You may do so in any reasonable manner, but not in any way that suggests the licensor endorses you or your use.
- share alike – If you remix, transform, or build upon the material, you must distribute your contributions under the same or compatible license as the original.
Create this plot
.svg&action=edit){kind=link}
R code
res <- vendanges %>%
filter(annee > 1964) %>%
glm(doy_v ~ annee + vignoble, data = .)
summary(res)
m <- -1 * res$coefficients[2]
incert <- round(abs(diff(confint(res)[2, ]) / 2 * 10), 1)
language <- list(
en_US = list(
locale_lc_time = "en_US.UTF-8",
title = "Wine grapes harvesting dates in France",
subtitle = bquote("Advance :" ~ .(round(m * 10, 1)) ~ scriptstyle(phantom("") %+-% .(incert)) ~ "days per decade *"),
legend = "Vineyard",
caption = "Data",
caption2 = "\n* computed for the 5 vinyards on 1964-",
caption3 = "where data are fully available, 95 % confidence interval",
x = "Year",
y = "Date",
trend = "Trend\nall vineyards",
outDec = ".",
dateFormat = "%b %e"
),
fr_FR = list(
locale_lc_time = "fr_FR.UTF-8",
title = "Dates de vendanges en France métropolitaine",
subtitle = bquote("précocité :" ~ .(round(m * 10, 1)) ~ scriptstyle(phantom("") %+-% .(incert)) ~ "jours par décennie *"),
legend = "vignoble",
caption = "données",
caption2 = "\n* calculée pour les 5 vignobles sur la période 1964-",
caption3 = "où les données sont complètes, intervalle de confiance à 95 %",
x = "année",
y = "date",
trend = "tendance\ntous vignobles",
outDec = ",",
dateFormat = "%e %b"
)
)
for (l in names(language)) {
message(l)
current <- language[[l]]
options(OutDec = current$outDec)
Sys.setlocale("LC_TIME", current$locale_lc_time)
ggplot(vendanges, aes(annee, doy_v)) +
geom_point(aes(color = vignoble), size = 0.7) +
geom_smooth(aes(color = vignoble), size = .7, span = .5, alpha = 0.1) +
geom_smooth(data = filter(vendanges, annee > 1964), aes(linetype = current$trend), method = "lm", color = "black") +
scale_color_discrete(name = current$legend) +
scale_x_continuous(breaks = pretty_breaks()) +
scale_y_continuous(label = function(x) format(as.Date(paste0("2017-", x), "%Y-%j"), current$dateFormat),
breaks = seq(235, 308, 7),
minor_breaks = seq(235, 308, 1)) +
scale_linetype_manual(name = "", values = c(1)) +
labs(title = paste0(current$title, " ", min(vendanges$annee), "-", max(vendanges$annee)),
subtitle = current$subtitle,
x = current$x,
y = current$y,
caption = paste0(current$caption, " : http://indicateurs-biodiversite.naturefrance.fr/fr/indicateurs/dates-de-vendanges-en-france-metropolitaine", current$caption2, max(vendanges$annee, na.rm = TRUE), " ", current$caption3))
ggsave(paste0("~/vendanges_france_1892-2014_", l ,".svg"), width = 21, height = 13, units = "cm", scale = 1.4, device = svg)
}
Data code
library(tidyverse)
library(lubridate)
library(scales)
theme_update(plot.caption = element_text(size = 7),
panel.grid.minor = element_line(color= "#F2F2F2"))
vendanges <- read_tsv("annee Tavel Châteauneuf-du-Pape Champagne Saint-Émilion Alsace
1892 09-19
1893 08-24
1894 10-02
1895 09-19
1896 09-23
1897 09-15
1898 09-26
1899 09-25
1900 09-20
1901 09-12
1902 09-24
1903 09-28
1904 09-19
1905 09-18
1906 09-19
1907 10-01
1908 09-22
1909 10-05
1910 10-12
1911 09-25
1912 10-02
1913 09-29
1914 09-22
1915 09-21
1916 10-02
1917 09-17
1918 09-23
1919 09-29
1920 09-21
1921 09-19
1922 09-18
1923 10-02
1924 09-28
1925 10-01
1926 10-04
1927 10-02
1928 09-28
1929 09-24
1930 10-01
1931 09-23
1932 10-14
1933 09-25
1934 09-14
1935 09-26
1936 09-29
1937 09-20
1938 09-21
1939 09-29
1940 09-23
1941 09-28
1942 09-21
1943 09-15
1944 09-26
1945 09-25 09-10
1946 09-30 09-30
1947 09-25 09-15
1948 09-27 09-27
1949 09-19 09-26
1950 09-25 09-18
1951 10-08 10-04 10-01 10-08
1952 09-25 09-24 09-08 09-15
1953 09-24 09-28 09-15 09-21
1954 09-29 10-01 09-27 10-05
1955 09-22 09-26 09-28 09-20
1956 10-03 10-04 10-08
1957 09-13 09-24 09-20 10-03
1958 09-25 09-25 10-01 10-06
1959 09-22 09-25 09-10 09-28
1960 09-22 09-19 09-12 10-02
1961 09-07 09-10 09-20 09-18
1962 09-24 10-01 10-04 09-26
1963 09-24 09-21 10-05 10-01
1964 09-21 09-14 09-16 09-22
1965 09-20 09-22 10-09 10-04 11-04
1966 09-16 09-16 09-22 09-22 10-17
1967 09-21 09-18 09-28 09-27 10-05
1968 09-20 09-23 10-03 10-01 10-20
1969 09-18 09-25 10-01 09-29 10-18
1970 09-17 09-21 09-27 09-24 10-10
1971 09-20 09-27 09-18 09-30 10-10
1972 09-21 09-25 10-12 10-12 10-20
1973 09-17 09-25 09-28 09-27 10-04
1974 09-23 09-23 09-28 09-30 10-06
1975 09-22 09-26 10-02 09-26 10-12
1976 09-06 09-16 09-01 09-16 09-21
1977 09-21 09-26 10-06 10-10 10-21
1978 09-21 09-22 10-09 10-09 10-29
1979 09-10 09-14 10-03 10-08 10-14
1980 09-20 09-25 10-09 10-13 11-02
1981 09-14 09-16 09-28 10-01 10-14
1982 09-13 09-15 09-20 09-20 10-06
1983 09-12 09-19 09-29 09-29 10-06
1984 09-24 09-24 10-08 10-02 10-24
1985 09-16 09-20 09-30 10-01 10-13
1986 09-10 09-16 09-30 10-01 10-14
1987 09-17 09-21 10-07 10-02 10-22
1988 09-11 09-19 09-26 10-01 10-09
1989 09-04 09-11 09-12 09-07 10-03
1990 09-05 09-12 09-16 09-11 10-07
1991 09-16 09-12 10-01 09-30 10-11
1992 09-10 09-16 09-19 09-24 09-30
1993 09-09 09-13 09-14 09-20 10-02
1994 08-31 09-09 09-19 09-16 09-29
1995 09-11 09-19 09-25 09-15 10-06
1996 09-16 09-16 09-22 09-23 10-10
1997 09-08 09-12 09-18 09-03 10-03
1998 09-03 09-07 09-17 09-21 09-28
1999 09-07 09-08 09-19 09-14 10-02
2000 09-04 09-04 09-17 09-14 09-22
2001 09-03 09-06 09-26 09-24 09-30
2002 09-06 09-09 09-17 09-20 09-25
2003 08-25 09-01 08-27 09-01 09-12
2004 09-04 09-11 09-26 09-20 10-02
2005 09-05 09-07 09-16 09-12 09-23
2006 08-31 09-06 09-15 09-15 09-24
2007 08-25 09-04 08-31 09-19 09-10
2008 09-07 09-11 09-17 09-29 09-26
2009 08-31 09-07 09-12 09-15 09-17
2010 09-09 09-13 09-16 09-20 09-24
2011 09-01 09-05 08-23 09-06 09-12
2012 09-04 09-10 09-16 09-27 09-24
2013 09-16 09-12 10-01 09-30
2014 09-08 09-15 09-14 09-19 ") %>%
gather(key = "vignoble", value = "date_v", 2:6) %>%
mutate(date_v = ymd(paste0(annee, "-", date_v)),
doy_v = yday(date_v))
File history
Click on a date/time to view the file as it appeared at that time.
| Date/Time | Thumbnail | Dimensions | User | Comment | |
|---|---|---|---|---|---|
| current | 11:56, 29 October 2017 | | 1,041 × 644 (325 KB) | Oeneis | User created page with UploadWizard |
File usage
The following 2 pages use this file:
Global file usage
The following other wikis use this file:
- Usage on mk.wikipedia.org
