Sys.setlocale("LC_TIME", "English")
library(ggplot2)
library(anytime)
library(tidyverse)
library(svglite)
library(Rcpp)

polls <- read.table("DE.csv", header=T, sep=",", fileEncoding="UTF-8", stringsAsFactor=F)
polls$polldate <- as.Date(anydate(polls$polldate))

spansize <- 0.065           # general smoothing parameter for trend line
nnum <- 600                 # number of points used for trendline (resolution)
startdate <- '2016-09-18'   # date of previous election
enddate <- '2021-09-19'     # (latest) date of next election

# retrieve party names from CSV
party1 <- colnames(polls)[2]
party2 <- colnames(polls)[3]
party3 <- colnames(polls)[4]
party4 <- colnames(polls)[5]
party5 <- colnames(polls)[6]

# define party colors (taken from https://en.wikipedia.org/wiki/Category:Germany_political_party_colour_templates)
col1 <- '#2E4EA4'
col2 <- '#CC1111'
col3 <- '#4488CC'
col4 <- '#FFC003'
col5 <- '#0AD1C9'

transp <-'55'       # transparency level of points

graph <- ggplot(polls)+
  geom_vline(xintercept = as.Date(startdate), color='#aaaaaabb')+       # vertical line (last election)
  geom_vline(xintercept = as.Date(enddate), color='#aaaaaabb')+         # vertical line (next election)
  geom_segment(aes(x=as.Date(startdate), xend=as.Date(enddate), y=5, yend=5), color='#666666bb', linetype='dashed')+      # horizontal line (election threshold 5%)
  # add poll points
  geom_point(aes_string(x='polldate',y=party1),size=ifelse(polls$polldate==startdate | polls$polldate==enddate,3,1.5),shape=ifelse(polls$polldate==startdate | polls$polldate==enddate,23,21),color=paste0(col1,transp),fill=paste0(col1,transp))+
  geom_point(aes_string(x='polldate',y=party2),size=ifelse(polls$polldate==startdate | polls$polldate==enddate,3,1.5),shape=ifelse(polls$polldate==startdate | polls$polldate==enddate,23,21),color=paste0(col2,transp),fill=paste0(col2,transp))+
  geom_point(aes_string(x='polldate',y=party3),size=ifelse(polls$polldate==startdate | polls$polldate==enddate,3,1.5),shape=ifelse(polls$polldate==startdate | polls$polldate==enddate,23,21),color=paste0(col3,transp),fill=paste0(col3,transp))+
  geom_point(aes_string(x='polldate',y=party4),size=ifelse(polls$polldate==startdate | polls$polldate==enddate,3,1.5),shape=ifelse(polls$polldate==startdate | polls$polldate==enddate,23,21),color=paste0(col4,transp),fill=paste0(col4,transp))+
  geom_point(aes_string(x='polldate',y=party5),size=ifelse(polls$polldate==startdate | polls$polldate==enddate,3,1.5),shape=ifelse(polls$polldate==startdate | polls$polldate==enddate,23,21),color=paste0(col5,transp),fill=paste0(col5,transp))+
  # add trend lines
  # the "span" (smoothing parameter) should be manually changed for individual parties that have less polling data
  geom_smooth(aes_string(x='polldate',y=party1,color=shQuote('col1')),method="loess",span=spansize,n=nnum,se=FALSE)+
  geom_smooth(aes_string(x='polldate',y=party2,color=shQuote('col2')),method="loess",span=spansize,n=nnum,se=FALSE)+
  geom_smooth(aes_string(x='polldate',y=party3,color=shQuote('col3')),method="loess",span=spansize,n=nnum,se=FALSE)+
  geom_smooth(aes_string(x='polldate',y=party4,color=shQuote('col4')),method="loess",span=spansize,n=nnum,se=FALSE)+
  geom_smooth(aes_string(x='polldate',y=party5,color=shQuote('col5')),method="loess",span=0.35,n=nnum,se=FALSE)+
  scale_y_continuous(labels = function(x) paste0(x, "%"),limits=c(1,55))+    # add %, manual limits on y-axis
  scale_x_date(limits = as.Date(c(startdate,enddate)), date_minor_breaks = "1 months", date_breaks = "3 months", date_labels = "%b %Y")+    # grid: 1 month, labels: 3 months
  labs(x = "", y = "")+
  scale_color_manual(name="",
                     breaks = c('col1','col2','col3','col4','col5'),
                     labels = c(party1,party2,party3,party4,party5),
                     values = c('col1'=col1,'col2'=col2,'col3'=col3,'col4'=col4,'col5'=col5))+
  # legend appearance
  theme(
    axis.text.x = element_text(size = 11),
    axis.text.y = element_text(size = 12),
    axis.title.y = element_text(size = 16),
    legend.position="right",
    legend.key.width=unit(24, "pt"),
    legend.key.height=unit(24, "pt"),
    legend.text = element_text(size=16, margin = margin(b = 5, t = 5, unit = "pt")))

graph + theme()

ggsave(file="polls.svg", plot=graph, width=18, height=8)

# workaround since svglite doesn't properly work in Wikipedia
aaa=readLines("polls.svg",-1)
bbb <- gsub(".svglite ", "", aaa)
writeLines(bbb,"polls.svg")

polldate,ER,KPRF,LDPR,SRZP,NL
2021-09-19,49.82,18.93,7.55,7.46,5.32
2021-09-18,28.8,17.1,7.3,6.3,6.7
2021-09-12,29,16,8.1,6.3,4.9
2021-09-09,26,22,7,5,6
2021-09-09,30.1,16.9,9.6,6.3,4.2
2021-09-08,29.4,16.5,10,5.5,5.2
2021-09-05,29.3,16.6,7.8,6.1,3.8
2021-09-05,29,14,11,5,3
2021-09-05,34.9,19,12.1,12.6,
2021-09-01,34,18,10,7,2.8
2021-08-29,30,15,10,5,3
2021-08-29,28.3,17.5,8.7,6.6,
2021-08-25,30,16,9,7,
2021-08-22,26.4,17.2,9,6.7,
2021-08-22,27,13,11,6,2
2021-08-15,27.3,16.4,9.1,6.7,
2021-08-15,30,13,10,6,2
2021-08-13,35,19,8,6,4
2021-08-08,29,11,9,6,2
2021-08-08,27.2,16,9.6,6.7,
2021-08-01,27,11,9,6,2
2021-08-01,27.8,15.6,9.6,6.7,
2021-07-30,35.6,16.2,13.6,9.4,
2021-07-25,29,12,10,6,3
2021-07-25,28.7,14.1,10.3,7.2,
2021-07-18,31,12,11,7,3
2021-07-18,27.7,14.1,10.6,7.2,
2021-07-11,31,11,10,6,2
2021-07-11,28.3,13.6,10.5,7,
2021-07-11,28,13,11,7,3.1
2021-07-06,28,11,11,6,2.6
2021-07-04,30,11,10,7,
2021-07-04,28.7,14,10.9,7.2,
2021-06-29,25,16,8,9,1
2021-06-27,29,13,11,8,
2021-06-27,28.7,13.9,10.7,7.1,
2021-06-20,32,12,11,8,2
2021-06-20,30.4,11.9,10,7.8,
2021-06-13,32,11,10,7,1
2021-06-13,30.5,12,10.4,7.7,
2021-06-06,31,10,10,6,1
2021-06-06,30.6,12.7,10.8,7.6,
2021-05-31,31,12,10,8,2
2021-05-30,32,11,11,8,1
2021-05-30,29.7,13.2,10.2,7.3,
2021-05-23,33,13,11,8,1
2021-05-23,29.5,12.7,10.2,7.8,
2021-05-16,31,12,11,7,1
2021-05-16,30.4,12.1,10.5,7.7,
2021-05-08,30,11,11,7,1
2021-05-08,29.6,12.2,10.7,7.4,
2021-05-02,30.5,12.2,11.2,7.1,
2021-04-25,33,12,10,7,1
2021-04-25,303,12.2,10.3,7.4,
2021-04-18,32,13,11,8,1
2021-04-18,29.1,12.9,10.3,7.6,
2021-04-11,32,12,10,7,1
2021-04-11,29.4,13,10.7,7.7,
2021-04-04,31,12,9,7,1
2021-04-04,29.2,12.7,10.2,7.9,
2021-03-28,31,12,11,7,1
2021-03-28,30.3,12.4,10.3,6.9,
2021-03-22,33,16,9,8,1
2021-03-21,31,12,11,8,1
2021-03-21,29.3,12.6,10.3,8,
2021-03-14,31,13,10,7,1
2021-03-14,28.7,12.5,10.8,7.3,
2021-03-07,31,12,9,6,1
2021-03-07,30.3,12.3,10.8,8.2,
2021-02-28,32,12,9,6,1
2021-02-28,29.4,12.4,10.1,8.4,
2021-02-24,27,10,12,5,0.4
2021-02-21,30,13,10,7,1
2021-02-21,29.8,12.2,10.2,7.1,
2021-02-14,30,12,10,7,1
2021-02-14,30.2,11.6,10.8,7.4,
2021-02-07,29,10,9,6,0
2021-02-07,31,11.1,9.6,6.6,
2021-01-31,31,10,9,7,1
2021-01-31,30.9,11.2,10.6,6.2,
2021-01-24,32,11,11,6,1
2021-01-24,30.6,11.9,10.9,7,
2021-01-17,32,12,13,5,1
2021-01-17,31,13,11.9,6.6,
2021-01-10,28,12,11,4,
2020-12-30,30.5,13,12,7.3,
2020-12-20,31.1,13.1,11.7,6.2,
2020-12-20,31,12,12,6,
2020-12-13,30.1,13.4,12.1,7,
2020-12-13,30,12,11,5,
2020-12-06,30.2,13.2,12.7,6.4,
2020-12-06,28,12,10,5,
2020-11-29,29.9,13.2,13.1,6.6,
2020-11-29,29,13,10,6,
2020-11-26,29,7,11,5,1
2020-11-22,30.8,13,12.3,6.8,
2020-11-22,30,13,11,6,
2020-11-15,31,13.2,11.7,6.6,
2020-11-15,13,12,10,6,
2020-11-08,31.6,12.9,11.5,6.5,
2020-11-08,30,12,9,5,
2020-11-01,31.5,13,11.8,6.4,
2020-11-01,30,13,10,6,
2020-10-25,31.3,13.1,11.8,6.2,
2020-10-25,31,13,11,6,
2020-10-18,31.8,13.1,11.4,6.8,
2020-10-18,31,12,10,5,
2020-10-11,33.1,12.7,11,6.8,
2020-10-11,30,11,10,5,
2020-10-04,33,12.9,11.2,6.4,
2020-10-04,31,13,10,5,
2020-09-27,32.4,13.3,11.5,6.7,
2020-09-27,31,13,11,6,
2020-09-20,31.7,14.1,11.6,6.7,
2020-09-20,30,13,10,5,
2020-09-13,31.5,13.5,10.7,6,
2020-09-13,30,12,9,5,
2020-09-06,31.5,12.8,11.7,6.4,
2020-09-06,31,12,9,5,
2020-08-30,31.6,13.2,11.5,6,
2020-08-30,31,12,10,5,
2020-08-26,31,7,11,3,1
2020-08-23,31.7,13,11.4,6.1,
2020-08-23,30,13,10,5,
2020-08-16,30.5,13,11.4,5.8,
2020-08-16,30,12,11,5,
2020-08-09,31.9,13,11.8,6,
2020-08-09,30,11,12,5,
2020-08-02,31.6,13,12.5,6,
2020-08-02,29,12,13,5,
2020-07-26,32.4,13,12.8,5.6,
2020-07-26,31,13,13,6,
2020-07-19,32,12.6,12.8,5.8,
2020-07-19,32,12,12,5,
2020-07-12,33.9,11.8,11.2,6.2,
2020-07-12,32,11,9,5,
2020-07-05,33.3,12.5,10.3,6,
2020-07-05,33,11,10,5,
2020-06-28,36.1,12.6,10.5,5.3,
2020-06-28,35,12,11,6,
2020-06-21,33.4,13,11.2,6.2,
2020-06-21,33,12,10,5,
2020-06-14,33,13.1,10.7,5.8,
2020-06-14,32,13,9,4,
2020-06-07,32.2,14.5,11,5.9,
2020-06-07,31,12,9,3,
2020-05-31,33.4,14.2,11.1,5.9,
2020-05-31,31,11,10,4,
2020-05-24,33.9,14.5,11.5,5.4,
2020-05-24,33,13,11,5,
2020-05-17,33.8,14.3,10.7,5.5,
2020-05-17,31,13,10,5,
2020-05-10,33.8,14.5,9.9,5.8,
2020-05-10,30,12,9,5,
2020-05-03,33.5,13.9,11.4,5.8,
2020-04-26,33,13,10,5,
2020-04-26,33,13.7,11,5.9,
2020-04-26,31,12,9,4,
2020-04-19,34,14.1,10.3,5.7,
2020-04-19,34,12,8,5,
2020-04-12,34.3,13.2,9.6,5.9,
2020-04-12,32,10,8,4,
2020-04-05,36,12.8,9.6,5.6,
2020-04-05,34,11,8,4,
2020-04-02,38,11,9,4,
2020-03-29,34.7,13.5,10.9,5.2,
2020-03-29,37,12,9,4,
2020-03-22,32.5,14.2,11.5,5.7,
2020-03-22,35,13,12,5,
2020-03-15,33,13.6,11.4,6.1,
2020-03-15,33,9,9,4,
2020-03-07,34,16,10,5,
2020-03-07,32,9,10,4,
2020-03-07,32.9,14.8,11.4,6,
2020-03-01,31,10,10,5,
2020-03-01,32.3,14.8,11.4,6,
2020-02-26,28,8,10,3,
2020-02-23,32,11,11,5,
2020-02-22,33,14.9,12.2,6.3,
2020-02-16,32.7,14.8,11.4,6.4,
2020-02-16,32,10,12,5,
2020-02-09,33.2,14.5,12,6,
2020-02-09,31,11,12,4,
2020-02-02,32.5,14.8,11.5,6.6,
2020-02-02,31,11,12,4,
2020-01-26,34.2,15.5,11.8,6.3,
2020-01-26,32,11,12,5,
2020-01-19,32.6,15.1,12.5,6.1,
2020-01-19,33,12,12,4,
2020-01-12,32.5,14.5,12.6,5.9,
2020-01-12,32,12,13,3,
2019-12-22,33,14.3,12.8,5.6,
2019-12-22,34,12,12,4,
2019-12-18,29,9,8,3,
2019-12-15,31.4,15.6,13,6,
2019-12-15,33,12,12,4,
2019-12-08,32.3,14.9,12.8,4,
2019-12-08,32,12,12,5,
2019-12-01,33.3,15.6,12.3,5.8,
2019-12-01,33,12,12,4,
2019-11-24,32.7,15.4,11.5,5.6,
2019-11-24,33,12,12,4,
2019-11-17,32.6,14.9,12.1,6.2,
2019-11-17,33,12,12,4,
2019-11-10,33,15.4,12,5.7,
2019-11-10,34,13,11,4,
2019-11-03,32.6,15.4,12.6,6,
2019-11-03,32,13,12,4,
2019-10-27,33.9,15.4,11.7,5.6,
2019-10-27,31,13,12,4,
2019-10-20,33.3,14.8,12.6,6,
2019-10-20,32,12,13,4,
2019-10-13,33.7,16,12.9,6,
2019-10-13,34,12,13,4,
2019-10-06,33.4,15.6,12.4,6.6,
2019-10-06,31,12,13,5,
2019-09-29,32.5,15.3,13,5.9,
2019-09-29,31,13,13,4,
2019-09-22,33.7,15.8,11.9,6,
2019-09-22,33,12,13,4,
2019-09-15,33.6,16.2,12.3,5.9,
2019-09-15,33,12,13,4,
2019-09-08,32.2,15.8,12.6,6.3,
2019-09-08,31,12,12,4,
2019-08-25,32.6,14.6,12.8,5.7,
2019-08-25,32,12,13,4,
2019-08-18,32.5,15.5,12.6,5.4,
2019-08-18,32,12,14,4,
2019-08-11,33,15.6,11.9,5.6,
2019-08-11,32,10,14,4,
2019-08-04,32.4,15.1,12.9,6.2,
2019-08-04,33,11,13,4,
2019-07-28,33.5,15.5,12.2,5.8,
2019-07-28,33,12,12,4,
2019-07-24,28,11,10,2,
2019-07-21,33,14.7,12.6,6.1,
2019-07-21,34,12,12,5,
2019-07-14,32.3,15.8,13.2,6.1,
2019-07-14,35,12,12,4,
2019-07-07,32.2,15.3,13,6,
2019-07-07,34,12,12,4,
2019-06-30,33.6,15.1,12,6.3,
2019-06-30,33,11,13,5,
2019-06-23,34.3,14.6,12.5,5.9,
2019-06-23,34,11,13,4,
2019-06-16,33.9,15.4,12,6.5,
2019-06-16,34,12,12,4,
2019-06-09,33.7,15.8,12,5.8,
2019-06-09,34,12,12,4,
2019-06-02,34.3,14.8,12.5,6.2,
2019-06-02,34,12,12,4,
2019-05-26,34.5,15.1,12.1,5.6,
2019-05-26,34,13,12,4,
2019-05-19,34.7,15.3,11.2,5.7,
2019-05-19,36,13,12,4,
2019-05-12,35,14.7,12,6.1,
2019-05-12,36,13,11,3,
2019-05-05,34.5,15.3,11.9,6.2,
2019-04-29,32,10,10,3,
2019-04-28,34,16.3,12.9,6.6,
2019-04-28,35,12,12,4,
2019-04-21,34.6,15.6,11.8,6.1,
2019-04-21,34,12,12,3,
2019-04-14,35.1,15.8,12,6.1,
2019-04-14,35,12,12,3,
2019-04-07,35.5,15.1,11.5,5.9,
2019-04-07,34,13,12,3,
2019-03-31,35.6,15,12.2,6.1,
2019-03-31,32,13,12,3,
2019-03-24,37.1,15.3,10.8,5.6,
2019-03-24,33,13,11,4,
2019-03-17,34.8,16.5,11.3,6.6,
2019-03-17,34,13,11,4,
2019-03-10,34.6,16.1,11.7,5.5,
2019-03-10,34,12,11,4,
2019-03-03,35.4,15.3,11.4,6.1,
2019-03-03,35,12,11,4,
2019-02-24,35.2,14.9,12.1,5.3,
2019-02-24,33,13,11,4,
2019-02-17,33.2,15.8,12.7,6.2,
2019-02-17,32,13,12,4,
2019-02-10,33.2,16,13.3,5.9,
2019-02-10,33,13,12,4,
2019-02-03,32.9,15.9,12.3,6.3,
2019-02-03,32,14,12,3,
2019-01-27,32.3,16.2,13.4,6,
2019-01-27,32,12,11,3,
2019-01-20,32.7,16.3,12,6.3,
2019-01-20,33,12,11,4,
2019-01-13,33.8,16.3,11.8,6,
2019-01-13,33,13,13,3,
2018-12-29,35.6,15.8,12.1,6.3,
2018-12-23,35.2,15.5,11.8,6.5,
2018-12-23,33,13,11,4,
2018-12-22,33,18,10,6,
2018-12-16,34,14,11,3,
2018-12-16,36.2,15.5,11.7,5.5,
2018-12-09,34,14,10,4,
2018-12-09,36.6,15.3,11.1,5.9,
2018-12-02,35,14,11,3,
2018-12-02,35.4,15.5,10.9,5.6,
2018-11-25,33,14,11,3,
2018-11-25,33.9,16.7,11.5,6.1,
2018-11-18,32,14,12,3,
2018-11-18,35.7,16.4,10.7,5.6,
2018-11-11,33,13,11,4,
2018-11-11,36.7,15.5,10.9,5.9,
2018-11-04,35,13,12,3,
2018-10-28,35,12,12,4,
2018-10-28,36.3,16.1,11.5,5.5,
2018-10-21,35,13,12,3,
2018-10-21,36.7,16.5,11.6,5.8,
2018-10-14,35,14,12,4,
2018-10-14,36.7,16.4,11.4,5.7,
2018-10-07,32,13,13,3,
2018-10-07,34.9,15.8,12.6,6.3,
2018-09-30,31,13,14,4,
2018-09-30,34.5,17.6,12,6.1,
2018-09-23,34,13,13,3,
2018-09-23,35.5,17.5,11.2,5.6,
2018-09-16,35,13,12,4,
2018-09-16,36.6,17,10.8,6.2,
2018-09-09,34,13,11,3,
2018-09-09,35.3,16.2,11.2,6.7,
2018-09-02,36.3,14.7,11.3,6.2,
2018-09-02,35,13,11,4,
2018-08-30,28,9,11,3,
2018-08-26,36.6,14.9,11.6,6.4,
2018-08-26,34,13,11,4,
2018-08-19,36.1,15.3,11.1,5.9,
2018-08-19,35,12,12,4,
2018-08-12,35.3,14.7,11.4,6.2,
2018-08-12,34,12,12,4,
2018-08-09,25,18,13,6,
2018-08-05,34.9,15.8,11.8,6.3,
2018-08-05,32,12,12,3,
2018-07-29,35,15.6,10.9,6.2,
2018-07-29,33,13,11,4,
2018-07-22,37.1,15.5,10.7,5.8,
2018-07-22,35,13,12,3,
2018-07-15,38.6,14.4,10.2,6,
2018-07-15,37,12,10,4,
2018-07-08,38.8,13.6,10.3,5.9,
2018-07-08,36,12,11,4,
2018-07-01,38.1,14.5,10.5,5.7,
2018-07-01,36,13,11,4,
2018-06-24,38.7,14.5,10.3,5.7,
2018-06-24,35,13,11,4,
2018-06-17,35.9,11.8,9.5,4.9,
2018-06-17,38,12,10,4,
2018-06-10,37.8,11.1,8.3,4.6,
2018-06-10,34,9,8,3,
2018-06-03,38.9,10.8,8.7,4.9,
2018-06-03,42,10,10,3,
2018-05-27,49.3,10.2,8.6,4.7,
2018-05-27,46,9,9,2,
2018-05-20,49.9,10.8,8.1,4.8,
2018-05-20,47,10,8,4,
2018-05-13,49.9,10.4,7.7,4.8,
2018-05-13,46,9,9,3,
2018-05-06,50.7,9.3,7.8,4.7,
2018-04-29,49.9,9.7,8.4,3.4,
2018-04-22,49.4,10.3,8.2,3.8,
2018-04-15,47,9,8,2,
2018-04-15,48.8,10.7,7.8,2.9,
2018-04-08,47,9,8,2,
2018-04-08,49.5,10.6,7.9,3.5,
2018-04-01,47,10,7,2,
2018-04-01,50.8,10.7,7.8,3.5,
2018-03-25,53,9,6,1,
2018-03-25,51.5,11.4,7.8,3.8,
2018-03-17,52.2,8.5,8.4,3.1,
2018-03-11,51.4,9.1,8.3,2.5,
2018-03-11,50,8,8,2,
2018-03-04,52,9.4,8.8,2.7,
2018-03-04,51,8,9,2,
2018-02-25,50.6,9.5,10.1,3,
2018-02-25,49,9,10,2,
2018-02-25,49.5,10.1,8.9,3.8,
2018-02-18,50,9,9,2,
2018-02-11,50.8,9.6,8.7,3.2,
2018-02-11,51,8,9,3,
2018-02-04,50,9.5,10.4,3.8,
2018-02-04,51,9,9,3,
2018-01-28,49.4,10,9.1,4.2,
2018-01-28,53,8,8,2,
2018-01-21,50,8,8,2,
2018-01-21,52.3,10,8.7,3.4,
2018-01-14,50,9,7,3,
2018-01-14,53.2,10.5,9.5,3.8,
2017-12-29,51.6,11,10.2,4.3,
2017-12-24,52.3,9.2,10.4,4.6,
2017-12-24,51,8,9,3,
2017-12-17,51,7,10,3,
2017-12-17,54.4,8.5,9.2,3.9,
2017-12-11,50,8,10,2,
2017-12-10,53.8,7.6,10,4.3,
2017-12-08,44,11,9,4,
2017-12-05,37,9,10,3,
2017-12-03,51,8,9,3,
2017-12-03,52.2,9.4,10.1,4.6,
2017-11-27,50,8,9,3,
2017-11-26,52.3,8.6,10.4,4.9,
2017-11-19,52.1,9.6,9.4,4.2,
2017-11-17,50,9,9,3,
2017-11-14,50,9,9,3,
2017-11-15,52.1,9.2,9.5,5.3,
2017-11-05,53.4,8.2,10,5.1,
2017-11-03,50,8,9,4,
2017-10-29,51.8,9,10.1,5,
2017-10-30,50,7,10,5,
2017-10-22,52,9.2,9.7,4.4,
2017-10-20,49,8,11,4,
2017-10-15,50.8,8.7,10.1,5,
2017-10-13,49,9,11,4,
2017-10-08,50.7,9.4,9.8,4.6,
2017-10-06,50,9,10,4,
2017-10-03,50,8,9,4,
2017-10-01,51,8.9,9.2,5.5,
2017-09-27,49,9,10,4,
2017-09-24,51.7,9.1,9.4,5.2,
2017-09-18,49,9,11,4,
2017-09-17,52.9,8.6,9.5,3.8,
2017-09-10,52.1,9,10,4.5,
2017-09-08,49,8,11,4,
2017-09-03,51.6,9.1,9.3,4.6,
2017-08-29,49,7,11,3,
2017-08-27,49.2,9.2,10.8,5.5,
2017-08-20,51,9.4,10.8,4.4,
2017-08-20,49,7,12,4,
2017-08-13,50.9,8.6,10.9,4.9,
2017-08-06,51.9,8.3,11.5,5.4,
2017-07-30,50.3,9.1,11.1,5,
2017-07-28,46,9,11,4,
2017-07-23,49.2,9.6,11.7,5.5,
2017-07-23,46,8,10,4,
2017-07-16,50.6,8.7,10.6,5.2,
2017-07-14,47,8,11,4,
2017-07-09,47.9,9.9,11,5.7,
2017-07-07,48,8,11,4,
2017-07-02,47.8,9.8,12.1,4.8,
2017-07-01,49,8,11,4,
2017-06-26,39,8,8,2,
2017-06-25,47.4,10.6,11.7,4.9,
2017-06-23,48,7,12,4,
2017-06-18,48,8,12,4,
2017-06-18,50.9,8.9,10.1,4.9,
2017-06-12,47,9,12,4,
2017-06-11,48.8,9.2,12.8,5.6,
2017-06-04,48.4,9.5,12,4.4,
2017-05-28,47.6,9.4,12.6,5.3,
2017-05-21,47.6,10.7,12.5,5,
2017-05-14,49.4,9.3,12.8,5.4,
2017-05-07,49.3,10.5,12.1,5,
2017-04-30,48.1,10.2,12,5.4,
2017-04-23,47.7,11,12.4,5.1,
2017-04-16,48,10.6,12.6,5.4,
2017-04-09,49.3,9.5,12.6,4.8,
2017-04-02,49,9.3,14.4,4.8,
2017-03-26,49.7,9.3,12.9,5.1,
2017-03-19,51.4,9.3,13,4.6,
2017-03-12,50.1,9.4,12.5,5.6,
2017-03-05,49.9,10.2,11.5,6.1,
2017-02-26,51.1,9.4,12.5,5.1,
2017-02-19,50.3,8.8,13.3,5.2,
2017-02-12,49.8,10.2,12,5.9,
2017-02-05,48.7,10.9,12.9,5.2,
2017-01-29,50.7,10,11.8,4.7,
2017-01-22,50.8,10.4,13,5.1,
2017-01-15,49.3,10.5,13.7,5.2,
2016-12-25,48,8.8,12.1,6.5,
2016-12-18,48,8.2,12,4.9,
2016-12-11,46.9,9.4,12,6.2,
2016-12-04,45.1,8.8,13.1,7.8,
2016-11-27,46.8,8.9,13,5.3,
2016-11-20,43.2,8.8,15.1,5.9,
2016-11-13,45.1,9.2,14.3,5.3,
2016-11-06,44.9,9.4,12.6,6.8,
2016-10-30,44.4,11,12.2,6.1,
2016-10-23,41.5,10.4,13.8,6.8,
2016-10-16,44.7,8.8,13.8,5.9,
2016-10-09,44.6,8.4,13.7,6.3,
2016-10-02,43.5,8.9,15,5.8,
2016-09-25,43.1,10,15.7,5,
2016-09-18,54.2,13.34,13.14,6.22,