# Get this figure: fig <- get_figure("tccorrigan1", 9)
# Get this figure's data: data <- get_figure("tccorrigan1", 9)$data
# Add data to this figure: p <- add_trace(p, x=c(4, 5), y=c(4, 5), kwargs=list(filename="Nielsen Rating for Top TV Show by Season, 1950-2015 (copy) (2)", fileopt="extend"))
# Get y data of first trace: y1 <- get_figure("tccorrigan1", 9)$data[[1]]$y

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

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

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

library(plotly)
trace1 <- list(
  x = c("50–51", "51–52", "52–53", "53–54", "54–55", "55–56", "56–57", "57–58", "58–59", "59–60", "60–61", "61–62", "62–63", "63–64", "64–65", "65–66", "66–67", "67–68", "68–69", "69–70", "70–71", "71–72", "72–73", "73–74", "74–75", "75–76", "76–77", "77–78", "78–79", "79–80", "80–81", "81–82", "82–83", "83–84", "84–85", "85–86", "86–87", "87–88", "88–89", "89–90", "90–91", "91–92", "92–93", "93–94", "94–95", "95–96", "96–97", "97–98", "98–99", "99–00", "00–01", "01–02", "02–03", "03–04", "04–05", "05–06", "06–07", "07–08", "08–09", "09–10", "10–11", "11–12", "12–13", "13–14", "14–15", "15-16"), 
  y = c("61.6", "53.8", "67.3", "58.8", "49.3", "47.5", "43.7", "43.1", "39.6", "40.3", "37.3", "32.1", "36", "39.1", "36.3", "31.8", "29.1", "27.6", "31.8", "26.3", "29.6", "34", "33.3", "31.2", "30.2", "30.1", "31.5", "31.6", "30.5", "28.4", "34.5", "28.4", "25.5", "25.7", "25", "33.7", "34.9", "27.8", "25.6", "23.1", "21.3", "21.9", "21.9", "20.9", "20.6", "22", "21.2", "21.7", "17.8", "18.6", "17.4", "15", "16.3", "15.9", "16.5", "17.6", "17.3", "16.1", "15.1", "13.7", "14.5", "12.4", "13.5", "12.6", "12.3", "-"), 
  error_x = list(copy_ystyle = TRUE), 
  error_y = list(
    color = "rgb(0, 67, 88)", 
    thickness = 1, 
    width = 1
  ), 
  hoverinfo = "all", 
  marker = list(
    color = "#1f77b4", 
    line = list(
      color = "#444", 
      width = 0
    )
  ), 
  mode = "lines+markers", 
  name = "Rating", 
  opacity = 1, 
  text = c("Texaco Star Theater", "Arthur Godfrey's Talent Scouts", "I Love Lucy", "I Love Lucy", "I Love Lucy", "The $64,000 Question", "I Love Lucy", "Gunsmoke", "Gunsmoke", "Gunsmoke", "Gunsmoke", "Wagon Train", "The Beverly Hillbillies", "The Beverly Hillbillies", "Bonanza", "Bonanza", "Bonanza", "The Andy Griffith Show", "Rowan & Martin's Laugh-In", "Rowan & Martin's Laugh-In", "Marcus Welby, M.D.", "All in the Family", "All in the Family", "All in the Family", "All in the Family", "All in the Family", "Happy Days", "Laverne & Shirley", "Laverne & Shirley", "60 Minutes", "Dallas", "Dallas", "60 Minutes", "Dallas", "Dynasty", "The Cosby Show", "The Cosby Show", "The Cosby Show", "The Cosby Show", "The Cosby Show & Rosanne (tie)", "Cheers", "60 Minutes", "60 Minutes", "60 Minutes", "Seinfeld", "ER", "ER", "Seinfeld", "ER", "Who Wants to Be a Millionaire? — Tuesdays", "Survivor: The Australian Outback", "Friends", "CSI: Crime Scene Investigation", "CSI: Crime Scene Investigation", "CSI: Crime Scene Investigation", "American Idol — Tuesday", "American Idol — Wednesday", "American Idol — Tuesday", "American Idol — Wednesday", "American Idol — Tuesday", "American Idol — Wednesday", "Sunday Night Football", "NCIS", "Sunday Night Football & NCIS (tie)", "Sunday Night Football", "-"), 
  textsrc = "tccorrigan1:0:7fda7c", 
  type = "scatter", 
  uid = "6cbcef", 
  xsrc = "tccorrigan1:0:a97151", 
  ysrc = "tccorrigan1:0:3c5efc"
)
data <- list(trace1)
layout <- list(
  annotations = list(
    list(
      x = 3.02904040404, 
      y = 67.1205739248, 
      arrowcolor = "#444", 
      arrowhead = 1, 
      arrowsize = 1, 
      arrowwidth = 2, 
      ax = 58, 
      ay = 23, 
      bgcolor = "rgba(0, 0, 0, 0)", 
      bordercolor = "rgba(0, 0, 0, 0)", 
      borderpad = 1, 
      borderwidth = 1, 
      font = list(
        color = "#444", 
        family = "\"Open Sans\", verdana, arial, sans-serif", 
        size = 14
      ), 
      opacity = 1, 
      text = "I Love Lucy", 
      textangle = 0
    ), 
    list(
      x = 13.3, 
      y = 40.2492386428, 
      arrowcolor = "#444", 
      arrowhead = 1, 
      arrowsize = 1, 
      arrowwidth = 2, 
      ax = 42, 
      ay = -31, 
      bgcolor = "rgba(0, 0, 0, 0)", 
      bordercolor = "rgba(0, 0, 0, 0)", 
      borderpad = 1, 
      borderwidth = 1, 
      font = list(
        color = "#444", 
        family = "\"Open Sans\", verdana, arial, sans-serif", 
        size = 14
      ), 
      opacity = 1, 
      text = "The Beverly Hillbillies", 
      textangle = 0
    ), 
    list(
      x = 6.49965542279, 
      y = 42.1582301408, 
      arrowcolor = "#444", 
      arrowhead = 1, 
      arrowsize = 1, 
      arrowwidth = 2, 
      ax = -26, 
      ay = 31, 
      bgcolor = "rgba(0, 0, 0, 0)", 
      bordercolor = "rgba(0, 0, 0, 0)", 
      borderpad = 1, 
      borderwidth = 1, 
      font = list(
        color = "#444", 
        family = "\"Open Sans\", verdana, arial, sans-serif", 
        size = 14
      ), 
      opacity = 1, 
      text = "Gunsmoke", 
      textangle = 0
    ), 
    list(
      x = 21.3308080808, 
      y = 35.3620890004, 
      arrowcolor = "#444", 
      arrowhead = 1, 
      arrowsize = 1, 
      arrowwidth = 2, 
      ax = 24, 
      ay = -39, 
      bgcolor = "rgba(0, 0, 0, 0)", 
      bordercolor = "rgba(0, 0, 0, 0)", 
      borderpad = 1, 
      borderwidth = 1, 
      font = list(
        color = "#444", 
        family = "\"Open Sans\", verdana, arial, sans-serif", 
        size = 14
      ), 
      opacity = 1, 
      text = "All in the Family", 
      textangle = 0
    ), 
    list(
      x = 30.0765151515, 
      y = 35.6805838125, 
      arrowcolor = "#444", 
      arrowhead = 1, 
      arrowsize = 1, 
      arrowwidth = 2, 
      ax = 12, 
      ay = -30, 
      bgcolor = "rgba(0, 0, 0, 0)", 
      bordercolor = "rgba(0, 0, 0, 0)", 
      borderpad = 1, 
      borderwidth = 1, 
      font = list(
        color = "#444", 
        family = "\"Open Sans\", verdana, arial, sans-serif", 
        size = 14
      ), 
      opacity = 1, 
      text = "Dallas", 
      textangle = 0
    ), 
    list(
      x = 36.4318181818, 
      y = 36.2435941882, 
      arrowcolor = "#444", 
      arrowhead = 1, 
      arrowsize = 1, 
      arrowwidth = 2, 
      ax = 24, 
      ay = -30, 
      bgcolor = "rgba(0, 0, 0, 0)", 
      bordercolor = "rgba(0, 0, 0, 0)", 
      borderpad = 1, 
      borderwidth = 1, 
      font = list(
        color = "#444", 
        family = "\"Open Sans\", verdana, arial, sans-serif", 
        size = 14
      ), 
      opacity = 1, 
      text = "The Cosby Show", 
      textangle = 0
    ), 
    list(
      x = 44.5568181818, 
      y = 23.359887479, 
      arrowcolor = "#444", 
      arrowhead = 1, 
      arrowsize = 1, 
      arrowwidth = 2, 
      ax = -24, 
      ay = -30, 
      bgcolor = "rgba(0, 0, 0, 0)", 
      bordercolor = "rgba(0, 0, 0, 0)", 
      borderpad = 1, 
      borderwidth = 1, 
      font = list(
        color = "#444", 
        family = "\"Open Sans\", verdana, arial, sans-serif", 
        size = 14
      ), 
      opacity = 1, 
      text = "ER", 
      textangle = 0
    ), 
    list(
      x = 47.3472222222, 
      y = 23.359887479, 
      arrowcolor = "#444", 
      arrowhead = 1, 
      arrowsize = 1, 
      arrowwidth = 2, 
      ax = 24, 
      ay = -30, 
      bgcolor = "rgba(0, 0, 0, 0)", 
      bordercolor = "rgba(0, 0, 0, 0)", 
      borderpad = 1, 
      borderwidth = 1, 
      font = list(
        color = "#444", 
        family = "\"Open Sans\", verdana, arial, sans-serif", 
        size = 14
      ), 
      opacity = 1, 
      text = "Seinfeld", 
      textangle = 0
    ), 
    list(
      x = 54.7335858586, 
      y = 19.3931141335, 
      arrowcolor = "#444", 
      arrowhead = 1, 
      arrowsize = 1, 
      arrowwidth = 2, 
      bgcolor = "rgba(0, 0, 0, 0)", 
      bordercolor = "rgba(0, 0, 0, 0)", 
      borderpad = 1, 
      borderwidth = 1, 
      font = list(
        color = "#444", 
        family = "\"Open Sans\", verdana, arial, sans-serif", 
        size = 14
      ), 
      opacity = 1, 
      text = "American Idol", 
      textangle = 0
    ), 
    list(
      x = 17.9350630937, 
      y = 32.9810131066, 
      font = list(size = 14), 
      text = "Laugh-In"
    ), 
    list(
      x = 39.5315468595, 
      y = 19.6055294451, 
      ax = -24, 
      ay = 30, 
      font = list(size = 14), 
      text = "Cheers"
    ), 
    list(
      x = 50.3927548561, 
      y = 13.8033652143, 
      ax = -52, 
      ay = 14, 
      font = list(size = 14), 
      text = "Friends"
    ), 
    list(
      x = 61.6724797958, 
      y = 14.6413035778, 
      ax = -31, 
      ay = -30, 
      font = list(size = 14), 
      text = "NCIS"
    ), 
    list(
      x = 63.8502764781, 
      y = 13.4981934113, 
      ax = -36, 
      ay = -112, 
      font = list(size = 14), 
      text = "Sunday Night Football"
    )
  ), 
  autosize = TRUE, 
  bargap = 0.2, 
  bargroupgap = 0, 
  dragmode = "zoom", 
  font = list(
    color = "#444", 
    family = "\"Open Sans\", verdana, arial, sans-serif", 
    size = 12
  ), 
  height = 502, 
  hidesources = FALSE, 
  hovermode = "x", 
  legend = list(
    x = 0.02, 
    y = 1, 
    bgcolor = "rgba(255, 255, 255, 0.5)"
  ), 
  paper_bgcolor = "#fff", 
  plot_bgcolor = "#fff", 
  separators = ".,", 
  title = "Nielsen Rating for Top TV Show by Season, 1960-2015", 
  titlefont = list(
    color = "#444", 
    family = "\"Open Sans\", verdana, arial, sans-serif", 
    size = 17
  ), 
  width = 952, 
  xaxis = list(
    autorange = FALSE, 
    dtick = 5, 
    range = c(9.68559601605, 68.9814279575), 
    tick0 = 0, 
    tickangle = 40, 
    tickmode = "linear", 
    ticks = "inside", 
    title = "Season", 
    type = "category"
  ), 
  yaxis = list(
    autorange = FALSE, 
    range = c(8.55243474626, 45.7992549942), 
    title = "Nielsen Rating", 
    type = "linear"
  )
)
p <- plot_ly()
p <- add_trace(p, x=trace1$x, y=trace1$y, error_x=trace1$error_x, error_y=trace1$error_y, hoverinfo=trace1$hoverinfo, marker=trace1$marker, mode=trace1$mode, name=trace1$name, opacity=trace1$opacity, text=trace1$text, textsrc=trace1$textsrc, type=trace1$type, uid=trace1$uid, xsrc=trace1$xsrc, ysrc=trace1$ysrc)
p <- layout(p, annotations=layout$annotations, autosize=layout$autosize, bargap=layout$bargap, bargroupgap=layout$bargroupgap, dragmode=layout$dragmode, font=layout$font, height=layout$height, hidesources=layout$hidesources, hovermode=layout$hovermode, legend=layout$legend, paper_bgcolor=layout$paper_bgcolor, plot_bgcolor=layout$plot_bgcolor, separators=layout$separators, title=layout$title, titlefont=layout$titlefont, width=layout$width, xaxis=layout$xaxis, yaxis=layout$yaxis)