Податотека:Vendanges france 1892-2014 en US.svg
Големина на овој PNG-преглед на оваа SVG-податотека: 800 × 495 пиксели. Други разделности: 320 × 198 пиксели | 640 × 396 пиксели | 1.024 × 633 пиксели | 1.280 × 792 пиксели | 2.560 × 1.584 пиксели | 1.041 × 644 пиксели.
Изворна податотека (SVG податотека, номинално 1.041 × 644 пиксели, големина: 325 КБ)
|
Ова е податотека од Ризницата на Викимедија и може да се користи на други проекти. Подолу е наведена содржината на нејзината описна страница.
|
Опис
| Опис |
English: Change of wine grapes harvesting dates in France since the 19th century. The data come from several vineyards :
|
| Датум | |
| Извор | Data from Agence française pour la biodiversité |
| Автор | Delorme |
| Други верзии |
[]
|
.svg)
Лиценцирање
Јас, праводржецот на ова дело, со ова го објавувам истото под следнава лиценца:
Оваа податотека е под лиценцата Криејтив комонс Наведи извор-Сподели под исти услови 4.0 Меѓународна.
- Можете:
- да споделите – да го умножувате, распространувате и емитувате делото
- да преработувате – да преработувате
- Под следните услови:
- наведи извор – Ќе мора да дадете прикладен припис, да ставите врска до лиценцата и да укажете дали има направено промени. Ова може да биде направено на било кој разумен начин, но без да оддава впечаток дека лиценцодавецот стои зад Вас и Вашата употреба.
- сподели под исти услови – Ако го измените или преобразите делото, или пак ако основате друго дело на него, добиеното дело (придонесот) морате да го распространувате (објавувате) само под истата или складна лиценца на изворната.
Create this plot
.svg&action=edit){kind=link}
Оваа векторска слика е изработена со R.
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))
Историја на податотеката
Стиснете на датум/време за да ја видите податотеката како изгледала тогаш.
| Датум/време | Минијатура | Димензии | Корисник | Коментар | |
|---|---|---|---|---|---|
| тековна | 13:56, 29 октомври 2017 | | 1.041 × 644 (325 КБ) | Oeneis | User created page with UploadWizard |
Употреба на податотеката
Податотекава се користи во следнава страница:
Глобална употреба на податотеката
Оваа податотека ја користат и следниве викија:
- Употреба на en.wikipedia.org
