# Get this figure: fig <- get_figure("ruicarsa", 6)
# Get this figure's data: data <- get_figure("ruicarsa", 6)$data
# Add data to this figure: p <- add_trace(p, x=c(4, 5), y=c(4, 5), kwargs=list(filename="2016 National Democratic Primary", fileopt="extend"))
# Get y data of first trace: y1 <- get_figure("ruicarsa", 6)$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 = "52feb2", 
  mode = "markers", 
  name = "Hillary Clinton", 
  type = "scatter", 
  x = c("2015-09-05", "2015-09-05", "2015-09-04", "2015-09-04", "2015-08-31", "2015-08-29", "2015-08-28", "2015-08-28", "2015-08-28", "2015-08-22", "2015-08-20", "2015-08-21", "2015-08-15", "2015-08-14", "2015-08-14", "2015-08-13", "2015-08-11", "2015-08-08", "2015-08-07", "2015-08-01", "2015-08-03", "2015-07-31", "2015-07-31", "2015-07-30", "2015-07-30", "2015-07-29", "2015-07-26", "2015-07-29", "2015-07-25", "2015-07-26", "2015-07-23", "2015-07-22", "2015-07-20", "2015-07-18", "2015-07-17", "2015-07-16", "2015-07-13", "2015-07-09", "2015-07-09", "2015-07-09", "2015-07-04", "2015-06-27", "2015-06-26", "2015-06-21", "2015-06-20", "2015-06-14", "2015-06-13", "2015-06-11", "2015-06-11", "2015-06-06", "2015-05-31", "2015-05-30", "2015-05-29", "2015-05-28", "2015-05-19", "2015-05-23", "2015-05-16", "2015-05-08", "2015-05-09", "2015-05-09", "2015-05-07", "2015-05-02", "2015-04-25", "2015-04-19", "2015-04-16", "2015-04-18", "2015-04-16", "2015-04-11", "2015-03-30", "2015-03-29", "2015-03-26", "2015-03-26", "2015-03-21", "2015-03-15", "2015-03-14", "2015-03-13", "2015-03-07", "2015-03-01", "2015-02-26", "2015-02-21", "2015-02-20", "2015-02-12", "2015-01-25", "2015-01-22", "2015-01-18", "2015-01-10", "2014-12-18", "2014-12-11", "2014-12-07", "2014-12-03", "2014-11-21", "2014-11-18", "2014-10-09", "2014-07-20", "2014-07-18", "2014-06-24", "2014-05-28", "2014-05-29", "2014-04-13", "2014-03-26", "2014-03-07", "2014-03-06", "2014-01-23", "2014-01-20", "2014-01-15", "2013-12-14", "2013-12-12", "2013-12-03", "2013-12-03", "2013-11-18", "2013-10-29", "2013-10-26", "2013-09-30", "2013-09-23", "2013-09-16", "2013-09-06", "2013-08-01", "2013-07-19", "2013-07-15", "2013-05-25", "2013-05-18", "2013-05-11", "2013-05-06", "2013-04-25", "2013-03-27", "2013-01-31", "2013-01-31", "2013-01-19", "2013-01-12", "2013-01-03", "2012-11-30"), 
  y = c("42", "48", "37", "51", "42", "44", "44", "52", "55", "48", "45", "54", "47", "47", "50", "47", "49", "55", "56", "52", "48", "51", "60", "51", "52", "58", "59", "55", "58", "54", "55", "56", "57", "56", "52", "63", "59", "63", "51", "59", "55", "59", "58", "61", "55", "75", "62", "57", "65", "57", "57", "61", "60", "62", "57", "59", "60", "56", "63", "64", "63", "58", "59", "62", "60", "65", "69", "71", "60", "61", "54", "66", "64", "50", "61", "62", "59", "60", "56", "68", "54", "61", "55", "60", "59", "61", "66", "61", "62", "62", "65", "57", "64", "64", "67", "58", "61", "66", "69", "64", "64", "66", "67", "73", "65", "68", "66", "66", "65", "63", "67", "44", "57", "61", "77", "65", "63", "52", "63", "60", "64", "59", "63", "65", "64", "58", "58", "44", "48", "57", "61"), 
  marker = list(
    line = list(width = 0.5), 
    size = 8, 
    color = "#1f77b4", 
    symbol = "circle"
  ), 
  error_y = list(
    type = "percent", 
    value = 3, 
    visible = TRUE
  ), 
  text = c("Ipsos/Reuters", "Emerson College Polling Society", "CNN", "Morning Consult", "Monmouth University", "Ipsos/Reuters", "YouGov/Economist", "Morning Consult", "PPP (D)", "Ipsos/Reuters", "Quinnipiac", "Gravis Marketing/One America News", "Ipsos/Reuters", "YouGov/Economist", "Morning Consult", "CNN", "FOX", "Ipsos/Reuters", "Morning Consult", "Ipsos/Reuters", "Zogby (Internet)/ University of Akron", "YouGov/Economist", "Morning Consult", "FOX", "Monmouth University", "CBS", "NBC/WSJ", "Gravis Marketing/One America News", "Ipsos/Reuters", "Emerson College Polling Society", "Quinnipiac", "CNN", "PPP (D)", "YouGov/Economist", "Morning Consult", "ABC/Post", "FOX", "Lincoln Park Strategies (D)", "Monmouth University", "Suffolk/USA Today", "YouGov/Economist", "YouGov/Economist", "CNN", "FOX", "YouGov/Economist", "NBC/WSJ", "YouGov/Economist", "Monmouth University", "PPP (D)", "YouGov/Economist", "FOX", "YouGov/Economist", "CNN", "ABC/Post", "Quinnipiac", "YouGov/Economist", "YouGov/Economist", "Robert Morris University", "FOX", "YouGov/Economist", "PPP (D)", "YouGov/Economist", "YouGov/Economist", "FOX", "Quinnipiac", "YouGov/Economist", "CNN", "YouGov/Economist", "Monmouth University", "FOX", "PPP (D)", "ABC/Post", "YouGov/Economist", "Saint Leo University", "YouGov/Economist", "CNN", "YouGov/Economist", "McClatchy/Marist", "Quinnipiac", "YouGov/Economist", "PPP (D)", "CNN", "FOX", "PPP (D)", "Rasmussen", "YouGov/Economist", "CNN", "ABC/Post", "FOX", "McClatchy/Marist", "CNN", "Quinnipiac", "ABC/Post", "FOX", "CNN", "Quinnipiac", "Saint Leo University", "ABC/Post", "FOX", "Reason/Rupe", "CNN", "PPP (D)", "PPP (D)", "ABC/Post", "Quinnipiac", "FOX", "PPP (D)", "Quinnipiac", "McClatchy/Marist", "CNN", "PPP (D)", "YouGov/Economist", "YouGov", "Quinnipiac", "Rasmussen", "CNN", "Rasmussen", "PPP (D)", "McClatchy/Marist", "YouGov/Economist", "YouGov/Economist", "YouGov/Economist", "PPP (D)", "Quinnipiac", "PPP (D)", "PPP (D)", "PPP (D)", "YouGov/Economist", "YouGov/Economist", "PPP (D)", "PPP (D)")
)
trace2 <- list(
  uid = "dc0dd7", 
  mode = "markers", 
  name = "Bernie Sanders", 
  type = "scatter", 
  x = c("2015-09-05", "2015-09-05", "2015-09-04", "2015-09-04", "2015-08-31", "2015-08-29", "2015-08-28", "2015-08-28", "2015-08-28", "2015-08-22", "2015-08-20", "2015-08-21", "2015-08-15", "2015-08-14", "2015-08-14", "2015-08-13", "2015-08-11", "2015-08-08", "2015-08-07", "2015-08-01", "2015-08-03", "2015-07-31", "2015-07-31", "2015-07-30", "2015-07-30", "2015-07-29", "2015-07-26", "2015-07-29", "2015-07-25", "2015-07-26", "2015-07-23", "2015-07-22", "2015-07-20", "2015-07-18", "2015-07-17", "2015-07-16", "2015-07-13", "2015-07-09", "2015-07-09", "2015-07-09", "2015-07-04", "2015-06-27", "2015-06-26", "2015-06-21", "2015-06-20", "2015-06-14", "2015-06-13", "2015-06-11", "2015-06-11", "2015-06-06", "2015-05-31", "2015-05-30", "2015-05-29", "2015-05-28", "2015-05-19", "2015-05-23", "2015-05-16", "2015-05-08", "2015-05-09", "2015-05-09", "2015-05-07", "2015-05-02", "2015-04-25", "2015-04-19", "2015-04-16", "2015-04-18", "2015-04-16", "2015-04-11", "2015-03-30", "2015-03-29", "2015-03-26", "2015-03-26", "2015-03-21", "2015-03-15", "2015-03-14", "2015-03-13", "2015-03-07", "2015-03-01", "2015-02-26", "2015-02-21", "2015-02-20", "2015-02-12", "2015-01-25", "2015-01-22", "2015-01-18", "2015-01-10", "2014-12-18", "2014-12-11", "2014-12-07", "2014-12-03", "2014-11-21", "2014-11-18", "2014-10-09", "2014-07-20", "2014-07-18", "2014-06-24", "2014-05-28", "2014-05-29", "2014-04-13", "2014-03-26", "2014-03-07", "2014-03-06", "2014-01-23", "2014-01-20", "2014-01-15", "2013-12-14", "2013-12-12", "2013-12-03", "2013-12-03", "2013-11-18", "2013-10-29", "2013-10-26", "2013-09-30", "2013-09-23", "2013-09-16", "2013-09-06", "2013-08-01", "2013-07-19", "2013-07-15", "2013-05-25", "2013-05-18", "2013-05-11", "2013-05-06", "2013-04-25", "2013-03-27", "2013-01-31", "2013-01-31", "2013-01-19", "2013-01-12", "2013-01-03", "2012-11-30"), 
  y = c("28", "21", "27", "27", "20", "24", "25", "23", "20", "22", "22", "21", "23", "26", "24", "29", "30", "18", "19", "17", "15", "21", "16", "22", "16", "17", "25", "18", "15", "33", "17", "19", "22", "18", "16", "14", "19", "16", "17", "14", "24", "19", "15", "15", "18", "15", "16", "12", "9", "11", "11", "11", "10", "10", "15", "17", "12", "5", "6", "16", "13", "17", "10", "4", "8", "8", "5", "7", "7", "3", "6", "5", "7", "3", "9", "3", "7", "5", "4", "8", "5", "3", "3", "2", "4", "3", "3", "4", "3", "4", "5", "4", "1", "", "", "", "0", "2"), 
  marker = list(
    line = list(width = 0.5), 
    size = 8, 
    color = "#ff7f0e", 
    symbol = "circle"
  ), 
  text = c("Ipsos/Reuters", "Emerson College Polling Society", "CNN", "Morning Consult", "Monmouth University", "Ipsos/Reuters", "YouGov/Economist", "Morning Consult", "PPP (D)", "Ipsos/Reuters", "Quinnipiac", "Gravis Marketing/One America News", "Ipsos/Reuters", "YouGov/Economist", "Morning Consult", "CNN", "FOX", "Ipsos/Reuters", "Morning Consult", "Ipsos/Reuters", "Zogby (Internet)/ University of Akron", "YouGov/Economist", "Morning Consult", "FOX", "Monmouth University", "CBS", "NBC/WSJ", "Gravis Marketing/One America News", "Ipsos/Reuters", "Emerson College Polling Society", "Quinnipiac", "CNN", "PPP (D)", "YouGov/Economist", "Morning Consult", "ABC/Post", "FOX", "Lincoln Park Strategies (D)", "Monmouth University", "Suffolk/USA Today", "YouGov/Economist", "YouGov/Economist", "CNN", "FOX", "YouGov/Economist", "NBC/WSJ", "YouGov/Economist", "Monmouth University", "PPP (D)", "YouGov/Economist", "FOX", "YouGov/Economist", "CNN", "ABC/Post", "Quinnipiac", "YouGov/Economist", "YouGov/Economist", "Robert Morris University", "FOX", "YouGov/Economist", "PPP (D)", "YouGov/Economist", "YouGov/Economist", "FOX", "Quinnipiac", "YouGov/Economist", "CNN", "YouGov/Economist", "Monmouth University", "FOX", "PPP (D)", "ABC/Post", "YouGov/Economist", "Saint Leo University", "YouGov/Economist", "CNN", "YouGov/Economist", "McClatchy/Marist", "Quinnipiac", "YouGov/Economist", "PPP (D)", "CNN", "FOX", "PPP (D)", "Rasmussen", "YouGov/Economist", "CNN", "ABC/Post", "FOX", "McClatchy/Marist", "CNN", "Quinnipiac", "ABC/Post", "FOX", "CNN", "Quinnipiac", "Saint Leo University", "ABC/Post", "FOX", "Reason/Rupe", "CNN", "PPP (D)", "PPP (D)", "ABC/Post", "Quinnipiac", "FOX", "PPP (D)", "Quinnipiac", "McClatchy/Marist", "CNN", "PPP (D)", "YouGov/Economist", "YouGov", "Quinnipiac", "Rasmussen", "CNN", "Rasmussen", "PPP (D)", "McClatchy/Marist", "YouGov/Economist", "YouGov/Economist", "YouGov/Economist", "PPP (D)", "Quinnipiac", "PPP (D)", "PPP (D)", "PPP (D)", "YouGov/Economist", "YouGov/Economist", "PPP (D)", "PPP (D)")
)
trace3 <- list(
  uid = "aeafb3", 
  mode = "markers", 
  name = "Joe Biden", 
  type = "scatter", 
  x = c("2015-09-05", "2015-09-05", "2015-09-04", "2015-09-04", "2015-08-31", "2015-08-29", "2015-08-28", "2015-08-28", "2015-08-28", "2015-08-22", "2015-08-20", "2015-08-21", "2015-08-15", "2015-08-14", "2015-08-14", "2015-08-13", "2015-08-11", "2015-08-08", "2015-08-07", "2015-08-01", "2015-08-03", "2015-07-31", "2015-07-31", "2015-07-30", "2015-07-30", "2015-07-29", "2015-07-26", "2015-07-29", "2015-07-25", "2015-07-26", "2015-07-23", "2015-07-22", "2015-07-20", "2015-07-18", "2015-07-17", "2015-07-16", "2015-07-13", "2015-07-09", "2015-07-09", "2015-07-09", "2015-07-04", "2015-06-27", "2015-06-26", "2015-06-21", "2015-06-20", "2015-06-14", "2015-06-13", "2015-06-11", "2015-06-11", "2015-06-06", "2015-05-31", "2015-05-30", "2015-05-29", "2015-05-28", "2015-05-19", "2015-05-23", "2015-05-16", "2015-05-08", "2015-05-09", "2015-05-09", "2015-05-07", "2015-05-02", "2015-04-25", "2015-04-19", "2015-04-16", "2015-04-18", "2015-04-16", "2015-04-11", "2015-03-30", "2015-03-29", "2015-03-26", "2015-03-26", "2015-03-21", "2015-03-15", "2015-03-14", "2015-03-13", "2015-03-07", "2015-03-01", "2015-02-26", "2015-02-21", "2015-02-20", "2015-02-12", "2015-01-25", "2015-01-22", "2015-01-18", "2015-01-10", "2014-12-18", "2014-12-11", "2014-12-07", "2014-12-03", "2014-11-21", "2014-11-18", "2014-10-09", "2014-07-20", "2014-07-18", "2014-06-24", "2014-05-28", "2014-05-29", "2014-04-13", "2014-03-26", "2014-03-07", "2014-03-06", "2014-01-23", "2014-01-20", "2014-01-15", "2013-12-14", "2013-12-12", "2013-12-03", "2013-12-03", "2013-11-18", "2013-10-29", "2013-10-26", "2013-09-30", "2013-09-23", "2013-09-16", "2013-09-06", "2013-08-01", "2013-07-19", "2013-07-15", "2013-05-25", "2013-05-18", "2013-05-11", "2013-05-06", "2013-04-25", "2013-03-27", "2013-01-31", "2013-01-31", "2013-01-19", "2013-01-12", "2013-01-03", "2012-11-30"), 
  y = c("14", "21", "20", "", "22", "17", "21", "", "", "15", "18", "13", "12", "14", "", "14", "10", "11", "", "14", "21", "13", "", "13", "12", "11", "", "8", "12", "9", "13", "15", "", "13", "11", "12", "8", "", "13", "8", "8", "9", "17", "11", "11", "", "13", "12", "", "13", "8", "13", "14", "14", "9", "8", "11", "8", "6", "7", "", "13", "7", "9", "10", "9", "11", "7", "16", "12", "7", "12", "11", "11", "8", "15", "13", "13", "10", "12", "16", "14", "17", "15", "6", "7", "8", "14", "10", "11", "9", "9", "13", "12", "8", "9", "8", "12", "14", "11", "13", "11", "7", "12", "8", "12", "10", "8", "12", "12", "12", "10", "8", "11", "11", "10", "12", "12", "13", "14", "11", "9", "13", "13", "18", "19", "19", "11", "12", "16", "12"), 
  marker = list(
    line = list(width = 0.5), 
    size = 8, 
    color = "#2ca02c", 
    symbol = "circle"
  ), 
  text = c("Ipsos/Reuters", "Emerson College Polling Society", "CNN", "Morning Consult", "Monmouth University", "Ipsos/Reuters", "YouGov/Economist", "Morning Consult", "PPP (D)", "Ipsos/Reuters", "Quinnipiac", "Gravis Marketing/One America News", "Ipsos/Reuters", "YouGov/Economist", "Morning Consult", "CNN", "FOX", "Ipsos/Reuters", "Morning Consult", "Ipsos/Reuters", "Zogby (Internet)/ University of Akron", "YouGov/Economist", "Morning Consult", "FOX", "Monmouth University", "CBS", "NBC/WSJ", "Gravis Marketing/One America News", "Ipsos/Reuters", "Emerson College Polling Society", "Quinnipiac", "CNN", "PPP (D)", "YouGov/Economist", "Morning Consult", "ABC/Post", "FOX", "Lincoln Park Strategies (D)", "Monmouth University", "Suffolk/USA Today", "YouGov/Economist", "YouGov/Economist", "CNN", "FOX", "YouGov/Economist", "NBC/WSJ", "YouGov/Economist", "Monmouth University", "PPP (D)", "YouGov/Economist", "FOX", "YouGov/Economist", "CNN", "ABC/Post", "Quinnipiac", "YouGov/Economist", "YouGov/Economist", "Robert Morris University", "FOX", "YouGov/Economist", "PPP (D)", "YouGov/Economist", "YouGov/Economist", "FOX", "Quinnipiac", "YouGov/Economist", "CNN", "YouGov/Economist", "Monmouth University", "FOX", "PPP (D)", "ABC/Post", "YouGov/Economist", "Saint Leo University", "YouGov/Economist", "CNN", "YouGov/Economist", "McClatchy/Marist", "Quinnipiac", "YouGov/Economist", "PPP (D)", "CNN", "FOX", "PPP (D)", "Rasmussen", "YouGov/Economist", "CNN", "ABC/Post", "FOX", "McClatchy/Marist", "CNN", "Quinnipiac", "ABC/Post", "FOX", "CNN", "Quinnipiac", "Saint Leo University", "ABC/Post", "FOX", "Reason/Rupe", "CNN", "PPP (D)", "PPP (D)", "ABC/Post", "Quinnipiac", "FOX", "PPP (D)", "Quinnipiac", "McClatchy/Marist", "CNN", "PPP (D)", "YouGov/Economist", "YouGov", "Quinnipiac", "Rasmussen", "CNN", "Rasmussen", "PPP (D)", "McClatchy/Marist", "YouGov/Economist", "YouGov/Economist", "YouGov/Economist", "PPP (D)", "Quinnipiac", "PPP (D)", "PPP (D)", "PPP (D)", "YouGov/Economist", "YouGov/Economist", "PPP (D)", "PPP (D)")
)
trace4 <- list(
  uid = "62f2d7", 
  mode = "markers", 
  name = "Martin O'Malley", 
  type = "scatter", 
  x = c("2015-09-05", "2015-09-05", "2015-09-04", "2015-09-04", "2015-08-31", "2015-08-29", "2015-08-28", "2015-08-28", "2015-08-28", "2015-08-22", "2015-08-20", "2015-08-21", "2015-08-15", "2015-08-14", "2015-08-14", "2015-08-13", "2015-08-11", "2015-08-08", "2015-08-07", "2015-08-01", "2015-08-03", "2015-07-31", "2015-07-31", "2015-07-30", "2015-07-30", "2015-07-29", "2015-07-26", "2015-07-29", "2015-07-25", "2015-07-26", "2015-07-23", "2015-07-22", "2015-07-20", "2015-07-18", "2015-07-17", "2015-07-16", "2015-07-13", "2015-07-09", "2015-07-09", "2015-07-09", "2015-07-04", "2015-06-27", "2015-06-26", "2015-06-21", "2015-06-20", "2015-06-14", "2015-06-13", "2015-06-11", "2015-06-11", "2015-06-06", "2015-05-31", "2015-05-30", "2015-05-29", "2015-05-28", "2015-05-19", "2015-05-23", "2015-05-16", "2015-05-08", "2015-05-09", "2015-05-09", "2015-05-07", "2015-05-02", "2015-04-25", "2015-04-19", "2015-04-16", "2015-04-18", "2015-04-16", "2015-04-11", "2015-03-30", "2015-03-29", "2015-03-26", "2015-03-26", "2015-03-21", "2015-03-15", "2015-03-14", "2015-03-13", "2015-03-07", "2015-03-01", "2015-02-26", "2015-02-21", "2015-02-20", "2015-02-12", "2015-01-25", "2015-01-22", "2015-01-18", "2015-01-10", "2014-12-18", "2014-12-11", "2014-12-07", "2014-12-03", "2014-11-21", "2014-11-18", "2014-10-09", "2014-07-20", "2014-07-18", "2014-06-24", "2014-05-28", "2014-05-29", "2014-04-13", "2014-03-26", "2014-03-07", "2014-03-06", "2014-01-23", "2014-01-20", "2014-01-15", "2013-12-14", "2013-12-12", "2013-12-03", "2013-12-03", "2013-11-18", "2013-10-29", "2013-10-26", "2013-09-30", "2013-09-23", "2013-09-16", "2013-09-06", "2013-08-01", "2013-07-19", "2013-07-15", "2013-05-25", "2013-05-18", "2013-05-11", "2013-05-06", "2013-04-25", "2013-03-27", "2013-01-31", "2013-01-31", "2013-01-19", "2013-01-12", "2013-01-03", "2012-11-30"), 
  y = c("3", "1", "3", "1", "1", "0", "2", "1", "4", "1", "1", "2", "1", "1", "3", "2", "1", "2", "4", "1", "3", "1", "2", "1", "2", "1", "3", "3", "1", "2", "1", "0", "2", "0", "0", "1", "1", "1", "1", "0", "0", "2", "1", "1", "2", "2", "1", "1", "5", "1", "4", "2", "1", "3", "1", "3", "2", "1", "0", "0", "2", "2", "2", "1", "3", "2", "1", "1", "2", "2", "3", "0", "3", "2", "2", "1", "4", "1", "0", "0", "1", "1", "2", "1", "2", "0", "1", "0", "1", "1", "0", "1", "1", "1", "2", "1", "1", "1", "1", "", "4", "2", "1", "", "1", "1", "2", "0", "1", "2", "2", "3", "1", "0", "", "2", "1", "1", "1", "3", "0", "1", "2", "1", "1", "1", "1", "2", "1", "3", "2"), 
  marker = list(
    line = list(width = 0.5), 
    size = 8, 
    color = "#d62728", 
    symbol = "circle"
  ), 
  text = c("Ipsos/Reuters", "Emerson College Polling Society", "CNN", "Morning Consult", "Monmouth University", "Ipsos/Reuters", "YouGov/Economist", "Morning Consult", "PPP (D)", "Ipsos/Reuters", "Quinnipiac", "Gravis Marketing/One America News", "Ipsos/Reuters", "YouGov/Economist", "Morning Consult", "CNN", "FOX", "Ipsos/Reuters", "Morning Consult", "Ipsos/Reuters", "Zogby (Internet)/ University of Akron", "YouGov/Economist", "Morning Consult", "FOX", "Monmouth University", "CBS", "NBC/WSJ", "Gravis Marketing/One America News", "Ipsos/Reuters", "Emerson College Polling Society", "Quinnipiac", "CNN", "PPP (D)", "YouGov/Economist", "Morning Consult", "ABC/Post", "FOX", "Lincoln Park Strategies (D)", "Monmouth University", "Suffolk/USA Today", "YouGov/Economist", "YouGov/Economist", "CNN", "FOX", "YouGov/Economist", "NBC/WSJ", "YouGov/Economist", "Monmouth University", "PPP (D)", "YouGov/Economist", "FOX", "YouGov/Economist", "CNN", "ABC/Post", "Quinnipiac", "YouGov/Economist", "YouGov/Economist", "Robert Morris University", "FOX", "YouGov/Economist", "PPP (D)", "YouGov/Economist", "YouGov/Economist", "FOX", "Quinnipiac", "YouGov/Economist", "CNN", "YouGov/Economist", "Monmouth University", "FOX", "PPP (D)", "ABC/Post", "YouGov/Economist", "Saint Leo University", "YouGov/Economist", "CNN", "YouGov/Economist", "McClatchy/Marist", "Quinnipiac", "YouGov/Economist", "PPP (D)", "CNN", "FOX", "PPP (D)", "Rasmussen", "YouGov/Economist", "CNN", "ABC/Post", "FOX", "McClatchy/Marist", "CNN", "Quinnipiac", "ABC/Post", "FOX", "CNN", "Quinnipiac", "Saint Leo University", "ABC/Post", "FOX", "Reason/Rupe", "CNN", "PPP (D)", "PPP (D)", "ABC/Post", "Quinnipiac", "FOX", "PPP (D)", "Quinnipiac", "McClatchy/Marist", "CNN", "PPP (D)", "YouGov/Economist", "YouGov", "Quinnipiac", "Rasmussen", "CNN", "Rasmussen", "PPP (D)", "McClatchy/Marist", "YouGov/Economist", "YouGov/Economist", "YouGov/Economist", "PPP (D)", "Quinnipiac", "PPP (D)", "PPP (D)", "PPP (D)", "YouGov/Economist", "YouGov/Economist", "PPP (D)", "PPP (D)"), 
  visible = "legendonly"
)
trace5 <- list(
  uid = "e462ba", 
  mode = "markers", 
  name = "Jim Webb", 
  type = "scatter", 
  x = c("2015-09-05", "2015-09-05", "2015-09-04", "2015-09-04", "2015-08-31", "2015-08-29", "2015-08-28", "2015-08-28", "2015-08-28", "2015-08-22", "2015-08-20", "2015-08-21", "2015-08-15", "2015-08-14", "2015-08-14", "2015-08-13", "2015-08-11", "2015-08-08", "2015-08-07", "2015-08-01", "2015-08-03", "2015-07-31", "2015-07-31", "2015-07-30", "2015-07-30", "2015-07-29", "2015-07-26", "2015-07-29", "2015-07-25", "2015-07-26", "2015-07-23", "2015-07-22", "2015-07-20", "2015-07-18", "2015-07-17", "2015-07-16", "2015-07-13", "2015-07-09", "2015-07-09", "2015-07-09", "2015-07-04", "2015-06-27", "2015-06-26", "2015-06-21", "2015-06-20", "2015-06-14", "2015-06-13", "2015-06-11", "2015-06-11", "2015-06-06", "2015-05-31", "2015-05-30", "2015-05-29", "2015-05-28", "2015-05-19", "2015-05-23", "2015-05-16", "2015-05-08", "2015-05-09", "2015-05-09", "2015-05-07", "2015-05-02", "2015-04-25", "2015-04-19", "2015-04-16", "2015-04-18", "2015-04-16", "2015-04-11", "2015-03-30", "2015-03-29", "2015-03-26", "2015-03-26", "2015-03-21", "2015-03-15", "2015-03-14", "2015-03-13", "2015-03-07", "2015-03-01", "2015-02-26", "2015-02-21", "2015-02-20", "2015-02-12", "2015-01-25", "2015-01-22", "2015-01-18", "2015-01-10", "2014-12-18", "2014-12-11", "2014-12-07", "2014-12-03", "2014-11-21", "2014-11-18", "2014-10-09", "2014-07-20", "2014-07-18", "2014-06-24", "2014-05-28", "2014-05-29", "2014-04-13", "2014-03-26", "2014-03-07", "2014-03-06", "2014-01-23", "2014-01-20", "2014-01-15", "2013-12-14", "2013-12-12", "2013-12-03", "2013-12-03", "2013-11-18", "2013-10-29", "2013-10-26", "2013-09-30", "2013-09-23", "2013-09-16", "2013-09-06", "2013-08-01", "2013-07-19", "2013-07-15", "2013-05-25", "2013-05-18", "2013-05-11", "2013-05-06", "2013-04-25", "2013-03-27", "2013-01-31", "2013-01-31", "2013-01-19", "2013-01-12", "2013-01-03", "2012-11-30"), 
  y = c("0", "1", "2", "1", "1", "0", "1", "2", "3", "2", "1", "2", "1", "1", "1", "1", "1", "1", "2", "0", "2", "2", "2", "1", "2", "2", "3", "5", "1", "1", "1", "1", "5", "0", "0", "2", "1", "2", "1", "2", "1", "1", "1", "2", "0", "4", "1", "2", "4", "0", "2", "0", "2", "1", "1", "1", "3", "", "2", "1", "6", "0", "1", "0", "1", "2", "3", "0", "1", "1", "2", "1", "1", "1", "1", "1", "0", "1", "1", "2", "2", "2", "1", "1", "3", "2", "1", "3", "1", "1", "1", "1", "2", "", "", "", "", "2"), 
  marker = list(
    line = list(width = 0.5), 
    size = 8, 
    color = "#9467bd", 
    symbol = "circle"
  ), 
  text = c("Ipsos/Reuters", "Emerson College Polling Society", "CNN", "Morning Consult", "Monmouth University", "Ipsos/Reuters", "YouGov/Economist", "Morning Consult", "PPP (D)", "Ipsos/Reuters", "Quinnipiac", "Gravis Marketing/One America News", "Ipsos/Reuters", "YouGov/Economist", "Morning Consult", "CNN", "FOX", "Ipsos/Reuters", "Morning Consult", "Ipsos/Reuters", "Zogby (Internet)/ University of Akron", "YouGov/Economist", "Morning Consult", "FOX", "Monmouth University", "CBS", "NBC/WSJ", "Gravis Marketing/One America News", "Ipsos/Reuters", "Emerson College Polling Society", "Quinnipiac", "CNN", "PPP (D)", "YouGov/Economist", "Morning Consult", "ABC/Post", "FOX", "Lincoln Park Strategies (D)", "Monmouth University", "Suffolk/USA Today", "YouGov/Economist", "YouGov/Economist", "CNN", "FOX", "YouGov/Economist", "NBC/WSJ", "YouGov/Economist", "Monmouth University", "PPP (D)", "YouGov/Economist", "FOX", "YouGov/Economist", "CNN", "ABC/Post", "Quinnipiac", "YouGov/Economist", "YouGov/Economist", "Robert Morris University", "FOX", "YouGov/Economist", "PPP (D)", "YouGov/Economist", "YouGov/Economist", "FOX", "Quinnipiac", "YouGov/Economist", "CNN", "YouGov/Economist", "Monmouth University", "FOX", "PPP (D)", "ABC/Post", "YouGov/Economist", "Saint Leo University", "YouGov/Economist", "CNN", "YouGov/Economist", "McClatchy/Marist", "Quinnipiac", "YouGov/Economist", "PPP (D)", "CNN", "FOX", "PPP (D)", "Rasmussen", "YouGov/Economist", "CNN", "ABC/Post", "FOX", "McClatchy/Marist", "CNN", "Quinnipiac", "ABC/Post", "FOX", "CNN", "Quinnipiac", "Saint Leo University", "ABC/Post", "FOX", "Reason/Rupe", "CNN", "PPP (D)", "PPP (D)", "ABC/Post", "Quinnipiac", "FOX", "PPP (D)", "Quinnipiac", "McClatchy/Marist", "CNN", "PPP (D)", "YouGov/Economist", "YouGov", "Quinnipiac", "Rasmussen", "CNN", "Rasmussen", "PPP (D)", "McClatchy/Marist", "YouGov/Economist", "YouGov/Economist", "YouGov/Economist", "PPP (D)", "Quinnipiac", "PPP (D)", "PPP (D)", "PPP (D)", "YouGov/Economist", "YouGov/Economist", "PPP (D)", "PPP (D)"), 
  visible = "legendonly"
)
trace6 <- list(
  uid = "182239", 
  mode = "markers", 
  name = "Lincoln Chafee", 
  type = "scatter", 
  x = c("2015-09-05", "2015-09-05", "2015-09-04", "2015-09-04", "2015-08-31", "2015-08-29", "2015-08-28", "2015-08-28", "2015-08-28", "2015-08-22", "2015-08-20", "2015-08-21", "2015-08-15", "2015-08-14", "2015-08-14", "2015-08-13", "2015-08-11", "2015-08-08", "2015-08-07", "2015-08-01", "2015-08-03", "2015-07-31", "2015-07-31", "2015-07-30", "2015-07-30", "2015-07-29", "2015-07-26", "2015-07-29", "2015-07-25", "2015-07-26", "2015-07-23", "2015-07-22", "2015-07-20", "2015-07-18", "2015-07-17", "2015-07-16", "2015-07-13", "2015-07-09", "2015-07-09", "2015-07-09", "2015-07-04", "2015-06-27", "2015-06-26", "2015-06-21", "2015-06-20", "2015-06-14", "2015-06-13", "2015-06-11", "2015-06-11", "2015-06-06", "2015-05-31", "2015-05-30", "2015-05-29", "2015-05-28", "2015-05-19", "2015-05-23", "2015-05-16", "2015-05-08", "2015-05-09", "2015-05-09", "2015-05-07", "2015-05-02", "2015-04-25", "2015-04-19", "2015-04-16", "2015-04-18", "2015-04-16", "2015-04-11", "2015-03-30", "2015-03-29", "2015-03-26", "2015-03-26", "2015-03-21", "2015-03-15", "2015-03-14", "2015-03-13", "2015-03-07", "2015-03-01", "2015-02-26", "2015-02-21", "2015-02-20", "2015-02-12", "2015-01-25", "2015-01-22", "2015-01-18", "2015-01-10", "2014-12-18", "2014-12-11", "2014-12-07", "2014-12-03", "2014-11-21", "2014-11-18", "2014-10-09", "2014-07-20", "2014-07-18", "2014-06-24", "2014-05-28", "2014-05-29", "2014-04-13", "2014-03-26", "2014-03-07", "2014-03-06", "2014-01-23", "2014-01-20", "2014-01-15", "2013-12-14", "2013-12-12", "2013-12-03", "2013-12-03", "2013-11-18", "2013-10-29", "2013-10-26", "2013-09-30", "2013-09-23", "2013-09-16", "2013-09-06", "2013-08-01", "2013-07-19", "2013-07-15", "2013-05-25", "2013-05-18", "2013-05-11", "2013-05-06", "2013-04-25", "2013-03-27", "2013-01-31", "2013-01-31", "2013-01-19", "2013-01-12", "2013-01-03", "2012-11-30"), 
  y = c("1", "", "0", "1", "0", "1", "0", "1", "1", "0", "0", "1", "1", "1", "1", "0", "0", "0", "1", "1", "", "1", "1", "1", "0", "1", "1", "2", "0", "1", "0", "0", "3", "1", "", "0", "1", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1", "0", "4", "2", "1", "1", "0", "1", "1", "0", "", "", "0", "", "5", "", "", "0", "0", "", "1"), 
  marker = list(
    line = list(width = 0.5), 
    size = 8, 
    color = "#8c564b", 
    symbol = "circle"
  ), 
  text = c("Ipsos/Reuters", "Emerson College Polling Society", "CNN", "Morning Consult", "Monmouth University", "Ipsos/Reuters", "YouGov/Economist", "Morning Consult", "PPP (D)", "Ipsos/Reuters", "Quinnipiac", "Gravis Marketing/One America News", "Ipsos/Reuters", "YouGov/Economist", "Morning Consult", "CNN", "FOX", "Ipsos/Reuters", "Morning Consult", "Ipsos/Reuters", "Zogby (Internet)/ University of Akron", "YouGov/Economist", "Morning Consult", "FOX", "Monmouth University", "CBS", "NBC/WSJ", "Gravis Marketing/One America News", "Ipsos/Reuters", "Emerson College Polling Society", "Quinnipiac", "CNN", "PPP (D)", "YouGov/Economist", "Morning Consult", "ABC/Post", "FOX", "Lincoln Park Strategies (D)", "Monmouth University", "Suffolk/USA Today", "YouGov/Economist", "YouGov/Economist", "CNN", "FOX", "YouGov/Economist", "NBC/WSJ", "YouGov/Economist", "Monmouth University", "PPP (D)", "YouGov/Economist", "FOX", "YouGov/Economist", "CNN", "ABC/Post", "Quinnipiac", "YouGov/Economist", "YouGov/Economist", "Robert Morris University", "FOX", "YouGov/Economist", "PPP (D)", "YouGov/Economist", "YouGov/Economist", "FOX", "Quinnipiac", "YouGov/Economist", "CNN", "YouGov/Economist", "Monmouth University", "FOX", "PPP (D)", "ABC/Post", "YouGov/Economist", "Saint Leo University", "YouGov/Economist", "CNN", "YouGov/Economist", "McClatchy/Marist", "Quinnipiac", "YouGov/Economist", "PPP (D)", "CNN", "FOX", "PPP (D)", "Rasmussen", "YouGov/Economist", "CNN", "ABC/Post", "FOX", "McClatchy/Marist", "CNN", "Quinnipiac", "ABC/Post", "FOX", "CNN", "Quinnipiac", "Saint Leo University", "ABC/Post", "FOX", "Reason/Rupe", "CNN", "PPP (D)", "PPP (D)", "ABC/Post", "Quinnipiac", "FOX", "PPP (D)", "Quinnipiac", "McClatchy/Marist", "CNN", "PPP (D)", "YouGov/Economist", "YouGov", "Quinnipiac", "Rasmussen", "CNN", "Rasmussen", "PPP (D)", "McClatchy/Marist", "YouGov/Economist", "YouGov/Economist", "YouGov/Economist", "PPP (D)", "Quinnipiac", "PPP (D)", "PPP (D)", "PPP (D)", "YouGov/Economist", "YouGov/Economist", "PPP (D)", "PPP (D)"), 
  visible = "legendonly"
)
trace7 <- list(
  uid = "93b959", 
  mode = "markers", 
  name = "Undecided", 
  type = "scatter", 
  x = c("2015-09-05", "2015-09-05", "2015-09-04", "2015-09-04", "2015-08-31", "2015-08-29", "2015-08-28", "2015-08-28", "2015-08-28", "2015-08-22", "2015-08-20", "2015-08-21", "2015-08-15", "2015-08-14", "2015-08-14", "2015-08-13", "2015-08-11", "2015-08-08", "2015-08-07", "2015-08-01", "2015-08-03", "2015-07-31", "2015-07-31", "2015-07-30", "2015-07-30", "2015-07-29", "2015-07-26", "2015-07-29", "2015-07-25", "2015-07-26", "2015-07-23", "2015-07-22", "2015-07-20", "2015-07-18", "2015-07-17", "2015-07-16", "2015-07-13", "2015-07-09", "2015-07-09", "2015-07-09", "2015-07-04", "2015-06-27", "2015-06-26", "2015-06-21", "2015-06-20", "2015-06-14", "2015-06-13", "2015-06-11", "2015-06-11", "2015-06-06", "2015-05-31", "2015-05-30", "2015-05-29", "2015-05-28", "2015-05-19", "2015-05-23", "2015-05-16", "2015-05-08", "2015-05-09", "2015-05-09", "2015-05-07", "2015-05-02", "2015-04-25", "2015-04-19", "2015-04-16", "2015-04-18", "2015-04-16", "2015-04-11", "2015-03-30", "2015-03-29", "2015-03-26", "2015-03-26", "2015-03-21", "2015-03-15", "2015-03-14", "2015-03-13", "2015-03-07", "2015-03-01", "2015-02-26", "2015-02-21", "2015-02-20", "2015-02-12", "2015-01-25", "2015-01-22", "2015-01-18", "2015-01-10", "2014-12-18", "2014-12-11", "2014-12-07", "2014-12-03", "2014-11-21", "2014-11-18", "2014-10-09", "2014-07-20", "2014-07-18", "2014-06-24", "2014-05-28", "2014-05-29", "2014-04-13", "2014-03-26", "2014-03-07", "2014-03-06", "2014-01-23", "2014-01-20", "2014-01-15", "2013-12-14", "2013-12-12", "2013-12-03", "2013-12-03", "2013-11-18", "2013-10-29", "2013-10-26", "2013-09-30", "2013-09-23", "2013-09-16", "2013-09-06", "2013-08-01", "2013-07-19", "2013-07-15", "2013-05-25", "2013-05-18", "2013-05-11", "2013-05-06", "2013-04-25", "2013-03-27", "2013-01-31", "2013-01-31", "2013-01-19", "2013-01-12", "2013-01-03", "2012-11-30"), 
  y = c("10", "7", "5", "13", "14", "10", "5", "14", "15", "9", "13", "", "11", "7", "21", "3", "4", "10", "12", "11", "10", "10", "13", "6", "14", "7", "8", "", "9", "", "12", "4", "12", "10", "9", "6", "5", "17", "17", "16", "8", "9", "5", "5", "12", "3", "6", "16", "12", "15", "6", "11", "6", "6", "16", "10", "11", "", "6", "8", "11", "8", "15", "5", "17", "9", "5", "8", "14", "3", "13", "5", "7", "6", "11", "3", "9", "9", "15", "5", "10", "3", "3", "11", "9", "9", "4", "4", "5", "11", "4", "15", "8", "4", "3", "16", "3", "6", "3", "16", "6", "7", "10", "5", "13", "6", "7", "13", "9", "6", "12", "32", "23", "17", "6", "7", "9", "17", "18", "17", "20", "24", "10", "14", "6", "9", "9", "27", "", "10", "12"), 
  marker = list(
    line = list(width = 0.5), 
    size = 8, 
    color = "#e377c2", 
    symbol = "circle"
  ), 
  text = c("Ipsos/Reuters", "Emerson College Polling Society", "CNN", "Morning Consult", "Monmouth University", "Ipsos/Reuters", "YouGov/Economist", "Morning Consult", "PPP (D)", "Ipsos/Reuters", "Quinnipiac", "Gravis Marketing/One America News", "Ipsos/Reuters", "YouGov/Economist", "Morning Consult", "CNN", "FOX", "Ipsos/Reuters", "Morning Consult", "Ipsos/Reuters", "Zogby (Internet)/ University of Akron", "YouGov/Economist", "Morning Consult", "FOX", "Monmouth University", "CBS", "NBC/WSJ", "Gravis Marketing/One America News", "Ipsos/Reuters", "Emerson College Polling Society", "Quinnipiac", "CNN", "PPP (D)", "YouGov/Economist", "Morning Consult", "ABC/Post", "FOX", "Lincoln Park Strategies (D)", "Monmouth University", "Suffolk/USA Today", "YouGov/Economist", "YouGov/Economist", "CNN", "FOX", "YouGov/Economist", "NBC/WSJ", "YouGov/Economist", "Monmouth University", "PPP (D)", "YouGov/Economist", "FOX", "YouGov/Economist", "CNN", "ABC/Post", "Quinnipiac", "YouGov/Economist", "YouGov/Economist", "Robert Morris University", "FOX", "YouGov/Economist", "PPP (D)", "YouGov/Economist", "YouGov/Economist", "FOX", "Quinnipiac", "YouGov/Economist", "CNN", "YouGov/Economist", "Monmouth University", "FOX", "PPP (D)", "ABC/Post", "YouGov/Economist", "Saint Leo University", "YouGov/Economist", "CNN", "YouGov/Economist", "McClatchy/Marist", "Quinnipiac", "YouGov/Economist", "PPP (D)", "CNN", "FOX", "PPP (D)", "Rasmussen", "YouGov/Economist", "CNN", "ABC/Post", "FOX", "McClatchy/Marist", "CNN", "Quinnipiac", "ABC/Post", "FOX", "CNN", "Quinnipiac", "Saint Leo University", "ABC/Post", "FOX", "Reason/Rupe", "CNN", "PPP (D)", "PPP (D)", "ABC/Post", "Quinnipiac", "FOX", "PPP (D)", "Quinnipiac", "McClatchy/Marist", "CNN", "PPP (D)", "YouGov/Economist", "YouGov", "Quinnipiac", "Rasmussen", "CNN", "Rasmussen", "PPP (D)", "McClatchy/Marist", "YouGov/Economist", "YouGov/Economist", "YouGov/Economist", "PPP (D)", "Quinnipiac", "PPP (D)", "PPP (D)", "PPP (D)", "YouGov/Economist", "YouGov/Economist", "PPP (D)", "PPP (D)"), 
  visible = "legendonly"
)
trace8 <- list(
  fit = list(
    rms = 6.593806222548041, 
    uid = "c346c5", 
    corr = 0.3362733241438965, 
    params = list(
      list(
        err = 1.535738745814301, 
        hold = FALSE, 
        name = "b", 
        value = 64.36270248779434
      ), 
      list(
        err = 2.256921710588443e-06, 
        hold = FALSE, 
        name = "m", 
        value = -9.117412632525485e-06
      )
    ), 
    parent = c("52feb2"), 
    weight = "52feb2", 
    fitname = "Hillary Clinton - fit", 
    funcStr = "m*x + b", 
    ninterp = "20", 
    iterations = 1, 
    inputxrange = c("", ""), 
    outputxrange = c("", "")
  ), 
  uid = "c346c5", 
  line = list(
    color = "#1f77b4", 
    width = 4
  ), 
  name = "Hillary Clinton - fit", 
  x = c("2012-11-30", "2013-01-22 02:28:25.263", "2013-03-16 05:56:50.526", "2013-05-08 08:25:15.789", "2013-06-30 10:53:41.052", "2013-08-22 13:22:06.315", "2013-10-14 15:50:31.578", "2013-12-06 17:18:56.842", "2014-01-28 19:47:22.105", "2014-03-22 23:15:47.368", "2014-05-15 01:44:12.631", "2014-07-07 04:12:37.894", "2014-08-29 06:41:03.157", "2014-10-21 09:09:28.421", "2014-12-13 10:37:53.684", "2015-02-04 13:06:18.947", "2015-03-29 16:34:44.21", "2015-05-21 19:03:09.473", "2015-07-13 21:31:34.736", "2015-09-05"), 
  y = c(64.36270248779434, 63.944385998937605, 63.5260695100809, 63.10775302122417, 62.68943653236744, 62.271120043510706, 61.852803554654, 61.43448706579727, 61.01617057694054, 60.59785408808381, 60.1795375992271, 59.76122111037037, 59.34290462151364, 58.92458813265691, 58.506271643800204, 58.08795515494347, 57.66963866608674, 57.25132217723001, 56.8330056883733, 56.41468919951657), 
  xaxis = "x", 
  yaxis = "y", 
  opacity = 0.5
)
trace9 <- list(
  fit = list(
    rms = 4.480548361622128, 
    uid = "54fac5", 
    corr = 0.8360262020021468, 
    params = list(
      list(
        err = 1.7556299797949104, 
        hold = FALSE, 
        name = "b", 
        value = -11.338992757219817
      ), 
      list(
        err = 5.52669838144608e-06, 
        hold = FALSE, 
        name = "m", 
        value = 8.120830792353916e-05
      )
    ), 
    parent = c("dc0dd7"), 
    weight = "52feb2", 
    fitname = "Bernie Sanders - fit", 
    funcStr = "m*x + b", 
    ninterp = "50", 
    iterations = 1, 
    inputxrange = c("", ""), 
    outputxrange = c("", "")
  ), 
  uid = "54fac5", 
  line = list(
    color = "#ff7f0e", 
    width = 4
  ), 
  name = "Bernie Sanders - fit", 
  x = c("2014-05-28", "2014-06-06 11:45:18.367", "2014-06-15 23:30:36.734", "2014-06-25 11:15:55.102", "2014-07-04 23:01:13.469", "2014-07-14 10:46:31.836", "2014-07-23 22:31:50.204", "2014-08-02 10:17:08.571", "2014-08-11 22:02:26.938", "2014-08-21 09:47:45.306", "2014-08-30 21:33:03.673", "2014-09-09 09:18:22.04", "2014-09-18 21:03:40.408", "2014-09-28 08:48:58.775", "2014-10-07 20:34:17.142", "2014-10-17 08:19:35.51", "2014-10-26 20:04:53.877", "2014-11-05 06:50:12.244", "2014-11-14 18:35:30.612", "2014-11-24 06:20:48.979", "2014-12-03 18:06:07.346", "2014-12-13 05:51:25.714", "2014-12-22 17:36:44.081", "2015-01-01 05:22:02.448", "2015-01-10 17:07:20.816", "2015-01-20 04:52:39.183", "2015-01-29 16:37:57.551", "2015-02-08 04:23:15.918", "2015-02-17 16:08:34.285", "2015-02-27 03:53:52.653", "2015-03-08 16:39:11.02", "2015-03-18 04:24:29.387", "2015-03-27 16:09:47.755", "2015-04-06 03:55:06.122", "2015-04-15 15:40:24.489", "2015-04-25 03:25:42.857", "2015-05-04 15:11:01.224", "2015-05-14 02:56:19.591", "2015-05-23 14:41:37.959", "2015-06-02 02:26:56.326", "2015-06-11 14:12:14.693", "2015-06-21 01:57:33.061", "2015-06-30 13:42:51.428", "2015-07-10 01:28:09.795", "2015-07-19 13:13:28.163", "2015-07-29 00:58:46.53", "2015-08-07 12:44:04.897", "2015-08-17 00:29:23.265", "2015-08-26 12:14:41.632", "2015-09-05"), 
  y = c(-11.338992757219817, -10.673150924743071, -10.007309092266327, -9.341467259789582, -8.675625427312838, -8.009783594836092, -7.343941762359348, -6.6780999298826025, -6.012258097405858, -5.346416264928914, -4.68057443245217, -4.014732599975424, -3.3488907674986796, -2.683048935021935, -2.017207102545189, -1.3513652700684453, -0.6855234375916996, -0.01968160511495398, 0.6461602273617899, 1.3120020598385338, 1.9778438923152795, 2.6436857247920234, 3.309527557268771, 3.9753693897455147, 4.641211222222259, 5.307053054699203, 5.972894887175947, 6.638736719652691, 7.304578552129438, 7.970420384606182, 8.636262217082926, 9.30210404955967, 9.967945882036418, 10.633787714513161, 11.299629546989909, 11.965471379466653, 12.631313211943397, 13.29715504442014, 13.962996876896884, 14.628838709373628, 15.294680541850376, 15.960522374327319, 16.626364206804062, 17.292206039280806, 17.958047871757554, 18.6238897042343, 19.289731536711045, 19.95557336918779, 20.621415201664533, 21.28725703414128), 
  xaxis = "x", 
  yaxis = "y", 
  opacity = 0.5
)
data <- list(trace1, trace2, trace3, trace4, trace5, trace6, trace7, trace8, trace9)
layout <- list(
  title = "2016 National Democratic Primary Poll Tracker", 
  width = 1154, 
  xaxis = list(
    type = "date", 
    range = c(1348808527144.2986, 1446890272855.7014), 
    title = "Source: <a href=\"http://elections.huffingtonpost.com/pollster/2016-national-democratic-primary#\">Huffington Post</a>", 
    autorange = TRUE
  ), 
  yaxis = list(
    type = "linear", 
    range = c(-16.375047910398695, 84.34605515317888), 
    title = "Support", 
    autorange = TRUE, 
    ticksuffix = "%"
  ), 
  height = 700, 
  autosize = FALSE
)
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, error_y=trace1$error_y, text=trace1$text)
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, text=trace2$text)
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, text=trace3$text)
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, text=trace4$text, visible=trace4$visible)
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, text=trace5$text, visible=trace5$visible)
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, text=trace6$text, visible=trace6$visible)
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, text=trace7$text, visible=trace7$visible)
p <- add_trace(p, fit=trace8$fit, uid=trace8$uid, line=trace8$line, name=trace8$name, x=trace8$x, y=trace8$y, xaxis=trace8$xaxis, yaxis=trace8$yaxis, opacity=trace8$opacity)
p <- add_trace(p, fit=trace9$fit, uid=trace9$uid, line=trace9$line, name=trace9$name, x=trace9$x, y=trace9$y, xaxis=trace9$xaxis, yaxis=trace9$yaxis, opacity=trace9$opacity)
p <- layout(p, title=layout$title, width=layout$width, xaxis=layout$xaxis, yaxis=layout$yaxis, height=layout$height, autosize=layout$autosize)