# Get this figure: fig <- get_figure("BKilmartinIT", 1140)
# Get this figure's data: data <- get_figure("BKilmartinIT", 1140)$data
# Add data to this figure: p <- add_trace(p, x=c(4, 5), y=c(4, 5), kwargs=list(filename="Greece Elections: poll of polls", fileopt="extend"))
# Get y data of first trace: y1 <- get_figure("BKilmartinIT", 1140)$data[[1]]$y

# Get figure documentation: https://plotly.com/r/get-requests/
# Add data documentation: https://plotly.com/r/file-options/

# You can reproduce this figure in R with the following code!

# Learn about API authentication here: https://plotly.com/r/getting-started
# Find your api_key here: https://plotly.com/settings/api

library(plotly)
trace1 <- list(
  uid = "eadc3f", 
  mode = "markers", 
  name = "Syriza", 
  type = "scatter", 
  x = c("25/01/2015", "13/02/2015", "25/02/2015", "02/03/2015", "17/03/2015", "18/03/2015", "18/03/2015", "20/03/2015", "20/03/2015", "02/04/2015", "02/04/2015", "16/04/2015", "22/04/2015", "23/04/2015", "28/04/2015", "29/04/2015", "30/04/2015", "06/05/2015", "06/05/2015", "06/05/2015", "07/05/2015", "07/05/2015", "15/05/2015", "19/05/2015", "22/05/2015", "29/05/2015", "04/06/2015", "06/06/2015", "06/06/2015", "10/06/2015", "15/06/2015", "16/06/2015", "17/06/2015", "26/06/2015", "02/07/2015", "03/07/2015", "09/07/2015", "17/07/2015", "21/07/2015", "24/07/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "28/08/2015", "28/08/2015", "01/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "03/09/2015", "03/09/2015", "03/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "08/09/2015", "09/09/2015", "09/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "14/09/2015", "14/09/2015", "15/09/2015", "15/09/2015", "15/09/2015", "16/09/2015", "16/09/2015", "16/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "18/09/2015", "18/09/2015"), 
  y = c("36.3", "49.4", "47.6", "46.2", "46.4", "44.8", "47.8", "40.9", "51.5", "45.6", "40.3", "39.4", "41", "42.8", "41.3", "40.6", "39.1", "44.5", "47.5", "41.6", "43.7", "41.8", "45", "48.5", "38", "37.8", "39.2", "45", "43", "41.2", "39.7", "43", "47.5", "38.6", "42", "40.5", "45.6", "42.5", "41.2", "41.2", "31.5", "31", "29.5", "33.4", "28.7", "32", "29", "29.6", "29", "29.3", "31.2", "31", "30.5", "27.1", "29.6", "30.5", "29.2", "30", "30", "32.6", "30", "30", "29.6", "30.4", "30.5", "34.5", "34", "30.6", "31.7", "31", "30.5", "30", "33.5", "30.4", "32.8", "31", "29.7", "31.7", "31.6", "33", "31.5", "30.5", "31.5", "32.6", "31.3", "32", "31.6", "30.7", "30.5", "30.6", "30.7", "30.7", "32"), 
  marker = list(
    color = "rgb(224, 102, 102)", 
    opacity = 0.5
  ), 
  hoverinfo = "none", 
  showlegend = FALSE
)
trace2 <- list(
  uid = "5c59d1", 
  mode = "markers", 
  name = "New Democracy", 
  type = "scatter", 
  x = c("25/01/2015", "13/02/2015", "25/02/2015", "02/03/2015", "17/03/2015", "18/03/2015", "18/03/2015", "20/03/2015", "20/03/2015", "02/04/2015", "02/04/2015", "16/04/2015", "22/04/2015", "23/04/2015", "28/04/2015", "29/04/2015", "30/04/2015", "06/05/2015", "06/05/2015", "06/05/2015", "07/05/2015", "07/05/2015", "15/05/2015", "19/05/2015", "22/05/2015", "29/05/2015", "04/06/2015", "06/06/2015", "06/06/2015", "10/06/2015", "15/06/2015", "16/06/2015", "17/06/2015", "26/06/2015", "02/07/2015", "03/07/2015", "09/07/2015", "17/07/2015", "21/07/2015", "24/07/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "28/08/2015", "28/08/2015", "01/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "03/09/2015", "03/09/2015", "03/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "08/09/2015", "09/09/2015", "09/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "14/09/2015", "14/09/2015", "15/09/2015", "15/09/2015", "15/09/2015", "16/09/2015", "16/09/2015", "16/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "18/09/2015", "18/09/2015"), 
  y = c("27.8", "20", "20.7", "21.5", "19.8", "23.4", "21.1", "26.8", "20.5", "20.9", "27", "27.5", "24.1", "26", "24.1", "24.4", "27.8", "20.5", "18.5", "24.1", "23.3", "24.2", "19", "21", "27.2", "27.4", "25.5", "21.4", "20.5", "23.6", "26", "17.5", "19.5", "25.4", "24", "24.9", "22.6", "21.5", "21.9", "23.1", "27.9", "26", "26.8", "22.8", "26.3", "26.9", "25.5", "27.4", "27.8", "27.4", "28.6", "30", "30", "28.2", "30.4", "30.9", "28.7", "29.3", "30", "24", "30.5", "29.5", "29.6", "29.9", "30", "28.5", "28.5", "29.8", "31.3", "31", "32.9", "30", "30.5", "30.1", "24.6", "30", "29.2", "32.7", "31.6", "28", "32", "31", "31.5", "28.5", "30.7", "28.5", "31.9", "32.3", "30.5", "32.8", "30.4", "32.3", "28.5"), 
  marker = list(
    color = "rgb(31, 119, 180)", 
    opacity = 0.5
  ), 
  hoverinfo = "none", 
  showlegend = FALSE
)
trace3 <- list(
  uid = "d20ac9", 
  mode = "markers", 
  name = "Golden Dawn", 
  type = "scatter", 
  x = c("25/01/2015", "13/02/2015", "25/02/2015", "02/03/2015", "17/03/2015", "18/03/2015", "18/03/2015", "20/03/2015", "20/03/2015", "02/04/2015", "02/04/2015", "16/04/2015", "22/04/2015", "23/04/2015", "28/04/2015", "29/04/2015", "30/04/2015", "06/05/2015", "06/05/2015", "06/05/2015", "07/05/2015", "07/05/2015", "15/05/2015", "19/05/2015", "22/05/2015", "29/05/2015", "04/06/2015", "06/06/2015", "06/06/2015", "10/06/2015", "15/06/2015", "16/06/2015", "17/06/2015", "26/06/2015", "02/07/2015", "03/07/2015", "09/07/2015", "17/07/2015", "21/07/2015", "24/07/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "28/08/2015", "28/08/2015", "01/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "03/09/2015", "03/09/2015", "03/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "08/09/2015", "09/09/2015", "09/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "14/09/2015", "14/09/2015", "15/09/2015", "15/09/2015", "15/09/2015", "16/09/2015", "16/09/2015", "16/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "18/09/2015", "18/09/2015"), 
  y = c("6.3", "5.1", "5.9", "5.7", "6.7", "5.4", "6.1", "6.7", "4.5", "5.5", "6.2", "5.9", "6.3", "5.9", "6.1", "6.1", "5.6", "6.5", "6", "6.2", "5", "5.9", "7.5", "6", "5.8", "5.8", "6", "5.3", "7", "6", "6.2", "7.5", "6.5", "6.3", "8", "5", "5.1", "6.5", "6.6", "7.3", "7.8", "8.5", "7", "7.4", "7.2", "7.1", "6.5", "7.5", "8.3", "8.2", "6.8", "7", "7", "9.6", "6.5", "6.7", "7.7", "7.4", "7.5", "7.4", "7.4", "7", "7.1", "7.4", "7.5", "8", "8", "7.7", "6.2", "7", "7.4", "7.5", "7", "7.6", "7.8", "7.5", "7.8", "6.6", "7.2", "9", "7", "7.5", "6.8", "8.1", "7.2", "8", "6.7", "6.3", "7", "5.5", "7.5", "6.3", "9.1"), 
  marker = list(
    color = "rgb(0, 0, 0)", 
    opacity = 0.5, 
    maxdisplayed = 155
  ), 
  hoverinfo = "none", 
  showlegend = FALSE
)
trace4 <- list(
  uid = "dab7d3", 
  mode = "markers", 
  name = "Potami", 
  type = "scatter", 
  x = c("25/01/2015", "13/02/2015", "25/02/2015", "02/03/2015", "17/03/2015", "18/03/2015", "18/03/2015", "20/03/2015", "20/03/2015", "02/04/2015", "02/04/2015", "16/04/2015", "22/04/2015", "23/04/2015", "28/04/2015", "29/04/2015", "30/04/2015", "06/05/2015", "06/05/2015", "06/05/2015", "07/05/2015", "07/05/2015", "15/05/2015", "19/05/2015", "22/05/2015", "29/05/2015", "04/06/2015", "06/06/2015", "06/06/2015", "10/06/2015", "15/06/2015", "16/06/2015", "17/06/2015", "26/06/2015", "02/07/2015", "03/07/2015", "09/07/2015", "17/07/2015", "21/07/2015", "24/07/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "28/08/2015", "28/08/2015", "01/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "03/09/2015", "03/09/2015", "03/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "08/09/2015", "09/09/2015", "09/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "14/09/2015", "14/09/2015", "15/09/2015", "15/09/2015", "15/09/2015", "16/09/2015", "16/09/2015", "16/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "18/09/2015", "18/09/2015"), 
  y = c("6.1", "5", "6.4", "6", "4.9", "4.8", "5.6", "5.9", "5", "7.5", "6.2", "6.3", "8.1", "6", "6.7", "7.2", "6.5", "8.5", "6.5", "7.7", "7.2", "6.7", "7.5", "5.5", "7.1", "7.2", "6.5", "7.4", "7", "7.6", "6.8", "7.5", "6.5", "6.3", "6.5", "6.2", "6.3", "8", "7.5", "7.9", "6.3", "5.5", "7.2", "7.7", "6.6", "5.4", "7", "6.7", "6.7", "6.6", "7.1", "6", "6", "5.3", "6", "5.6", "5.6", "5.8", "6", "7.1", "5.4", "6", "5.4", "6.4", "6", "5", "5", "4.8", "5.5", "4.5", "5.4", "5.5", "5.5", "5.1", "5.9", "5.5", "5.6", "5.7", "5.9", "6", "5.5", "5.5", "4.8", "5.7", "5.4", "6", "5.9", "5.3", "5.5", "4.9", "5.1", "5.3", "5.8"), 
  marker = list(
    color = "rgb(109, 158, 235)", 
    opacity = 0.5
  ), 
  hoverinfo = "none", 
  showlegend = FALSE
)
trace5 <- list(
  uid = "6d92df", 
  mode = "markers", 
  name = "Communist Party (KKK)", 
  type = "scatter", 
  x = c("25/01/2015", "13/02/2015", "25/02/2015", "02/03/2015", "17/03/2015", "18/03/2015", "18/03/2015", "20/03/2015", "20/03/2015", "02/04/2015", "02/04/2015", "16/04/2015", "22/04/2015", "23/04/2015", "28/04/2015", "29/04/2015", "30/04/2015", "06/05/2015", "06/05/2015", "06/05/2015", "07/05/2015", "07/05/2015", "15/05/2015", "19/05/2015", "22/05/2015", "29/05/2015", "04/06/2015", "06/06/2015", "06/06/2015", "10/06/2015", "15/06/2015", "16/06/2015", "17/06/2015", "26/06/2015", "02/07/2015", "03/07/2015", "09/07/2015", "17/07/2015", "21/07/2015", "24/07/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "28/08/2015", "28/08/2015", "01/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "03/09/2015", "03/09/2015", "03/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "08/09/2015", "09/09/2015", "09/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "14/09/2015", "14/09/2015", "15/09/2015", "15/09/2015", "15/09/2015", "16/09/2015", "16/09/2015", "16/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "18/09/2015", "18/09/2015"), 
  y = c("5.5", "5.2", "4.7", "5.9", "6", "5.5", "4.5", "5.9", "5.5", "5", "5.8", "5.9", "5.6", "6", "5.9", "6.1", "5.8", "5", "6", "5.7", "5.8", "6.4", "5", "6", "5.9", "6", "5.6", "5.2", "6", "6.3", "6.1", "5", "5.5", "6.1", "6.5", "5.2", "4.5", "5.5", "5.1", "6.5", "5.8", "6.5", "6.8", "7.2", "5.4", "4.8", "7", "5.7", "5.9", "6.1", "5.2", "6", "6", "5.5", "6.5", "6.2", "7", "6", "6.5", "6.8", "5.7", "6", "5.9", "6", "6.5", "5.5", "5.5", "7.5", "5.9", "6.5", "4.3", "5.5", "5", "6.7", "6.6", "6.5", "6.6", "6.3", "6.2", "6", "6", "5.5", "5.8", "5.6", "5.9", "6.5", "6.2", "6.1", "5.5", "6.6", "6.9", "6.1", "6.4"), 
  marker = list(
    color = "rgb(255, 0, 0)", 
    opacity = 0.5
  ), 
  hoverinfo = "none", 
  showlegend = FALSE
)
trace6 <- list(
  uid = "107990", 
  mode = "markers", 
  name = "Independent Greeks", 
  type = "scatter", 
  x = c("25/01/2015", "13/02/2015", "25/02/2015", "02/03/2015", "17/03/2015", "18/03/2015", "18/03/2015", "20/03/2015", "20/03/2015", "02/04/2015", "02/04/2015", "16/04/2015", "22/04/2015", "23/04/2015", "28/04/2015", "29/04/2015", "30/04/2015", "06/05/2015", "06/05/2015", "06/05/2015", "07/05/2015", "07/05/2015", "15/05/2015", "19/05/2015", "22/05/2015", "29/05/2015", "04/06/2015", "06/06/2015", "06/06/2015", "10/06/2015", "15/06/2015", "16/06/2015", "17/06/2015", "26/06/2015", "02/07/2015", "03/07/2015", "09/07/2015", "17/07/2015", "21/07/2015", "24/07/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "28/08/2015", "28/08/2015", "01/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "03/09/2015", "03/09/2015", "03/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "08/09/2015", "09/09/2015", "09/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "14/09/2015", "14/09/2015", "15/09/2015", "15/09/2015", "15/09/2015", "16/09/2015", "16/09/2015", "16/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "18/09/2015", "18/09/2015"), 
  y = c("4.8", "5.1", "4.3", "6", "5.6", "5", "4.4", "4.8", "4", "3.8", "5.5", "5.6", "5.1", "4.2", "4.9", "5.6", "5.8", "4", "3.5", "4.7", "5.1", "4.7", "3.5", "3.5", "6", "6", "4", "3.8", "3.5", "4.5", "4.2", "4", "4", "3.8", "2.5", "3.7", "3.2", "3", "3.4", "5.1", "3.5", "2.5", "2.8", "3", "4.2", "4.2", "2.5", "2.8", "2.3", "3.1", "3.7", "3", "3", "2.1", "2.6", "3.7", "2.5", "3.4", "1.5", "2.4", "3.6", "3", "2.7", "3.5", "2.5", "3", "3", "3.1", "3", "2", "1.8", "3", "3.5", "3.5", "2.6", "2", "3.5", "3.1", "3", "3", "2.5", "2.5", "3.4", "3.5", "3.2", "3", "2.7", "3.1", "2.5", "2.7", "3", "3.1", "2.9"), 
  marker = list(
    color = "rgb(221, 126, 107)", 
    opacity = 0.5
  ), 
  hoverinfo = "none", 
  showlegend = FALSE
)
trace7 <- list(
  uid = "2152b1", 
  mode = "markers", 
  name = "Pasok", 
  type = "scatter", 
  x = c("25/01/2015", "13/02/2015", "25/02/2015", "02/03/2015", "17/03/2015", "18/03/2015", "18/03/2015", "20/03/2015", "20/03/2015", "02/04/2015", "02/04/2015", "16/04/2015", "22/04/2015", "23/04/2015", "28/04/2015", "29/04/2015", "30/04/2015", "06/05/2015", "06/05/2015", "06/05/2015", "07/05/2015", "07/05/2015", "15/05/2015", "19/05/2015", "22/05/2015", "29/05/2015", "04/06/2015", "06/06/2015", "06/06/2015", "10/06/2015", "15/06/2015", "16/06/2015", "17/06/2015", "26/06/2015", "02/07/2015", "03/07/2015", "09/07/2015", "17/07/2015", "21/07/2015", "24/07/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "28/08/2015", "28/08/2015", "01/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "03/09/2015", "03/09/2015", "03/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "08/09/2015", "09/09/2015", "09/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "14/09/2015", "14/09/2015", "15/09/2015", "15/09/2015", "15/09/2015", "16/09/2015", "16/09/2015", "16/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "18/09/2015", "18/09/2015"), 
  y = c("4.7", "3", "3.4", "3.2", "3.7", "2.8", "3.4", "3.1", "2.5", "4.3", "3.3", "3.5", "4.3", "4", "3.2", "4.4", "3.9", "3.5", "3.5", "3.6", "4", "3.5", "3.5", "4", "3.5", "3.5", "4.4", "3.5", "4.5", "3.9", "3.6", "4", "4.5", "4.6", "3", "5.6", "5", "6", "4.4", "3.7", "4.6", "6", "3.8", "3.6", "5.4", "4", "5.5", "4.7", "5.4", "5.3", "5.4", "6", "6.5", "4.2", "5", "6.5", "5.3", "6.6", "5", "3.8", "6.8", "6.5", "6.1", "5.4", "7", "5.5", "5.5", "6.1", "5.2", "8", "5.5", "7", "6", "7", "3.8", "6", "6.8", "6.9", "5.3", "6", "5.5", "7.5", "6.8", "5.6", "6.4", "6", "5.2", "5.8", "7", "6.6", "5.7", "5.8", "5.8"), 
  marker = list(
    color = "rgb(44, 160, 44)", 
    opacity = 0.5
  ), 
  hoverinfo = "none", 
  showlegend = FALSE
)
trace8 <- list(
  uid = "dddcc3", 
  mode = "markers", 
  name = "Union of Centrists", 
  type = "scatter", 
  x = c("25/01/2015", "13/02/2015", "25/02/2015", "02/03/2015", "17/03/2015", "18/03/2015", "18/03/2015", "20/03/2015", "20/03/2015", "02/04/2015", "02/04/2015", "16/04/2015", "22/04/2015", "23/04/2015", "28/04/2015", "29/04/2015", "30/04/2015", "06/05/2015", "06/05/2015", "06/05/2015", "07/05/2015", "07/05/2015", "15/05/2015", "19/05/2015", "22/05/2015", "29/05/2015", "04/06/2015", "06/06/2015", "06/06/2015", "10/06/2015", "15/06/2015", "16/06/2015", "17/06/2015", "26/06/2015", "02/07/2015", "03/07/2015", "09/07/2015", "17/07/2015", "21/07/2015", "24/07/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "28/08/2015", "28/08/2015", "01/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "03/09/2015", "03/09/2015", "03/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "08/09/2015", "09/09/2015", "09/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "14/09/2015", "14/09/2015", "15/09/2015", "15/09/2015", "15/09/2015", "16/09/2015", "16/09/2015", "16/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "18/09/2015", "18/09/2015"), 
  y = c("1.8", "2", "2.8", "2.1", "", "1.6", "2.1", "", "", "2.2", "", "", "", "1.8", "1.7", "2", "", "", "2", "1.7", "1.8", "2.5", "", "", "", "", "2", "1.3", "", "2.2", "3.1", "4", "2", "2.4", "2.5", "3", "4.1", "", "4", "", "3.8", "4", "5.2", "3.2", "4.8", "3.5", "5.5", "5.7", "4.9", "3.9", "4.7", "3.5", "5", "8.6", "4.3", "4.9", "4.9", "5.3", "4.5", "7.5", "4.8", "4.5", "4.3", "4.5", "4", "3", "3", "4.1", "3.3", "4", "4.7", "4.5", "3", "4.2", "7.8", "3.5", "4.7", "3.3", "3.8", "3.5", "3", "4", "3.6", "4.7", "3.8", "4", "3.4", "3.6", "4", "2.7", "3.6", "3.5", "4.1"), 
  marker = list(
    color = "rgb(159, 197, 232)", 
    opacity = 0.5
  ), 
  hoverinfo = "none", 
  showlegend = FALSE
)
trace9 <- list(
  uid = "1c8cf1", 
  mode = "markers", 
  name = "Popular Unity", 
  type = "scatter", 
  x = c("25/01/2015", "13/02/2015", "25/02/2015", "02/03/2015", "17/03/2015", "18/03/2015", "18/03/2015", "20/03/2015", "20/03/2015", "02/04/2015", "02/04/2015", "16/04/2015", "22/04/2015", "23/04/2015", "28/04/2015", "29/04/2015", "30/04/2015", "06/05/2015", "06/05/2015", "06/05/2015", "07/05/2015", "07/05/2015", "15/05/2015", "19/05/2015", "22/05/2015", "29/05/2015", "04/06/2015", "06/06/2015", "06/06/2015", "10/06/2015", "15/06/2015", "16/06/2015", "17/06/2015", "26/06/2015", "02/07/2015", "03/07/2015", "09/07/2015", "17/07/2015", "21/07/2015", "24/07/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "28/08/2015", "28/08/2015", "01/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "03/09/2015", "03/09/2015", "03/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "08/09/2015", "09/09/2015", "09/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "14/09/2015", "14/09/2015", "15/09/2015", "15/09/2015", "15/09/2015", "16/09/2015", "16/09/2015", "16/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "17/09/2015", "18/09/2015", "18/09/2015"), 
  y = c("4.2", "3", "2.6", "3.2", "6.9", "4.7", "2.8", "5.9", "6.5", "3.5", "5.7", "5.9", "5.5", "3.3", "4.5", "3.6", "5.5", "7.5", "5", "3.2", "4.1", "3.1", "9", "5.5", "6.5", "6.3", "5.7", "5", "8.5", "3.4", "4.3", "6", "4", "4.6", "5", "5.9", "2.3", "7", "4.3", "", "5.5", "4.5", "6.4", "7.6", "5.4", "4.8", "6", "5.1", "4.1", "5.2", "4.7", "5", "2", "4.6", "4", "1.1", "4.5", "2.4", "4", "5.5", "1.2", "3", "4.7", "2.1", "2", "3", "3.5", "1.6", "2", "3", "4.2", "3", "1.5", "1.5", "5.4", "3", "2.1", "0.6", "1.5", "2", "3", "3", "2.4", "2.8", "2.6", "3", "2.8", "3.3", "4", "3.2", "2.6", "3.6", "2.9"), 
  marker = list(
    color = "rgb(166, 28, 0)", 
    opacity = 0.5
  ), 
  hoverinfo = "none", 
  showlegend = FALSE
)
trace10 <- list(
  uid = "6d8073", 
  line = list(
    dash = "solid", 
    color = "rgb(224, 102, 102)", 
    shape = "spline", 
    width = 2, 
    smoothing = 1.3
  ), 
  name = "Syriza ", 
  type = "scatter", 
  x = c("25/01/2015", "13/02/2015", "25/02/2015", "02/03/2015", "17/03/2015", "18/03/2015", "18/03/2015", "20/03/2015", "20/03/2015", "02/04/2015", "02/04/2015", "16/04/2015", "22/04/2015", "23/04/2015", "28/04/2015", "29/04/2015", "30/04/2015", "06/05/2015", "06/05/2015", "06/05/2015", "07/05/2015", "07/05/2015", "15/05/2015", "19/05/2015", "22/05/2015", "29/05/2015", "04/06/2015", "06/06/2015", "06/06/2015", "10/06/2015", "15/06/2015", "16/06/2015", "17/06/2015", "26/06/2015", "02/07/2015", "03/07/2015", "09/07/2015", "17/07/2015", "21/07/2015", "24/07/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "28/08/2015", "28/08/2015", "01/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "03/09/2015", "03/09/2015", "03/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "08/09/2015", "09/09/2015", "09/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "14/09/2015", "14/09/2015", "15/09/2015", "15/09/2015", "15/09/2015", "16/09/2015", "16/09/2015", "16/09/2015", "17/09/2015", "17/09/2015", "18/09/2015"), 
  y = c("36.3", "47.7", "46.5", "45.4", "45.3", "43.4", "44.3", "41.6", "43.1", "41.4", "41.6", "40.8", "42.0", "42.5", "42.3", "42.7", "43.3", "42.8", "44.1", "44.7", "42.2", "42.0", "42.4", "41.8", "40.6", "41.3", "42.7", "42.4", "42.6", "41.8", "42.4", "42.8", "42.6", "41.7", "40.2", "39.0", "37.4", "35.4", "33.8", "32.0", "30.2", "30.5", "30.2", "30.4", "30.4", "30.4", "30.3", "30.2", "30.2", "29.6", "29.7", "30.1", "30.4", "30.0", "30.0", "30.0", "29.9", "30.6", "30.1", "30.4", "31.7", "31.5", "31.3", "31.3", "31.8", "31.3", "31.7", "31.1", "31.4", "31.0", "31.0", "31.4", "31.7", "31.3", "31.5", "31.6", "31.3", "31.7", "31.7", "31.5", "31.6", "31.6", "31.1", "31.2", "31.1", "31.2", "31.2", "31.35")
)
trace11 <- list(
  uid = "11e21c", 
  line = list(
    dash = "solid", 
    shape = "spline", 
    width = 2, 
    smoothing = 1.2
  ), 
  name = "New Democracy", 
  type = "scatter", 
  x = c("25/01/2015", "13/02/2015", "25/02/2015", "02/03/2015", "17/03/2015", "18/03/2015", "18/03/2015", "20/03/2015", "20/03/2015", "02/04/2015", "02/04/2015", "16/04/2015", "22/04/2015", "23/04/2015", "28/04/2015", "29/04/2015", "30/04/2015", "06/05/2015", "06/05/2015", "06/05/2015", "07/05/2015", "07/05/2015", "15/05/2015", "19/05/2015", "22/05/2015", "29/05/2015", "04/06/2015", "06/06/2015", "06/06/2015", "10/06/2015", "15/06/2015", "16/06/2015", "17/06/2015", "26/06/2015", "02/07/2015", "03/07/2015", "09/07/2015", "17/07/2015", "21/07/2015", "24/07/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "28/08/2015", "28/08/2015", "01/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "03/09/2015", "03/09/2015", "03/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "08/09/2015", "09/09/2015", "09/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "14/09/2015", "14/09/2015", "15/09/2015", "15/09/2015", "15/09/2015", "16/09/2015", "16/09/2015", "16/09/2015", "17/09/2015", "17/09/2015", "18/09/2015"), 
  y = c("27.8", "21.0", "22.0", "22.9", "22.8", "24.3", "23.9", "25.2", "24.7", "25.0", "24.9", "25.4", "24.1", "23.6", "23.4", "23.3", "22.5", "23.2", "22.0", "21.5", "23.4", "23.9", "23.1", "23.8", "24.5", "23.1", "22.0", "22.5", "22.0", "23.0", "22.8", "22.2", "22.8", "23.3", "23.5", "23.3", "23.6", "24.1", "25.0", "25.8", "27.4", "27.2", "26.9", "26.3", "26.4", "29.0", "28.3", "27.8", "27.7", "29.4", "29.2", "28.9", "28.9", "28.7", "28.8", "29.0", "28.9", "29.6", "29.8", "29.0", "30.4", "30.1", "29.9", "29.5", "30.3", "30.4", "30.2", "29.2", "29.4", "29.4", "29.8", "30.9", "30.8", "31.1", "30.1", "29.9", "29.4", "30.6", "30.6", "30.3", "30.6", "30.3", "31.1", "31.1", "31.0", "31.1", "30.7", "30.85"), 
  visible = TRUE
)
trace12 <- list(
  uid = "37bc78", 
  line = list(
    color = "rgb(67, 67, 67)", 
    shape = "spline", 
    smoothing = 1.2
  ), 
  name = "Golden Dawn ", 
  type = "scatter", 
  x = c("25/01/2015", "13/02/2015", "25/02/2015", "02/03/2015", "17/03/2015", "18/03/2015", "18/03/2015", "20/03/2015", "20/03/2015", "02/04/2015", "02/04/2015", "16/04/2015", "22/04/2015", "23/04/2015", "28/04/2015", "29/04/2015", "30/04/2015", "06/05/2015", "06/05/2015", "06/05/2015", "07/05/2015", "07/05/2015", "15/05/2015", "19/05/2015", "22/05/2015", "29/05/2015", "04/06/2015", "06/06/2015", "06/06/2015", "10/06/2015", "15/06/2015", "16/06/2015", "17/06/2015", "26/06/2015", "02/07/2015", "03/07/2015", "09/07/2015", "17/07/2015", "21/07/2015", "24/07/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "28/08/2015", "28/08/2015", "01/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "03/09/2015", "03/09/2015", "03/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "08/09/2015", "09/09/2015", "09/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "14/09/2015", "14/09/2015", "15/09/2015", "15/09/2015", "15/09/2015", "16/09/2015", "16/09/2015", "16/09/2015", "17/09/2015", "17/09/2015", "18/09/2015"), 
  y = c("6.3", "5.6", "5.9", "5.9", "5.9", "5.8", "5.8", "6.1", "5.9", "5.9", "6.0", "6.0", "6.0", "6.1", "6.1", "5.9", "6.1", "6.1", "6.1", "6.2", "6.2", "6.0", "6.2", "6.0", "6.0", "6.3", "6.4", "6.5", "6.4", "6.5", "6.4", "6.4", "6.3", "6.4", "6.5", "6.4", "6.7", "7.2", "7.4", "7.6", "7.5", "7.5", "7.5", "7.6", "7.7", "7.1", "7.1", "7.3", "7.3", "7.5", "7.5", "7.4", "7.3", "7.6", "7.5", "7.4", "7.5", "7.4", "7.3", "7.3", "7.4", "7.5", "7.5", "7.5", "7.4", "7.4", "7.4", "7.6", "7.4", "7.4", "7.3", "7.4", "7.4", "7.2", "7.3", "7.3", "7.5", "7.5", "7.5", "7.3", "7.3", "7.6", "6.8", "6.8", "6.9", "7.0", "7.2", "6.3")
)
trace13 <- list(
  uid = "698501", 
  line = list(color = "rgb(109, 158, 235)"), 
  name = "Potami", 
  type = "scatter", 
  x = c("25/01/2015", "13/02/2015", "25/02/2015", "02/03/2015", "17/03/2015", "18/03/2015", "18/03/2015", "20/03/2015", "20/03/2015", "02/04/2015", "02/04/2015", "16/04/2015", "22/04/2015", "23/04/2015", "28/04/2015", "29/04/2015", "30/04/2015", "06/05/2015", "06/05/2015", "06/05/2015", "07/05/2015", "07/05/2015", "15/05/2015", "19/05/2015", "22/05/2015", "29/05/2015", "04/06/2015", "06/06/2015", "06/06/2015", "10/06/2015", "15/06/2015", "16/06/2015", "17/06/2015", "26/06/2015", "02/07/2015", "03/07/2015", "09/07/2015", "17/07/2015", "21/07/2015", "24/07/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "28/08/2015", "28/08/2015", "01/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "03/09/2015", "03/09/2015", "03/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "08/09/2015", "09/09/2015", "09/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "14/09/2015", "14/09/2015", "15/09/2015", "15/09/2015", "15/09/2015", "16/09/2015", "16/09/2015", "16/09/2015", "17/09/2015", "17/09/2015", "18/09/2015"), 
  y = c("6.1", "5.4", "5.5", "5.5", "5.7", "6.3", "5.9", "6.7", "6.4", "6.9", "6.9", "6.9", "7.0", "7.0", "7.1", "7.2", "7.2", "7.1", "7.0", "7.1", "6.9", "6.8", "6.9", "6.9", "7.1", "7.1", "7.0", "6.9", "7.0", "6.8", "6.6", "6.8", "6.8", "7.0", "7.0", "7.2", "7.3", "7.2", "7.0", "6.8", "6.5", "6.4", "6.4", "6.7", "6.7", "6.0", "6.2", "6.3", "6.5", "5.9", "6.0", "5.9", "6.1", "6.0", "6.1", "6.0", "5.9", "5.7", "5.9", "6.0", "5.3", "5.3", "5.5", "5.6", "5.2", "5.2", "5.1", "5.4", "5.4", "5.3", "5.3", "5.6", "5.7", "5.5", "5.6", "5.6", "5.6", "5.5", "5.7", "5.3", "5.3", "5.4", "5.4", "5.3", "5.2", "5.5", "5.5", "6.1")
)
trace14 <- list(
  uid = "84e50e", 
  name = "Communist Party (KKE)", 
  type = "scatter", 
  x = c("25/01/2015", "13/02/2015", "25/02/2015", "02/03/2015", "17/03/2015", "18/03/2015", "18/03/2015", "20/03/2015", "20/03/2015", "02/04/2015", "02/04/2015", "16/04/2015", "22/04/2015", "23/04/2015", "28/04/2015", "29/04/2015", "30/04/2015", "06/05/2015", "06/05/2015", "06/05/2015", "07/05/2015", "07/05/2015", "15/05/2015", "19/05/2015", "22/05/2015", "29/05/2015", "04/06/2015", "06/06/2015", "06/06/2015", "10/06/2015", "15/06/2015", "16/06/2015", "17/06/2015", "26/06/2015", "02/07/2015", "03/07/2015", "09/07/2015", "17/07/2015", "21/07/2015", "24/07/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "28/08/2015", "28/08/2015", "01/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "03/09/2015", "03/09/2015", "03/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "08/09/2015", "09/09/2015", "09/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "14/09/2015", "14/09/2015", "15/09/2015", "15/09/2015", "15/09/2015", "16/09/2015", "16/09/2015", "16/09/2015", "17/09/2015", "17/09/2015", "18/09/2015"), 
  y = c("5.5", "5.3", "5.4", "5.6", "5.5", "5.6", "5.4", "5.7", "5.7", "5.8", "5.8", "5.9", "5.9", "5.8", "5.8", "5.8", "5.7", "5.7", "5.7", "5.7", "5.8", "5.8", "5.7", "5.9", "5.9", "5.7", "5.7", "5.8", "5.7", "5.8", "5.6", "5.5", "5.5", "5.6", "5.5", "5.6", "5.9", "6.1", "6.2", "6.3", "5.8", "5.8", "6.1", "6.4", "6.2", "6.0", "6.0", "6.0", "5.8", "6.2", "6.1", "6.3", "6.2", "6.1", "6.2", "6.2", "6.4", "5.9", "6.1", "6.1", "5.7", "5.7", "5.6", "5.9", "6.0", "6.1", "6.0", "6.3", "6.4", "6.6", "6.3", "5.9", "5.8", "5.9", "6.0", "6.1", "6.2", "5.9", "5.9", "6.0", "6.1", "6.0", "6.2", "6.1", "6.1", "6.2", "6.3", "5.5")
)
trace15 <- list(
  uid = "7094c8", 
  line = list(color = "rgba(221, 126, 107, 0.9)"), 
  name = "Independent Greeks", 
  type = "scatter", 
  x = c("25/01/2015", "13/02/2015", "25/02/2015", "02/03/2015", "17/03/2015", "18/03/2015", "18/03/2015", "20/03/2015", "20/03/2015", "02/04/2015", "02/04/2015", "16/04/2015", "22/04/2015", "23/04/2015", "28/04/2015", "29/04/2015", "30/04/2015", "06/05/2015", "06/05/2015", "06/05/2015", "07/05/2015", "07/05/2015", "15/05/2015", "19/05/2015", "22/05/2015", "29/05/2015", "04/06/2015", "06/06/2015", "06/06/2015", "10/06/2015", "15/06/2015", "16/06/2015", "17/06/2015", "26/06/2015", "02/07/2015", "03/07/2015", "09/07/2015", "17/07/2015", "21/07/2015", "24/07/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "28/08/2015", "28/08/2015", "01/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "03/09/2015", "03/09/2015", "03/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "08/09/2015", "09/09/2015", "09/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "14/09/2015", "14/09/2015", "15/09/2015", "15/09/2015", "15/09/2015", "16/09/2015", "16/09/2015", "16/09/2015", "17/09/2015", "17/09/2015", "18/09/2015"), 
  y = c("4.8", "4.9", "4.9", "5.0", "4.7", "4.8", "4.7", "4.8", "4.7", "5.0", "5.0", "5.1", "4.8", "4.7", "4.7", "4.8", "4.5", "4.7", "4.3", "4.1", "4.5", "4.7", "4.3", "4.5", "4.6", "4.3", "4.0", "3.8", "4.0", "3.8", "3.6", "3.5", "3.4", "3.5", "3.6", "3.7", "3.5", "3.4", "3.5", "3.3", "3.2", "3.1", "2.9", "2.8", "3.0", "3.3", "3.2", "3.1", "3.1", "2.9", "3.0", "2.8", "2.8", "2.7", "2.6", "2.7", "2.5", "3.1", "2.9", "2.9", "2.7", "2.7", "2.8", "3.0", "2.6", "2.6", "2.8", "3.0", "3.0", "2.8", "2.6", "2.9", "2.9", "3.0", "3.0", "3.0", "3.0", "3.0", "3.0", "3.0", "3.0", "3.0", "2.9", "3.0", "3.1", "2.9", "2.8", "4.8"), 
  visible = TRUE
)
trace16 <- list(
  uid = "a11bd6", 
  line = list(color = "rgb(44, 160, 44)"), 
  name = "Pasok", 
  type = "scatter", 
  x = c("25/01/2015", "13/02/2015", "25/02/2015", "02/03/2015", "17/03/2015", "18/03/2015", "18/03/2015", "20/03/2015", "20/03/2015", "02/04/2015", "02/04/2015", "16/04/2015", "22/04/2015", "23/04/2015", "28/04/2015", "29/04/2015", "30/04/2015", "06/05/2015", "06/05/2015", "06/05/2015", "07/05/2015", "07/05/2015", "15/05/2015", "19/05/2015", "22/05/2015", "29/05/2015", "04/06/2015", "06/06/2015", "06/06/2015", "10/06/2015", "15/06/2015", "16/06/2015", "17/06/2015", "26/06/2015", "02/07/2015", "03/07/2015", "09/07/2015", "17/07/2015", "21/07/2015", "24/07/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "28/08/2015", "28/08/2015", "01/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "03/09/2015", "03/09/2015", "03/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "08/09/2015", "09/09/2015", "09/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "14/09/2015", "14/09/2015", "15/09/2015", "15/09/2015", "15/09/2015", "16/09/2015", "16/09/2015", "16/09/2015", "17/09/2015", "17/09/2015", "18/09/2015"), 
  y = c("4.7", "3.1", "3.2", "3.1", "3.3", "3.4", "3.3", "3.7", "3.6", "3.9", "3.9", "3.8", "3.8", "3.7", "3.7", "3.8", "3.6", "3.6", "3.6", "3.7", "3.9", "3.8", "3.8", "3.9", "3.8", "3.9", "4.1", "3.9", "4.1", "4.2", "4.3", "4.7", "4.7", "4.6", "4.7", "4.8", "4.6", "4.7", "4.5", "4.6", "5.0", "5.1", "4.9", "4.8", "4.8", "5.4", "5.4", "5.2", "5.2", "5.5", "5.4", "5.3", "5.7", "5.4", "5.2", "5.4", "5.2", "6.3", "6.2", "5.7", "6.2", "6.4", "6.1", "6.1", "6.1", "6.2", "6.1", "6.1", "5.8", "6.1", "5.9", "6.4", "6.3", "6.5", "6.2", "6.0", "6.0", "6.4", "6.2", "6.3", "6.1", "6.2", "6.2", "6.1", "6.3", "6.0", "6.0", "4.7")
)
trace17 <- list(
  uid = "fca169", 
  line = list(color = "rgb(159, 197, 232)"), 
  name = "Union of Centrists", 
  type = "scatter", 
  x = c("25/01/2015", "13/02/2015", "25/02/2015", "02/03/2015", "17/03/2015", "18/03/2015", "18/03/2015", "20/03/2015", "20/03/2015", "02/04/2015", "02/04/2015", "16/04/2015", "22/04/2015", "23/04/2015", "28/04/2015", "29/04/2015", "30/04/2015", "06/05/2015", "06/05/2015", "06/05/2015", "07/05/2015", "07/05/2015", "15/05/2015", "19/05/2015", "22/05/2015", "29/05/2015", "04/06/2015", "06/06/2015", "06/06/2015", "10/06/2015", "15/06/2015", "16/06/2015", "17/06/2015", "26/06/2015", "02/07/2015", "03/07/2015", "09/07/2015", "17/07/2015", "21/07/2015", "24/07/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "28/08/2015", "28/08/2015", "01/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "03/09/2015", "03/09/2015", "03/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "08/09/2015", "09/09/2015", "09/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "14/09/2015", "14/09/2015", "15/09/2015", "15/09/2015", "15/09/2015", "16/09/2015", "16/09/2015", "16/09/2015", "17/09/2015", "17/09/2015", "18/09/2015"), 
  y = c("1.8", "2.1", "2.2", "1.9", "2.0", "1.9", "2.0", "1.9", "2.0", "1.9", "1.9", "1.8", "1.8", "1.8", "2.0", "2.0", "2.0", "2.2", "2.1", "2.0", "1.9", "2.1", "1.7", "1.8", "2.2", "2.5", "2.4", "2.5", "2.5", "2.7", "3.0", "3.0", "3.0", "3.2", "3.7", "3.8", "4.3", "4.2", "4.2", "4.3", "4.6", "4.6", "4.7", "4.6", "4.5", "4.2", "4.4", "4.5", "4.5", "5.0", "5.0", "5.5", "5.1", "5.7", "5.7", "5.7", "5.7", "4.3", "4.6", "5.1", "3.8", "4.0", "4.0", "4.0", "3.7", "3.9", "3.8", "4.5", "4.4", "4.5", "4.6", "3.7", "3.6", "3.7", "4.4", "4.3", "4.5", "3.7", "3.7", "3.7", "3.6", "3.7", "3.6", "3.7", "3.7", "3.6", "3.6", "1.8")
)
trace18 <- list(
  uid = "789e77", 
  line = list(color = "rgb(194, 123, 160)"), 
  name = "Popular Unity", 
  type = "scatter", 
  x = c("25/01/2015", "13/02/2015", "25/02/2015", "02/03/2015", "17/03/2015", "18/03/2015", "18/03/2015", "20/03/2015", "20/03/2015", "02/04/2015", "02/04/2015", "16/04/2015", "22/04/2015", "23/04/2015", "28/04/2015", "29/04/2015", "30/04/2015", "06/05/2015", "06/05/2015", "06/05/2015", "07/05/2015", "07/05/2015", "15/05/2015", "19/05/2015", "22/05/2015", "29/05/2015", "04/06/2015", "06/06/2015", "06/06/2015", "10/06/2015", "15/06/2015", "16/06/2015", "17/06/2015", "26/06/2015", "02/07/2015", "03/07/2015", "09/07/2015", "17/07/2015", "21/07/2015", "24/07/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "26/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "27/08/2015", "28/08/2015", "28/08/2015", "01/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "02/09/2015", "03/09/2015", "03/09/2015", "03/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "04/09/2015", "08/09/2015", "09/09/2015", "09/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "10/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "11/09/2015", "14/09/2015", "14/09/2015", "15/09/2015", "15/09/2015", "15/09/2015", "16/09/2015", "16/09/2015", "16/09/2015", "17/09/2015", "17/09/2015", "18/09/2015"), 
  y = c("4.2", "4.2", "4.7", "5.1", "5.1", "5.4", "5.0", "4.9", "5.2", "4.5", "4.6", "4.5", "4.4", "4.7", "4.6", "4.6", "5.3", "6.0", "5.8", "5.3", "6.5", "5.7", "6.6", "5.8", "5.7", "5.6", "5.3", "4.6", "5.1", "4.7", "4.6", "5.0", "4.7", "4.9", "5.0", "5.4", "5.5", "5.9", "5.6", "5.6", "5.1", "5.0", "5.2", "5.6", "5.5", "4.2", "4.5", "5.0", "5.0", "3.8", "4.2", "3.8", "3.4", "3.6", "3.5", "3.4", "3.7", "2.7", "2.8", "3.3", "2.7", "2.8", "3.1", "2.8", "2.8", "2.7", "2.8", "2.6", "2.4", "2.7", "3.0", "2.2", "2.1", "2.0", "2.4", "2.4", "2.6", "2.3", "2.2", "2.8", "2.7", "2.6", "3.0", "3.0", "3.0", "3.4", "3.2", "4.2")
)
data <- list(trace1, trace2, trace3, trace4, trace5, trace6, trace7, trace8, trace9, trace10, trace11, trace12, trace13, trace14, trace15, trace16, trace17, trace18)
layout <- list(
  title = "<b>Greece elections: </b>poll of polls", 
  width = 620, 
  xaxis = list(
    type = "category", 
    dtick = 8, 
    range = c(-0.840323000781454, 48.54032300078145), 
    ticks = "", 
    anchor = "free", 
    position = 0.04, 
    showgrid = FALSE, 
    tickmode = "linear", 
    zeroline = FALSE, 
    autorange = FALSE, 
    tickangle = 60
  ), 
  yaxis = list(
    type = "linear", 
    range = c(-3.6564887810794415, 54.75648878107944), 
    autorange = FALSE, 
    gridcolor = "rgb(204, 204, 204)", 
    titlefont = list(size = 16), 
    ticksuffix = "%", 
    showticksuffix = "last"
  ), 
  height = 738, 
  legend = list(
    x = 0.7140255009107468, 
    y = 1.0250896057347672, 
    bgcolor = "rgba(255, 255, 255, 0)"
  ), 
  margin = list(
    l = 30, 
    r = 40
  ), 
  autosize = FALSE, 
  titlefont = list(size = 20), 
  annotations = list(
    list(
      x = 0.05619861332872422, 
      y = 35.913592793286256, 
      ax = 56, 
      ay = 33, 
      text = "General election<br>Jan 25th", 
      align = "left", 
      bgcolor = "rgba(217, 217, 217, 0.49)", 
      arrowhead = 1, 
      arrowsize = 0.29999999999999993, 
      borderpad = 1.3, 
      textangle = 0, 
      arrowcolor = "rgb(161, 159, 159)", 
      borderwidth = 0
    )
  )
)
p <- plot_ly()
p <- add_trace(p, uid=trace1$uid, mode=trace1$mode, name=trace1$name, type=trace1$type, x=trace1$x, y=trace1$y, marker=trace1$marker, hoverinfo=trace1$hoverinfo, showlegend=trace1$showlegend)
p <- add_trace(p, uid=trace2$uid, mode=trace2$mode, name=trace2$name, type=trace2$type, x=trace2$x, y=trace2$y, marker=trace2$marker, hoverinfo=trace2$hoverinfo, showlegend=trace2$showlegend)
p <- add_trace(p, uid=trace3$uid, mode=trace3$mode, name=trace3$name, type=trace3$type, x=trace3$x, y=trace3$y, marker=trace3$marker, hoverinfo=trace3$hoverinfo, showlegend=trace3$showlegend)
p <- add_trace(p, uid=trace4$uid, mode=trace4$mode, name=trace4$name, type=trace4$type, x=trace4$x, y=trace4$y, marker=trace4$marker, hoverinfo=trace4$hoverinfo, showlegend=trace4$showlegend)
p <- add_trace(p, uid=trace5$uid, mode=trace5$mode, name=trace5$name, type=trace5$type, x=trace5$x, y=trace5$y, marker=trace5$marker, hoverinfo=trace5$hoverinfo, showlegend=trace5$showlegend)
p <- add_trace(p, uid=trace6$uid, mode=trace6$mode, name=trace6$name, type=trace6$type, x=trace6$x, y=trace6$y, marker=trace6$marker, hoverinfo=trace6$hoverinfo, showlegend=trace6$showlegend)
p <- add_trace(p, uid=trace7$uid, mode=trace7$mode, name=trace7$name, type=trace7$type, x=trace7$x, y=trace7$y, marker=trace7$marker, hoverinfo=trace7$hoverinfo, showlegend=trace7$showlegend)
p <- add_trace(p, uid=trace8$uid, mode=trace8$mode, name=trace8$name, type=trace8$type, x=trace8$x, y=trace8$y, marker=trace8$marker, hoverinfo=trace8$hoverinfo, showlegend=trace8$showlegend)
p <- add_trace(p, uid=trace9$uid, mode=trace9$mode, name=trace9$name, type=trace9$type, x=trace9$x, y=trace9$y, marker=trace9$marker, hoverinfo=trace9$hoverinfo, showlegend=trace9$showlegend)
p <- add_trace(p, uid=trace10$uid, line=trace10$line, name=trace10$name, type=trace10$type, x=trace10$x, y=trace10$y)
p <- add_trace(p, uid=trace11$uid, line=trace11$line, name=trace11$name, type=trace11$type, x=trace11$x, y=trace11$y, visible=trace11$visible)
p <- add_trace(p, uid=trace12$uid, line=trace12$line, name=trace12$name, type=trace12$type, x=trace12$x, y=trace12$y)
p <- add_trace(p, uid=trace13$uid, line=trace13$line, name=trace13$name, type=trace13$type, x=trace13$x, y=trace13$y)
p <- add_trace(p, uid=trace14$uid, name=trace14$name, type=trace14$type, x=trace14$x, y=trace14$y)
p <- add_trace(p, uid=trace15$uid, line=trace15$line, name=trace15$name, type=trace15$type, x=trace15$x, y=trace15$y, visible=trace15$visible)
p <- add_trace(p, uid=trace16$uid, line=trace16$line, name=trace16$name, type=trace16$type, x=trace16$x, y=trace16$y)
p <- add_trace(p, uid=trace17$uid, line=trace17$line, name=trace17$name, type=trace17$type, x=trace17$x, y=trace17$y)
p <- add_trace(p, uid=trace18$uid, line=trace18$line, name=trace18$name, type=trace18$type, x=trace18$x, y=trace18$y)
p <- layout(p, title=layout$title, width=layout$width, xaxis=layout$xaxis, yaxis=layout$yaxis, height=layout$height, legend=layout$legend, margin=layout$margin, autosize=layout$autosize, titlefont=layout$titlefont, annotations=layout$annotations)