# Get this figure: fig <- get_figure("alexhp", 57)
# Get this figure's data: data <- get_figure("alexhp", 57)$data
# Add data to this figure: p <- add_trace(p, x=c(4, 5), y=c(4, 5), kwargs=list(filename="flybys_forembed", fileopt="extend"))
# Get y data of first trace: y1 <- get_figure("alexhp", 57)$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(
fill = "tozeroy",
line = lis),
name = "",
type = "scatter",
x = c(5, 5.606060606060606, 6.212121212121212, 6.818181818181818, 7.424242424242424, 8.030303030303031, 8.636363636363637, 9.242424242424242, 9.848484848484848, 10.454545454545455, 11.06060606060606, 11.666666666666668, 12.272727272727273, 12.878787878787879, 13.484848484848484, 14.090909090909092, 14.696969696969697, 15.303030303030303, 15.90909090909091, 16.515151515151516, 17.12121212121212, 17.727272727272727, 18.333333333333336, 18.939393939393938, 19.545454545454547, 20.151515151515152, 20.757575757575758, 21.363636363636363, 21.96969696969697, 22.575757575757578, 23.181818181818183, 23.78787878787879, 24.393939393939394, 25, 25.606060606060606, 26.21212121212121, 26.81818181818182, 27.424242424242426, 28.03030303030303, 28.636363636363637, 29.242424242424242, 29.848484848484848, 30.454545454545457, 31.060606060606062, 31.666666666666668, 32.27272727272727, 32.878787878787875, 33.484848484848484, 34.09090909090909, 34.6969696969697, 35.303030303030305, 35.90909090909091, 36.515151515151516, 37.121212121212125, 37.72727272727273, 38.333333333333336, 38.93939393939394, 39.54545454545455, 40.151515151515156, 40.75757575757576, 41.36363636363637, 41.96969696969697, 42.57575757575758, 43.18181818181818, 43.78787878787879, 44.3939393939394, 45, 45.60606060606061, 46.21212121212121, 46.81818181818182, 47.42424242424242, 48.03030303030303, 48.63636363636364, 49.24242424242424, 49.84848484848485, 50.45454545454545, 51.06060606060606, 51.66666666666667, 52.27272727272727, 52.87878787878788, 53.484848484848484, 54.09090909090909, 54.696969696969695, 55.303030303030305, 55.909090909090914, 56.515151515151516, 57.121212121212125, 57.72727272727273, 58.333333333333336, 58.93939393939394, 59.54545454545455, 60.151515151515156, 60.75757575757576, 61.36363636363637, 61.96969696969697, 62.57575757575758, 63.18181818181819, 63.78787878787879, 64.3939393939394, 65),
y = c(0.034666666666666665, 0.039919191919191924, 0.04517171717171717, 0.05042424242424242, 0.05567676767676767, 0.06092929292929294, 0.06618181818181817, 0.07143434343434343, 0.07668686868686868, 0.08193939393939394, 0.08719191919191918, 0.09244444444444445, 0.0976969696969697, 0.10294949494949494, 0.10820202020202019, 0.11345454545454546, 0.1187070707070707, 0.12395959595959595, 0.12921212121212122, 0.13446464646464645, 0.1397171717171717, 0.14496969696969697, 0.15022222222222223, 0.15547474747474746, 0.16072727272727272, 0.16597979797979798, 0.17123232323232324, 0.17648484848484847, 0.18173737373737373, 0.186989898989899, 0.19224242424242424, 0.1974949494949495, 0.20274747474747473, 0.208, 0.21325252525252525, 0.21850505050505048, 0.22375757575757577, 0.22901010101010102, 0.23426262626262626, 0.23951515151515151, 0.24476767676767675, 0.250020202020202, 0.25527272727272726, 0.26052525252525255, 0.2657777777777778, 0.271030303030303, 0.27628282828282824, 0.2815353535353535, 0.2867878787878788, 0.2920404040404041, 0.2972929292929293, 0.3025454545454545, 0.3077979797979798, 0.3130505050505051, 0.3183030303030303, 0.32355555555555554, 0.32880808080808077, 0.33406060606060606, 0.33931313131313134, 0.3445656565656566, 0.3498181818181818, 0.35507070707070704, 0.3603232323232323, 0.36557575757575755, 0.37082828282828284, 0.3760808080808081, 0.3813333333333333, 0.3865858585858586, 0.3918383838383838, 0.3970909090909091, 0.4023434343434343, 0.40759595959595957, 0.41284848484848485, 0.4181010101010101, 0.42335353535353537, 0.4286060606060606, 0.43385858585858583, 0.4391111111111111, 0.44436363636363635, 0.44961616161616164, 0.45486868686868687, 0.4601212121212121, 0.46537373737373733, 0.4706262626262626, 0.4758787878787879, 0.48113131313131313, 0.4863838383838384, 0.4916363636363636, 0.4968888888888889, 0.5021414141414141, 0.5073939393939394, 0.5126464646464647, 0.5178989898989899, 0.5231515151515151, 0.5284040404040403, 0.5336565656565656, 0.5389090909090909, 0.5441616161616162, 0.5494141414141415, 0.5546666666666666),
marker = list(line = lis)),
error_y = lis),
text = c("New Horizons > 5x Hubble Resolution"),
textfont = lis),
fillcolor = "rgba(31, 119, 180, 0.16)"
)
trace2 <- list(
line = lis),
name = "",
type = "scatter",
x = c(7.364961575868747),
y = c(0.8600123933039786),
marker = list(
line = list(
color = "black",
width = 1
),
size = 18,
color = "rgba(204,102,119,0.75)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: Pioneer 10
Object: 347449 2012 TW236
Year of Encounter: 1975"),
textfont = lis)
)
trace3 <- list(
line = lis),
name = "",
type = "scatter",
x = c(36.17771303336273),
y = c(1.1254469067112007),
marker = list(
line = list(
color = "black",
width = 1
),
size = 18,
color = "rgba(204,102,119,0.75)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: Pioneer 10
Object: 2001 XP254
Year of Encounter: 1985"),
textfont = lis)
)
trace4 <- list(
line = lis),
name = "",
type = "scatter",
x = c(17.91005705681779),
y = c(1.2945733941167434),
marker = list(
line = list(
color = "black",
width = 1
),
size = 18,
color = "rgba(204,102,119,0.75)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: Pioneer 10
Object: 2010 HM23
Year of Encounter: 1979"),
textfont = lis)
)
trace5 <- list(
line = lis),
name = "",
type = "scatter",
x = c(8.831598192353631),
y = c(0.5827007159373822),
marker = list(
line = list(
color = "black",
width = 1
),
size = 18,
color = "rgba(204,102,119,0.75)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: Pioneer 10
Object: 2007 HU45
Year of Encounter: 1975"),
textfont = lis)
)
trace6 <- list(
line = lis),
name = "",
type = "scatter",
x = c(9.755259379960574),
y = c(1.8978666199925514),
marker = list(
line = list(
color = "black",
width = 1
),
size = 18,
color = "rgba(204,102,119,0.75)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: Pioneer 10
Object: 2004 DA62
Year of Encounter: 1976"),
textfont = lis)
)
trace7 <- list(
line = lis),
name = "",
type = "scatter",
x = c(5.616306607836133),
y = c(1.9395230253336964),
marker = list(
line = list(
color = "black",
width = 1
),
size = 18,
color = "rgba(204,102,119,0.75)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: Pioneer 10
Object: 145627 2006 RY102
Year of Encounter: 1974"),
textfont = lis)
)
trace8 <- list(
line = lis),
name = "",
type = "scatter",
x = c(5.56241240756227),
y = c(0.9610209298308374),
marker = list(
line = list(
color = "black",
width = 1
),
size = 18,
color = "rgba(204,102,119,0.75)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: Pioneer 10
Object: 2013 AN180
Year of Encounter: 1974"),
textfont = lis)
)
trace9 <- list(
line = lis),
name = "",
type = "scatter",
x = c(8.056445322731815),
y = c(1.0505293805985445),
marker = list(
line = list(
color = "black",
width = 1
),
size = 18,
color = "rgba(170,68,153,0.75)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: Pioneer 11
Object: 2010 KG43
Year of Encounter: 1978"),
textfont = lis)
)
trace10 <- list(
line = lis),
name = "",
type = "scatter",
x = c(9.34453981265068),
y = c(1.3739851361185569),
marker = list(
line = list(
color = "black",
width = 1
),
size = 18,
color = "rgba(170,68,153,0.75)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: Pioneer 11
Object: 2009 SU186
Year of Encounter: 1979"),
textfont = lis)
)
trace11 <- list(
line = lis),
name = "",
type = "scatter",
x = c(9.341244230997749),
y = c(1.6456213097400907),
marker = list(
line = list(
color = "black",
width = 1
),
size = 18,
color = "rgba(170,68,153,0.75)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: Pioneer 11
Object: 309737 2008 SJ236
Year of Encounter: 1979"),
textfont = lis)
)
trace12 <- list(
line = lis),
name = "",
type = "scatter",
x = c(7.321271153700185),
y = c(0.28931975251028513),
marker = list(
line = list(
color = "black",
width = 1
),
size = 18,
color = "rgba(170,68,153,0.75)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: Pioneer 11
Object: 2013 BN45
Year of Encounter: 1978"),
textfont = lis)
)
trace13 <- list(
line = lis),
name = "",
type = "scatter",
x = c(9.376911724807334),
y = c(0.512146194787597),
marker = list(
line = list(
color = "black",
width = 1
),
size = 18,
color = "rgba(170,68,153,0.75)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: Pioneer 11
Object: 2004 RW141
Year of Encounter: 1979"),
textfont = lis)
)
trace14 <- list(
line = lis),
name = "",
type = "scatter",
x = c(9.379625664647927),
y = c(1.4404721850736852),
marker = list(
line = list(
color = "black",
width = 1
),
size = 18,
color = "rgba(170,68,153,0.75)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: Pioneer 11
Object: 2005 VD
Year of Encounter: 1980"),
textfont = lis)
)
trace15 <- list(
line = lis),
name = "",
type = "scatter",
x = c(8.60277240466927),
y = c(1.5384077619256555),
marker = list(
line = list(
color = "black",
width = 1
),
size = 18,
color = "rgba(136,204,238,0.75)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: Voyager 2
Object: 2009 SU186
Year of Encounter: 1981"),
textfont = lis)
)
trace16 <- list(
line = lis),
name = "",
type = "scatter",
x = c(7.069260546304949),
y = c(1.7580415986545368),
marker = list(
line = list(
color = "black",
width = 1
),
size = 18,
color = "rgba(136,204,238,0.75)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: Voyager 2
Object: 2010 KG43
Year of Encounter: 1980"),
textfont = lis)
)
trace17 <- list(
line = lis),
name = "",
type = "scatter",
x = c(8.597807399641534),
y = c(0.5608693481881392),
marker = list(
line = list(
color = "black",
width = 1
),
size = 18,
color = "rgba(136,204,238,0.75)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: Voyager 2
Object: 2004 RW141
Year of Encounter: 1981"),
textfont = lis)
)
trace18 <- list(
line = lis),
name = "",
type = "scatter",
x = c(7.393661827577085),
y = c(1.0844653443386596),
marker = list(
line = list(
color = "black",
width = 1
),
size = 18,
color = "rgba(136,204,238,0.75)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: Voyager 2
Object: 2005 VD
Year of Encounter: 1980"),
textfont = lis)
)
trace19 <- list(
line = lis),
name = "",
type = "scatter",
x = c(10.15565027523038),
y = c(1.3065657732554337),
marker = list(
line = list(
color = "black",
width = 1
),
size = 18,
color = "rgba(136,204,238,0.75)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: Voyager 2
Object: 2013 AN180
Year of Encounter: 1982"),
textfont = lis)
)
trace20 <- list(
line = lis),
name = "",
type = "scatter",
x = c(17.30575825757344),
y = c(1.146287344987313),
marker = list(
line = list(
color = "black",
width = 1
),
size = 18,
color = "rgba(136,204,238,0.75)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: Voyager 2
Object: 2007 TK422
Year of Encounter: 1985"),
textfont = lis)
)
trace21 <- list(
line = lis),
name = "",
type = "scatter",
x = c(7.437100502674675),
y = c(1.60054026677971),
marker = list(
line = list(
color = "black",
width = 1
),
size = 18,
color = "rgba(51,34,136,0.75)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: Voyager 1
Object: 2010 KG43
Year of Encounter: 1980"),
textfont = lis)
)
trace22 <- list(
line = lis),
name = "",
type = "scatter",
x = c(8.995423122701789),
y = c(0.4940052923386497),
marker = list(
line = list(
color = "black",
width = 1
),
size = 18,
color = "rgba(51,34,136,0.75)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: Voyager 1
Object: 2004 RW141
Year of Encounter: 1980"),
textfont = lis)
)
trace23 <- list(
line = lis),
name = "",
type = "scatter",
x = c(8.285153511099994),
y = c(0.42546801065821604),
marker = list(
line = list(
color = "black",
width = 1
),
size = 18,
color = "rgba(51,34,136,0.75)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: Voyager 1
Object: 2005 VD
Year of Encounter: 1980"),
textfont = lis)
)
trace24 <- list(
line = lis),
name = "",
type = "scatter",
x = c(5.617072940989061),
y = c(1.787227225115755),
marker = list(
line = list(
color = "black",
width = 1
),
size = 18,
color = "rgba(51,34,136,0.75)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: Voyager 1
Object: 2005 NP82
Year of Encounter: 1979"),
textfont = lis)
)
trace25 <- list(
line = lis),
name = "",
type = "scatter",
x = c(8.955312439565299),
y = c(1.5097487062293125),
marker = list(
line = list(
color = "black",
width = 1
),
size = 18,
color = "rgba(51,34,136,0.75)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: Voyager 1
Object: 2009 SU186
Year of Encounter: 1980"),
textfont = lis)
)
trace26 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(27.724798, 27.724798),
y = c(1.22047198457, 1.2209347467),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace27 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(27.724798),
y = c(1.22070672006),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: 2011HM102
Year of Encounter: 2013"),
textfont = lis)
)
trace28 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(42.257115, 42.257115),
y = c(0.286347124227, 0.287453628205),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace29 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(42.257115),
y = c(0.287039791132),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0002
Year of Encounter: 2018"),
textfont = lis)
)
trace30 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(38.8439, 38.8439),
y = c(0.252635753414, 0.378110767452),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace31 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(38.8439),
y = c(0.309401887425),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0003
Year of Encounter: 2017"),
textfont = lis)
)
trace32 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(31.963268, 31.963268),
y = c(0.401233003947, 0.978794870804),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace33 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(31.963268),
y = c(0.643713866361),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0004
Year of Encounter: 2015"),
textfont = lis)
)
trace34 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(43.227251, 43.227251),
y = c(0.326735485721, 0.327751751343),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace35 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(43.227251),
y = c(0.327142067699),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: 2011HF103
Year of Encounter: 2018"),
textfont = lis)
)
trace36 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(51.235552, 51.235552),
y = c(0.339064009932, 0.89654957351),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace37 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(51.235552),
y = c(0.592719481299),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0006
Year of Encounter: 2021"),
textfont = lis)
)
trace38 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(42.499851, 42.499851),
y = c(0.192879237974, 0.193554889528),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace39 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(42.499851),
y = c(0.193224797416),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: 2011JW31
Year of Encounter: 2018"),
textfont = lis)
)
trace40 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(42.418954, 42.418954),
y = c(0.158728456121, 0.159375206393),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace41 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(42.418954),
y = c(0.158986676804),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: 2011JY31
Year of Encounter: 2018"),
textfont = lis)
)
trace42 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(47.647668, 47.647668),
y = c(0.412074595703, 0.413038296895),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace43 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(47.647668),
y = c(0.412523544961),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: 2011JX31
Year of Encounter: 2020"),
textfont = lis)
)
trace44 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(43.146488, 43.146488),
y = c(0.153508093611, 0.154578063254),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace45 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(43.146488),
y = c(0.153897982263),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: 2011HZ102
Year of Encounter: 2018"),
textfont = lis)
)
trace46 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(35.565091, 35.565091),
y = c(1.34014614275, 1.41886270072),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace47 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(35.565091),
y = c(1.3727292949),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0011
Year of Encounter: 2016"),
textfont = lis)
)
trace48 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(46.686688, 46.686688),
y = c(0.902988977764, 0.903354211056),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace49 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(46.686688),
y = c(0.903180260491),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: 2011HE103
Year of Encounter: 2020"),
textfont = lis)
)
trace50 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(33.996907, 33.996907),
y = c(0.990981331367, 1.10609996649),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace51 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(33.996907),
y = c(1.04600328251),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0013
Year of Encounter: 2015"),
textfont = lis)
)
trace52 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(42.580732, 42.580732),
y = c(0.483714829672, 0.484396958772),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace53 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(42.580732),
y = c(0.484154931968),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: 2011JA32
Year of Encounter: 2018"),
textfont = lis)
)
trace54 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(32.961093, 32.961093),
y = c(1.19978737707, 2),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace55 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(32.961093),
y = c(1.63116910447),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0015
Year of Encounter: 2015"),
textfont = lis)
)
trace56 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(49.205369, 49.205369),
y = c(1.35100569639, 1.36433305135),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace57 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(49.205369),
y = c(1.35922545693),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: 2011HD103
Year of Encounter: 2021"),
textfont = lis)
)
trace58 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(46.8870445, 46.8870445),
y = c(0.422197930294, 1.10766219693),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace59 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(46.8870445),
y = c(0.492652979685),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0019
Year of Encounter: 2020"),
textfont = lis)
)
trace60 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(47.7276075, 47.7276075),
y = c(1.31043298109, 2),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace61 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(47.7276075),
y = c(1.88700368696),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0020
Year of Encounter: 2020"),
textfont = lis)
)
trace62 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(40.066179, 40.066179),
y = c(0.323447881503, 0.326685596435),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace63 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(40.066179),
y = c(0.325581638437),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0021
Year of Encounter: 2017"),
textfont = lis)
)
trace64 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(40.066179, 40.066179),
y = c(0.489542591464, 0.493634753039),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace65 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(40.066179),
y = c(0.490356024147),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0022
Year of Encounter: 2017"),
textfont = lis)
)
trace66 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(38.680642, 38.680642),
y = c(1.32993553582, 2),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace67 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(38.680642),
y = c(1.69200040528),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0023
Year of Encounter: 2017"),
textfont = lis)
)
trace68 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(35.15311, 35.15311),
y = c(0.22915527289, 0.418148414169),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace69 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(35.15311),
y = c(0.325754494753),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0024
Year of Encounter: 2016"),
textfont = lis)
)
trace70 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(45.402447, 45.402447),
y = c(0.982214473863, 1.11361710501),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace71 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(45.402447),
y = c(1.04946027923),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0025
Year of Encounter: 2019"),
textfont = lis)
)
trace72 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(43.1868695, 43.1868695),
y = c(1.24484223685, 1.92912829268),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace73 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(43.1868695),
y = c(1.55408862168),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0026
Year of Encounter: 2018"),
textfont = lis)
)
trace74 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(43.1868695, 43.1868695),
y = c(1.24484223685, 1.92912829268),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace75 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(43.1868695),
y = c(1.55408862168),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0027
Year of Encounter: 2018"),
textfont = lis)
)
trace76 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(43.1868695, 43.1868695),
y = c(1.24484223685, 1.92912829268),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace77 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(43.1868695),
y = c(1.55408862168),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0029
Year of Encounter: 2018"),
textfont = lis)
)
trace78 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(30.627563, 30.627563),
y = c(0.544067490174, 1.33927182189),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace79 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(30.627563),
y = c(0.903964446602),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0031
Year of Encounter: 2014"),
textfont = lis)
)
trace80 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(40.554052, 40.554052),
y = c(0.872833297823, 0.917914012968),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace81 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(40.554052),
y = c(0.893898085534),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0032
Year of Encounter: 2018"),
textfont = lis)
)
trace82 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(60.194641, 60.194641),
y = c(0.639956960427, 2),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace83 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(60.194641),
y = c(1.4436719691),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0033
Year of Encounter: 2024"),
textfont = lis)
)
trace84 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(44.759019, 44.759019),
y = c(0.305867878676, 0.363278278536),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace85 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(44.759019),
y = c(0.355018658573),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0034
Year of Encounter: 2019"),
textfont = lis)
)
trace86 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(40.797771, 40.797771),
y = c(0.814738972087, 0.866952322016),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace87 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(40.797771),
y = c(0.840446967094),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0035
Year of Encounter: 2018"),
textfont = lis)
)
trace88 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(41.528073, 41.528073),
y = c(0.280521192281, 0.634998232593),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace89 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(41.528073),
y = c(0.462449260911),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0036
Year of Encounter: 2018"),
textfont = lis)
)
trace90 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(47.2074485, 47.2074485),
y = c(0.786145840327, 0.919789091304),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace91 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(47.2074485),
y = c(0.849198049462),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0040
Year of Encounter: 2020"),
textfont = lis)
)
trace92 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(36.2643185, 36.2643185),
y = c(0.834653718204, 0.923241003974),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace93 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(36.2643185),
y = c(0.885483501242),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0041
Year of Encounter: 2016"),
textfont = lis)
)
trace94 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(36.2643185, 36.2643185),
y = c(0.834653718204, 0.923241003974),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace95 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(36.2643185),
y = c(0.885483501242),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0042
Year of Encounter: 2016"),
textfont = lis)
)
trace96 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(50.042234, 50.042234),
y = c(0.504011246127, 0.769219991002),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace97 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(50.042234),
y = c(0.608576310369),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0044
Year of Encounter: 2021"),
textfont = lis)
)
trace98 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(38.108686, 38.108686),
y = c(1.58385247083, 1.67131102291),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace99 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(38.108686),
y = c(1.61811039198),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0045
Year of Encounter: 2017"),
textfont = lis)
)
trace100 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(43.87284, 43.87284),
y = c(0.929419290512, 1.82576341077),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace101 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(43.87284),
y = c(1.38548206636),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0046
Year of Encounter: 2019"),
textfont = lis)
)
trace102 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(46.285729, 46.285729),
y = c(0.672300488365, 2),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace103 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(46.285729),
y = c(1.45315949592),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0047
Year of Encounter: 2020"),
textfont = lis)
)
trace104 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(29.663575, 29.663575),
y = c(1.25827412866, 1.35513376595),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace105 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(29.663575),
y = c(1.31038693964),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0048
Year of Encounter: 2014"),
textfont = lis)
)
trace106 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(44.598024, 44.598024),
y = c(0.303582173651, 1.15556270787),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace107 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(44.598024),
y = c(0.508148719886),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0050
Year of Encounter: 2019"),
textfont = lis)
)
trace108 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(43.5501545, 43.5501545),
y = c(1.5258996845, 2),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace109 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(43.5501545),
y = c(1.77023864674),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0051
Year of Encounter: 2019"),
textfont = lis)
)
trace110 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(48.52692, 48.52692),
y = c(0.467800543219, 2),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace111 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(48.52692),
y = c(1.03864337413),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0052
Year of Encounter: 2020"),
textfont = lis)
)
trace112 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(34.410303, 34.410303),
y = c(0.963024686967, 2),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace113 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(34.410303),
y = c(1.3201179932),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0053
Year of Encounter: 2016"),
textfont = lis)
)
trace114 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(43.751861, 43.751861),
y = c(0.371640726643, 0.510012889133),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace115 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(43.751861),
y = c(0.434115918449),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0054
Year of Encounter: 2019"),
textfont = lis)
)
trace116 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(41.60914, 41.60914),
y = c(0.850294099401, 1.01975452053),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace117 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(41.60914),
y = c(0.932388007217),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0055
Year of Encounter: 2018"),
textfont = lis)
)
trace118 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(34.162328, 34.162328),
y = c(0.891674559065, 1.83249646384),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace119 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(34.162328),
y = c(1.32706001834),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0056
Year of Encounter: 2015"),
textfont = lis)
)
trace120 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(34.162328, 34.162328),
y = c(0.891674559065, 1.83249646384),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace121 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(34.162328),
y = c(1.32706001834),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0057
Year of Encounter: 2015"),
textfont = lis)
)
trace122 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(41.203651, 41.203651),
y = c(0.405907553375, 0.42489725715),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace123 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(41.203651),
y = c(0.41279227619),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0058
Year of Encounter: 2018"),
textfont = lis)
)
trace124 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(39.577717, 39.577717),
y = c(1.11814757143, 1.1483596936),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace125 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(39.577717),
y = c(1.13465351053),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0059
Year of Encounter: 2017"),
textfont = lis)
)
trace126 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(38.27219, 38.27219),
y = c(0.980525124962, 1.15384063444),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace127 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(38.27219),
y = c(1.04164055313),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0060
Year of Encounter: 2017"),
textfont = lis)
)
trace128 <- list(
line = list(
color = "rgb(221,204,119)",
width = 2
),
mode = "lines",
name = "",
type = "scatter",
x = c(43.9937835, 43.9937835),
y = c(1.25952341404, 2),
marker = list(line = lis)),
error_y = lis),
textfont = lis)
)
trace129 <- list(
line = lis),
mode = "markers",
name = "",
type = "scatter",
x = c(43.9937835),
y = c(1.79173103058),
marker = list(
line = list(
color = "black",
width = 1
),
size = 12,
color = "rgb(221,204,119)",
symbol = "circle",
opacity = 1
),
error_y = lis),
text = c("Spacecraft: New Horizons
Object: VNH0061
Year of Encounter: 2019"),
textfont = lis)
)
data <- list(trace1, trace2, trace3, trace4, trace5, trace6, trace7, trace8, trace9, trace10, trace11, trace12, trace13, trace14, trace15, trace16, trace17, trace18, trace19, trace20, trace21, trace22, trace23, trace24, trace25, trace26, trace27, trace28, trace29, trace30, trace31, trace32, trace33, trace34, trace35, trace36, trace37, trace38, trace39, trace40, trace41, trace42, trace43, trace44, trace45, trace46, trace47, trace48, trace49, trace50, trace51, trace52, trace53, trace54, trace55, trace56, trace57, trace58, trace59, trace60, trace61, trace62, trace63, trace64, trace65, trace66, trace67, trace68, trace69, trace70, trace71, trace72, trace73, trace74, trace75, trace76, trace77, trace78, trace79, trace80, trace81, trace82, trace83, trace84, trace85, trace86, trace87, trace88, trace89, trace90, trace91, trace92, trace93, trace94, trace95, trace96, trace97, trace98, trace99, trace100, trace101, trace102, trace103, trace104, trace105, trace106, trace107, trace108, trace109, trace110, trace111, trace112, trace113, trace114, trace115, trace116, trace117, trace118, trace119, trace120, trace121, trace122, trace123, trace124, trace125, trace126, trace127, trace128, trace129)
layout <- list(
font = list(
size = 14,
color = "black",
family = "Century Gothic"
),
title = "Flybys of Minor Planets in the Outer Solar System:
Pioneer 10 and 11, Voyager I and II, and New Horizons",
width = 1237,
xaxis = list(
type = "linear",
color = "black",
dtick = 10,
range = c(5, 65),
tick0 = 0,
ticks = "outside",
title = "Distance from Sun at Encounter (AU)
Data generated by Alex H. Parker",
anchor = "y",
domain = c(0, 1),
mirror = "all",
nticks = 0,
ticklen = 5,
autotick = TRUE,
position = 0,
showgrid = TRUE,
showline = TRUE,
tickfont = list(
size = 0,
color = "",
family = ""
),
zeroline = TRUE,
autorange = FALSE,
gridcolor = "#ddd",
gridwidth = 1,
linecolor = "black",
linewidth = 2,
rangemode = "normal",
tickangle = "auto",
tickcolor = "black",
tickwidth = 1,
titlefont = list(
size = 0,
color = "",
family = ""
),
overlaying = FALSE,
showexponent = "all",
zerolinecolor = "#000",
zerolinewidth = 1,
exponentformat = "e",
showticklabels = TRUE
),
yaxis = list(
type = "log",
color = "white",
dtick = "D1",
range = c(-1, 0.3010299956639812),
tick0 = 0,
ticks = "outside",
title = "Close Approach Distance (AU)",
anchor = "x",
domain = c(0, 1),
mirror = "all",
nticks = 0,
ticklen = 5,
autotick = TRUE,
position = 0,
showgrid = TRUE,
showline = TRUE,
tickfont = list(
size = 0,
color = "",
family = ""
),
zeroline = TRUE,
autorange = FALSE,
gridcolor = "#ddd",
gridwidth = 1,
linecolor = "black",
linewidth = 2,
rangemode = "normal",
tickangle = "auto",
tickcolor = "black",
tickwidth = 1,
titlefont = list(
size = 0,
color = "",
family = ""
),
overlaying = FALSE,
showexponent = "all",
zerolinecolor = "#000",
zerolinewidth = 1,
exponentformat = "e",
showticklabels = TRUE
),
bargap = 0.2,
boxgap = 0.3,
height = 499,
legend = list(
font = list(
size = 0,
color = "",
family = ""
),
bgcolor = "#fff",
traceorder = "normal",
bordercolor = "#000",
borderwidth = 1
),
margin = list(
b = 100,
l = 80,
r = 80,
t = 100,
pad = 2
),
barmode = "stack",
boxmode = "overlay",
autosize = TRUE,
dragmode = "zoom",
hovermode = "closest",
titlefont = list(
size = 0,
color = "",
family = ""
),
separators = ".,",
showlegend = FALSE,
annotations = list(
list(
x = 28.437325905292482,
y = -0.6619062519629052,
ax = 68,
ay = 63.40625,
tag = "",
font = list(
size = 12,
color = "",
family = ""
),
text = "New Horizons exceeds 5x Hubble's resolution",
xref = "x",
yref = "y",
align = "left",
bgcolor = "rgba(0,0,0,0)",
opacity = 1,
arrowhead = 1,
arrowsize = 1,
borderpad = 1,
showarrow = TRUE,
arrowcolor = "",
arrowwidth = 0,
bordercolor = "",
borderwidth = 1
)
),
bargroupgap = 0,
boxgroupgap = 0.3,
plot_bgcolor = "#fbfbfb",
paper_bgcolor = "#fbfbfb"
)
p <- plot_ly()
p <- add_trace(p, fill=trace1$fill, line=trace1$line, name=trace1$name, type=trace1$type, x=trace1$x, y=trace1$y, marker=trace1$marker, error_y=trace1$error_y, text=trace1$text, textfont=trace1$textfont, fillcolor=trace1$fillcolor)
p <- add_trace(p, line=trace2$line, name=trace2$name, type=trace2$type, x=trace2$x, y=trace2$y, marker=trace2$marker, error_y=trace2$error_y, text=trace2$text, textfont=trace2$textfont)
p <- add_trace(p, line=trace3$line, name=trace3$name, type=trace3$type, x=trace3$x, y=trace3$y, marker=trace3$marker, error_y=trace3$error_y, text=trace3$text, textfont=trace3$textfont)
p <- add_trace(p, line=trace4$line, name=trace4$name, type=trace4$type, x=trace4$x, y=trace4$y, marker=trace4$marker, error_y=trace4$error_y, text=trace4$text, textfont=trace4$textfont)
p <- add_trace(p, line=trace5$line, name=trace5$name, type=trace5$type, x=trace5$x, y=trace5$y, marker=trace5$marker, error_y=trace5$error_y, text=trace5$text, textfont=trace5$textfont)
p <- add_trace(p, line=trace6$line, name=trace6$name, type=trace6$type, x=trace6$x, y=trace6$y, marker=trace6$marker, error_y=trace6$error_y, text=trace6$text, textfont=trace6$textfont)
p <- add_trace(p, line=trace7$line, name=trace7$name, type=trace7$type, x=trace7$x, y=trace7$y, marker=trace7$marker, error_y=trace7$error_y, text=trace7$text, textfont=trace7$textfont)
p <- add_trace(p, line=trace8$line, name=trace8$name, type=trace8$type, x=trace8$x, y=trace8$y, marker=trace8$marker, error_y=trace8$error_y, text=trace8$text, textfont=trace8$textfont)
p <- add_trace(p, line=trace9$line, name=trace9$name, type=trace9$type, x=trace9$x, y=trace9$y, marker=trace9$marker, error_y=trace9$error_y, text=trace9$text, textfont=trace9$textfont)
p <- add_trace(p, line=trace10$line, name=trace10$name, type=trace10$type, x=trace10$x, y=trace10$y, marker=trace10$marker, error_y=trace10$error_y, text=trace10$text, textfont=trace10$textfont)
p <- add_trace(p, line=trace11$line, name=trace11$name, type=trace11$type, x=trace11$x, y=trace11$y, marker=trace11$marker, error_y=trace11$error_y, text=trace11$text, textfont=trace11$textfont)
p <- add_trace(p, line=trace12$line, name=trace12$name, type=trace12$type, x=trace12$x, y=trace12$y, marker=trace12$marker, error_y=trace12$error_y, text=trace12$text, textfont=trace12$textfont)
p <- add_trace(p, line=trace13$line, name=trace13$name, type=trace13$type, x=trace13$x, y=trace13$y, marker=trace13$marker, error_y=trace13$error_y, text=trace13$text, textfont=trace13$textfont)
p <- add_trace(p, line=trace14$line, name=trace14$name, type=trace14$type, x=trace14$x, y=trace14$y, marker=trace14$marker, error_y=trace14$error_y, text=trace14$text, textfont=trace14$textfont)
p <- add_trace(p, line=trace15$line, name=trace15$name, type=trace15$type, x=trace15$x, y=trace15$y, marker=trace15$marker, error_y=trace15$error_y, text=trace15$text, textfont=trace15$textfont)
p <- add_trace(p, line=trace16$line, name=trace16$name, type=trace16$type, x=trace16$x, y=trace16$y, marker=trace16$marker, error_y=trace16$error_y, text=trace16$text, textfont=trace16$textfont)
p <- add_trace(p, line=trace17$line, name=trace17$name, type=trace17$type, x=trace17$x, y=trace17$y, marker=trace17$marker, error_y=trace17$error_y, text=trace17$text, textfont=trace17$textfont)
p <- add_trace(p, line=trace18$line, name=trace18$name, type=trace18$type, x=trace18$x, y=trace18$y, marker=trace18$marker, error_y=trace18$error_y, text=trace18$text, textfont=trace18$textfont)
p <- add_trace(p, line=trace19$line, name=trace19$name, type=trace19$type, x=trace19$x, y=trace19$y, marker=trace19$marker, error_y=trace19$error_y, text=trace19$text, textfont=trace19$textfont)
p <- add_trace(p, line=trace20$line, name=trace20$name, type=trace20$type, x=trace20$x, y=trace20$y, marker=trace20$marker, error_y=trace20$error_y, text=trace20$text, textfont=trace20$textfont)
p <- add_trace(p, line=trace21$line, name=trace21$name, type=trace21$type, x=trace21$x, y=trace21$y, marker=trace21$marker, error_y=trace21$error_y, text=trace21$text, textfont=trace21$textfont)
p <- add_trace(p, line=trace22$line, name=trace22$name, type=trace22$type, x=trace22$x, y=trace22$y, marker=trace22$marker, error_y=trace22$error_y, text=trace22$text, textfont=trace22$textfont)
p <- add_trace(p, line=trace23$line, name=trace23$name, type=trace23$type, x=trace23$x, y=trace23$y, marker=trace23$marker, error_y=trace23$error_y, text=trace23$text, textfont=trace23$textfont)
p <- add_trace(p, line=trace24$line, name=trace24$name, type=trace24$type, x=trace24$x, y=trace24$y, marker=trace24$marker, error_y=trace24$error_y, text=trace24$text, textfont=trace24$textfont)
p <- add_trace(p, line=trace25$line, name=trace25$name, type=trace25$type, x=trace25$x, y=trace25$y, marker=trace25$marker, error_y=trace25$error_y, text=trace25$text, textfont=trace25$textfont)
p <- add_trace(p, line=trace26$line, mode=trace26$mode, name=trace26$name, type=trace26$type, x=trace26$x, y=trace26$y, marker=trace26$marker, error_y=trace26$error_y, textfont=trace26$textfont)
p <- add_trace(p, line=trace27$line, mode=trace27$mode, name=trace27$name, type=trace27$type, x=trace27$x, y=trace27$y, marker=trace27$marker, error_y=trace27$error_y, text=trace27$text, textfont=trace27$textfont)
p <- add_trace(p, line=trace28$line, mode=trace28$mode, name=trace28$name, type=trace28$type, x=trace28$x, y=trace28$y, marker=trace28$marker, error_y=trace28$error_y, textfont=trace28$textfont)
p <- add_trace(p, line=trace29$line, mode=trace29$mode, name=trace29$name, type=trace29$type, x=trace29$x, y=trace29$y, marker=trace29$marker, error_y=trace29$error_y, text=trace29$text, textfont=trace29$textfont)
p <- add_trace(p, line=trace30$line, mode=trace30$mode, name=trace30$name, type=trace30$type, x=trace30$x, y=trace30$y, marker=trace30$marker, error_y=trace30$error_y, textfont=trace30$textfont)
p <- add_trace(p, line=trace31$line, mode=trace31$mode, name=trace31$name, type=trace31$type, x=trace31$x, y=trace31$y, marker=trace31$marker, error_y=trace31$error_y, text=trace31$text, textfont=trace31$textfont)
p <- add_trace(p, line=trace32$line, mode=trace32$mode, name=trace32$name, type=trace32$type, x=trace32$x, y=trace32$y, marker=trace32$marker, error_y=trace32$error_y, textfont=trace32$textfont)
p <- add_trace(p, line=trace33$line, mode=trace33$mode, name=trace33$name, type=trace33$type, x=trace33$x, y=trace33$y, marker=trace33$marker, error_y=trace33$error_y, text=trace33$text, textfont=trace33$textfont)
p <- add_trace(p, line=trace34$line, mode=trace34$mode, name=trace34$name, type=trace34$type, x=trace34$x, y=trace34$y, marker=trace34$marker, error_y=trace34$error_y, textfont=trace34$textfont)
p <- add_trace(p, line=trace35$line, mode=trace35$mode, name=trace35$name, type=trace35$type, x=trace35$x, y=trace35$y, marker=trace35$marker, error_y=trace35$error_y, text=trace35$text, textfont=trace35$textfont)
p <- add_trace(p, line=trace36$line, mode=trace36$mode, name=trace36$name, type=trace36$type, x=trace36$x, y=trace36$y, marker=trace36$marker, error_y=trace36$error_y, textfont=trace36$textfont)
p <- add_trace(p, line=trace37$line, mode=trace37$mode, name=trace37$name, type=trace37$type, x=trace37$x, y=trace37$y, marker=trace37$marker, error_y=trace37$error_y, text=trace37$text, textfont=trace37$textfont)
p <- add_trace(p, line=trace38$line, mode=trace38$mode, name=trace38$name, type=trace38$type, x=trace38$x, y=trace38$y, marker=trace38$marker, error_y=trace38$error_y, textfont=trace38$textfont)
p <- add_trace(p, line=trace39$line, mode=trace39$mode, name=trace39$name, type=trace39$type, x=trace39$x, y=trace39$y, marker=trace39$marker, error_y=trace39$error_y, text=trace39$text, textfont=trace39$textfont)
p <- add_trace(p, line=trace40$line, mode=trace40$mode, name=trace40$name, type=trace40$type, x=trace40$x, y=trace40$y, marker=trace40$marker, error_y=trace40$error_y, textfont=trace40$textfont)
p <- add_trace(p, line=trace41$line, mode=trace41$mode, name=trace41$name, type=trace41$type, x=trace41$x, y=trace41$y, marker=trace41$marker, error_y=trace41$error_y, text=trace41$text, textfont=trace41$textfont)
p <- add_trace(p, line=trace42$line, mode=trace42$mode, name=trace42$name, type=trace42$type, x=trace42$x, y=trace42$y, marker=trace42$marker, error_y=trace42$error_y, textfont=trace42$textfont)
p <- add_trace(p, line=trace43$line, mode=trace43$mode, name=trace43$name, type=trace43$type, x=trace43$x, y=trace43$y, marker=trace43$marker, error_y=trace43$error_y, text=trace43$text, textfont=trace43$textfont)
p <- add_trace(p, line=trace44$line, mode=trace44$mode, name=trace44$name, type=trace44$type, x=trace44$x, y=trace44$y, marker=trace44$marker, error_y=trace44$error_y, textfont=trace44$textfont)
p <- add_trace(p, line=trace45$line, mode=trace45$mode, name=trace45$name, type=trace45$type, x=trace45$x, y=trace45$y, marker=trace45$marker, error_y=trace45$error_y, text=trace45$text, textfont=trace45$textfont)
p <- add_trace(p, line=trace46$line, mode=trace46$mode, name=trace46$name, type=trace46$type, x=trace46$x, y=trace46$y, marker=trace46$marker, error_y=trace46$error_y, textfont=trace46$textfont)
p <- add_trace(p, line=trace47$line, mode=trace47$mode, name=trace47$name, type=trace47$type, x=trace47$x, y=trace47$y, marker=trace47$marker, error_y=trace47$error_y, text=trace47$text, textfont=trace47$textfont)
p <- add_trace(p, line=trace48$line, mode=trace48$mode, name=trace48$name, type=trace48$type, x=trace48$x, y=trace48$y, marker=trace48$marker, error_y=trace48$error_y, textfont=trace48$textfont)
p <- add_trace(p, line=trace49$line, mode=trace49$mode, name=trace49$name, type=trace49$type, x=trace49$x, y=trace49$y, marker=trace49$marker, error_y=trace49$error_y, text=trace49$text, textfont=trace49$textfont)
p <- add_trace(p, line=trace50$line, mode=trace50$mode, name=trace50$name, type=trace50$type, x=trace50$x, y=trace50$y, marker=trace50$marker, error_y=trace50$error_y, textfont=trace50$textfont)
p <- add_trace(p, line=trace51$line, mode=trace51$mode, name=trace51$name, type=trace51$type, x=trace51$x, y=trace51$y, marker=trace51$marker, error_y=trace51$error_y, text=trace51$text, textfont=trace51$textfont)
p <- add_trace(p, line=trace52$line, mode=trace52$mode, name=trace52$name, type=trace52$type, x=trace52$x, y=trace52$y, marker=trace52$marker, error_y=trace52$error_y, textfont=trace52$textfont)
p <- add_trace(p, line=trace53$line, mode=trace53$mode, name=trace53$name, type=trace53$type, x=trace53$x, y=trace53$y, marker=trace53$marker, error_y=trace53$error_y, text=trace53$text, textfont=trace53$textfont)
p <- add_trace(p, line=trace54$line, mode=trace54$mode, name=trace54$name, type=trace54$type, x=trace54$x, y=trace54$y, marker=trace54$marker, error_y=trace54$error_y, textfont=trace54$textfont)
p <- add_trace(p, line=trace55$line, mode=trace55$mode, name=trace55$name, type=trace55$type, x=trace55$x, y=trace55$y, marker=trace55$marker, error_y=trace55$error_y, text=trace55$text, textfont=trace55$textfont)
p <- add_trace(p, line=trace56$line, mode=trace56$mode, name=trace56$name, type=trace56$type, x=trace56$x, y=trace56$y, marker=trace56$marker, error_y=trace56$error_y, textfont=trace56$textfont)
p <- add_trace(p, line=trace57$line, mode=trace57$mode, name=trace57$name, type=trace57$type, x=trace57$x, y=trace57$y, marker=trace57$marker, error_y=trace57$error_y, text=trace57$text, textfont=trace57$textfont)
p <- add_trace(p, line=trace58$line, mode=trace58$mode, name=trace58$name, type=trace58$type, x=trace58$x, y=trace58$y, marker=trace58$marker, error_y=trace58$error_y, textfont=trace58$textfont)
p <- add_trace(p, line=trace59$line, mode=trace59$mode, name=trace59$name, type=trace59$type, x=trace59$x, y=trace59$y, marker=trace59$marker, error_y=trace59$error_y, text=trace59$text, textfont=trace59$textfont)
p <- add_trace(p, line=trace60$line, mode=trace60$mode, name=trace60$name, type=trace60$type, x=trace60$x, y=trace60$y, marker=trace60$marker, error_y=trace60$error_y, textfont=trace60$textfont)
p <- add_trace(p, line=trace61$line, mode=trace61$mode, name=trace61$name, type=trace61$type, x=trace61$x, y=trace61$y, marker=trace61$marker, error_y=trace61$error_y, text=trace61$text, textfont=trace61$textfont)
p <- add_trace(p, line=trace62$line, mode=trace62$mode, name=trace62$name, type=trace62$type, x=trace62$x, y=trace62$y, marker=trace62$marker, error_y=trace62$error_y, textfont=trace62$textfont)
p <- add_trace(p, line=trace63$line, mode=trace63$mode, name=trace63$name, type=trace63$type, x=trace63$x, y=trace63$y, marker=trace63$marker, error_y=trace63$error_y, text=trace63$text, textfont=trace63$textfont)
p <- add_trace(p, line=trace64$line, mode=trace64$mode, name=trace64$name, type=trace64$type, x=trace64$x, y=trace64$y, marker=trace64$marker, error_y=trace64$error_y, textfont=trace64$textfont)
p <- add_trace(p, line=trace65$line, mode=trace65$mode, name=trace65$name, type=trace65$type, x=trace65$x, y=trace65$y, marker=trace65$marker, error_y=trace65$error_y, text=trace65$text, textfont=trace65$textfont)
p <- add_trace(p, line=trace66$line, mode=trace66$mode, name=trace66$name, type=trace66$type, x=trace66$x, y=trace66$y, marker=trace66$marker, error_y=trace66$error_y, textfont=trace66$textfont)
p <- add_trace(p, line=trace67$line, mode=trace67$mode, name=trace67$name, type=trace67$type, x=trace67$x, y=trace67$y, marker=trace67$marker, error_y=trace67$error_y, text=trace67$text, textfont=trace67$textfont)
p <- add_trace(p, line=trace68$line, mode=trace68$mode, name=trace68$name, type=trace68$type, x=trace68$x, y=trace68$y, marker=trace68$marker, error_y=trace68$error_y, textfont=trace68$textfont)
p <- add_trace(p, line=trace69$line, mode=trace69$mode, name=trace69$name, type=trace69$type, x=trace69$x, y=trace69$y, marker=trace69$marker, error_y=trace69$error_y, text=trace69$text, textfont=trace69$textfont)
p <- add_trace(p, line=trace70$line, mode=trace70$mode, name=trace70$name, type=trace70$type, x=trace70$x, y=trace70$y, marker=trace70$marker, error_y=trace70$error_y, textfont=trace70$textfont)
p <- add_trace(p, line=trace71$line, mode=trace71$mode, name=trace71$name, type=trace71$type, x=trace71$x, y=trace71$y, marker=trace71$marker, error_y=trace71$error_y, text=trace71$text, textfont=trace71$textfont)
p <- add_trace(p, line=trace72$line, mode=trace72$mode, name=trace72$name, type=trace72$type, x=trace72$x, y=trace72$y, marker=trace72$marker, error_y=trace72$error_y, textfont=trace72$textfont)
p <- add_trace(p, line=trace73$line, mode=trace73$mode, name=trace73$name, type=trace73$type, x=trace73$x, y=trace73$y, marker=trace73$marker, error_y=trace73$error_y, text=trace73$text, textfont=trace73$textfont)
p <- add_trace(p, line=trace74$line, mode=trace74$mode, name=trace74$name, type=trace74$type, x=trace74$x, y=trace74$y, marker=trace74$marker, error_y=trace74$error_y, textfont=trace74$textfont)
p <- add_trace(p, line=trace75$line, mode=trace75$mode, name=trace75$name, type=trace75$type, x=trace75$x, y=trace75$y, marker=trace75$marker, error_y=trace75$error_y, text=trace75$text, textfont=trace75$textfont)
p <- add_trace(p, line=trace76$line, mode=trace76$mode, name=trace76$name, type=trace76$type, x=trace76$x, y=trace76$y, marker=trace76$marker, error_y=trace76$error_y, textfont=trace76$textfont)
p <- add_trace(p, line=trace77$line, mode=trace77$mode, name=trace77$name, type=trace77$type, x=trace77$x, y=trace77$y, marker=trace77$marker, error_y=trace77$error_y, text=trace77$text, textfont=trace77$textfont)
p <- add_trace(p, line=trace78$line, mode=trace78$mode, name=trace78$name, type=trace78$type, x=trace78$x, y=trace78$y, marker=trace78$marker, error_y=trace78$error_y, textfont=trace78$textfont)
p <- add_trace(p, line=trace79$line, mode=trace79$mode, name=trace79$name, type=trace79$type, x=trace79$x, y=trace79$y, marker=trace79$marker, error_y=trace79$error_y, text=trace79$text, textfont=trace79$textfont)
p <- add_trace(p, line=trace80$line, mode=trace80$mode, name=trace80$name, type=trace80$type, x=trace80$x, y=trace80$y, marker=trace80$marker, error_y=trace80$error_y, textfont=trace80$textfont)
p <- add_trace(p, line=trace81$line, mode=trace81$mode, name=trace81$name, type=trace81$type, x=trace81$x, y=trace81$y, marker=trace81$marker, error_y=trace81$error_y, text=trace81$text, textfont=trace81$textfont)
p <- add_trace(p, line=trace82$line, mode=trace82$mode, name=trace82$name, type=trace82$type, x=trace82$x, y=trace82$y, marker=trace82$marker, error_y=trace82$error_y, textfont=trace82$textfont)
p <- add_trace(p, line=trace83$line, mode=trace83$mode, name=trace83$name, type=trace83$type, x=trace83$x, y=trace83$y, marker=trace83$marker, error_y=trace83$error_y, text=trace83$text, textfont=trace83$textfont)
p <- add_trace(p, line=trace84$line, mode=trace84$mode, name=trace84$name, type=trace84$type, x=trace84$x, y=trace84$y, marker=trace84$marker, error_y=trace84$error_y, textfont=trace84$textfont)
p <- add_trace(p, line=trace85$line, mode=trace85$mode, name=trace85$name, type=trace85$type, x=trace85$x, y=trace85$y, marker=trace85$marker, error_y=trace85$error_y, text=trace85$text, textfont=trace85$textfont)
p <- add_trace(p, line=trace86$line, mode=trace86$mode, name=trace86$name, type=trace86$type, x=trace86$x, y=trace86$y, marker=trace86$marker, error_y=trace86$error_y, textfont=trace86$textfont)
p <- add_trace(p, line=trace87$line, mode=trace87$mode, name=trace87$name, type=trace87$type, x=trace87$x, y=trace87$y, marker=trace87$marker, error_y=trace87$error_y, text=trace87$text, textfont=trace87$textfont)
p <- add_trace(p, line=trace88$line, mode=trace88$mode, name=trace88$name, type=trace88$type, x=trace88$x, y=trace88$y, marker=trace88$marker, error_y=trace88$error_y, textfont=trace88$textfont)
p <- add_trace(p, line=trace89$line, mode=trace89$mode, name=trace89$name, type=trace89$type, x=trace89$x, y=trace89$y, marker=trace89$marker, error_y=trace89$error_y, text=trace89$text, textfont=trace89$textfont)
p <- add_trace(p, line=trace90$line, mode=trace90$mode, name=trace90$name, type=trace90$type, x=trace90$x, y=trace90$y, marker=trace90$marker, error_y=trace90$error_y, textfont=trace90$textfont)
p <- add_trace(p, line=trace91$line, mode=trace91$mode, name=trace91$name, type=trace91$type, x=trace91$x, y=trace91$y, marker=trace91$marker, error_y=trace91$error_y, text=trace91$text, textfont=trace91$textfont)
p <- add_trace(p, line=trace92$line, mode=trace92$mode, name=trace92$name, type=trace92$type, x=trace92$x, y=trace92$y, marker=trace92$marker, error_y=trace92$error_y, textfont=trace92$textfont)
p <- add_trace(p, line=trace93$line, mode=trace93$mode, name=trace93$name, type=trace93$type, x=trace93$x, y=trace93$y, marker=trace93$marker, error_y=trace93$error_y, text=trace93$text, textfont=trace93$textfont)
p <- add_trace(p, line=trace94$line, mode=trace94$mode, name=trace94$name, type=trace94$type, x=trace94$x, y=trace94$y, marker=trace94$marker, error_y=trace94$error_y, textfont=trace94$textfont)
p <- add_trace(p, line=trace95$line, mode=trace95$mode, name=trace95$name, type=trace95$type, x=trace95$x, y=trace95$y, marker=trace95$marker, error_y=trace95$error_y, text=trace95$text, textfont=trace95$textfont)
p <- add_trace(p, line=trace96$line, mode=trace96$mode, name=trace96$name, type=trace96$type, x=trace96$x, y=trace96$y, marker=trace96$marker, error_y=trace96$error_y, textfont=trace96$textfont)
p <- add_trace(p, line=trace97$line, mode=trace97$mode, name=trace97$name, type=trace97$type, x=trace97$x, y=trace97$y, marker=trace97$marker, error_y=trace97$error_y, text=trace97$text, textfont=trace97$textfont)
p <- add_trace(p, line=trace98$line, mode=trace98$mode, name=trace98$name, type=trace98$type, x=trace98$x, y=trace98$y, marker=trace98$marker, error_y=trace98$error_y, textfont=trace98$textfont)
p <- add_trace(p, line=trace99$line, mode=trace99$mode, name=trace99$name, type=trace99$type, x=trace99$x, y=trace99$y, marker=trace99$marker, error_y=trace99$error_y, text=trace99$text, textfont=trace99$textfont)
p <- add_trace(p, line=trace100$line, mode=trace100$mode, name=trace100$name, type=trace100$type, x=trace100$x, y=trace100$y, marker=trace100$marker, error_y=trace100$error_y, textfont=trace100$textfont)
p <- add_trace(p, line=trace101$line, mode=trace101$mode, name=trace101$name, type=trace101$type, x=trace101$x, y=trace101$y, marker=trace101$marker, error_y=trace101$error_y, text=trace101$text, textfont=trace101$textfont)
p <- add_trace(p, line=trace102$line, mode=trace102$mode, name=trace102$name, type=trace102$type, x=trace102$x, y=trace102$y, marker=trace102$marker, error_y=trace102$error_y, textfont=trace102$textfont)
p <- add_trace(p, line=trace103$line, mode=trace103$mode, name=trace103$name, type=trace103$type, x=trace103$x, y=trace103$y, marker=trace103$marker, error_y=trace103$error_y, text=trace103$text, textfont=trace103$textfont)
p <- add_trace(p, line=trace104$line, mode=trace104$mode, name=trace104$name, type=trace104$type, x=trace104$x, y=trace104$y, marker=trace104$marker, error_y=trace104$error_y, textfont=trace104$textfont)
p <- add_trace(p, line=trace105$line, mode=trace105$mode, name=trace105$name, type=trace105$type, x=trace105$x, y=trace105$y, marker=trace105$marker, error_y=trace105$error_y, text=trace105$text, textfont=trace105$textfont)
p <- add_trace(p, line=trace106$line, mode=trace106$mode, name=trace106$name, type=trace106$type, x=trace106$x, y=trace106$y, marker=trace106$marker, error_y=trace106$error_y, textfont=trace106$textfont)
p <- add_trace(p, line=trace107$line, mode=trace107$mode, name=trace107$name, type=trace107$type, x=trace107$x, y=trace107$y, marker=trace107$marker, error_y=trace107$error_y, text=trace107$text, textfont=trace107$textfont)
p <- add_trace(p, line=trace108$line, mode=trace108$mode, name=trace108$name, type=trace108$type, x=trace108$x, y=trace108$y, marker=trace108$marker, error_y=trace108$error_y, textfont=trace108$textfont)
p <- add_trace(p, line=trace109$line, mode=trace109$mode, name=trace109$name, type=trace109$type, x=trace109$x, y=trace109$y, marker=trace109$marker, error_y=trace109$error_y, text=trace109$text, textfont=trace109$textfont)
p <- add_trace(p, line=trace110$line, mode=trace110$mode, name=trace110$name, type=trace110$type, x=trace110$x, y=trace110$y, marker=trace110$marker, error_y=trace110$error_y, textfont=trace110$textfont)
p <- add_trace(p, line=trace111$line, mode=trace111$mode, name=trace111$name, type=trace111$type, x=trace111$x, y=trace111$y, marker=trace111$marker, error_y=trace111$error_y, text=trace111$text, textfont=trace111$textfont)
p <- add_trace(p, line=trace112$line, mode=trace112$mode, name=trace112$name, type=trace112$type, x=trace112$x, y=trace112$y, marker=trace112$marker, error_y=trace112$error_y, textfont=trace112$textfont)
p <- add_trace(p, line=trace113$line, mode=trace113$mode, name=trace113$name, type=trace113$type, x=trace113$x, y=trace113$y, marker=trace113$marker, error_y=trace113$error_y, text=trace113$text, textfont=trace113$textfont)
p <- add_trace(p, line=trace114$line, mode=trace114$mode, name=trace114$name, type=trace114$type, x=trace114$x, y=trace114$y, marker=trace114$marker, error_y=trace114$error_y, textfont=trace114$textfont)
p <- add_trace(p, line=trace115$line, mode=trace115$mode, name=trace115$name, type=trace115$type, x=trace115$x, y=trace115$y, marker=trace115$marker, error_y=trace115$error_y, text=trace115$text, textfont=trace115$textfont)
p <- add_trace(p, line=trace116$line, mode=trace116$mode, name=trace116$name, type=trace116$type, x=trace116$x, y=trace116$y, marker=trace116$marker, error_y=trace116$error_y, textfont=trace116$textfont)
p <- add_trace(p, line=trace117$line, mode=trace117$mode, name=trace117$name, type=trace117$type, x=trace117$x, y=trace117$y, marker=trace117$marker, error_y=trace117$error_y, text=trace117$text, textfont=trace117$textfont)
p <- add_trace(p, line=trace118$line, mode=trace118$mode, name=trace118$name, type=trace118$type, x=trace118$x, y=trace118$y, marker=trace118$marker, error_y=trace118$error_y, textfont=trace118$textfont)
p <- add_trace(p, line=trace119$line, mode=trace119$mode, name=trace119$name, type=trace119$type, x=trace119$x, y=trace119$y, marker=trace119$marker, error_y=trace119$error_y, text=trace119$text, textfont=trace119$textfont)
p <- add_trace(p, line=trace120$line, mode=trace120$mode, name=trace120$name, type=trace120$type, x=trace120$x, y=trace120$y, marker=trace120$marker, error_y=trace120$error_y, textfont=trace120$textfont)
p <- add_trace(p, line=trace121$line, mode=trace121$mode, name=trace121$name, type=trace121$type, x=trace121$x, y=trace121$y, marker=trace121$marker, error_y=trace121$error_y, text=trace121$text, textfont=trace121$textfont)
p <- add_trace(p, line=trace122$line, mode=trace122$mode, name=trace122$name, type=trace122$type, x=trace122$x, y=trace122$y, marker=trace122$marker, error_y=trace122$error_y, textfont=trace122$textfont)
p <- add_trace(p, line=trace123$line, mode=trace123$mode, name=trace123$name, type=trace123$type, x=trace123$x, y=trace123$y, marker=trace123$marker, error_y=trace123$error_y, text=trace123$text, textfont=trace123$textfont)
p <- add_trace(p, line=trace124$line, mode=trace124$mode, name=trace124$name, type=trace124$type, x=trace124$x, y=trace124$y, marker=trace124$marker, error_y=trace124$error_y, textfont=trace124$textfont)
p <- add_trace(p, line=trace125$line, mode=trace125$mode, name=trace125$name, type=trace125$type, x=trace125$x, y=trace125$y, marker=trace125$marker, error_y=trace125$error_y, text=trace125$text, textfont=trace125$textfont)
p <- add_trace(p, line=trace126$line, mode=trace126$mode, name=trace126$name, type=trace126$type, x=trace126$x, y=trace126$y, marker=trace126$marker, error_y=trace126$error_y, textfont=trace126$textfont)
p <- add_trace(p, line=trace127$line, mode=trace127$mode, name=trace127$name, type=trace127$type, x=trace127$x, y=trace127$y, marker=trace127$marker, error_y=trace127$error_y, text=trace127$text, textfont=trace127$textfont)
p <- add_trace(p, line=trace128$line, mode=trace128$mode, name=trace128$name, type=trace128$type, x=trace128$x, y=trace128$y, marker=trace128$marker, error_y=trace128$error_y, textfont=trace128$textfont)
p <- add_trace(p, line=trace129$line, mode=trace129$mode, name=trace129$name, type=trace129$type, x=trace129$x, y=trace129$y, marker=trace129$marker, error_y=trace129$error_y, text=trace129$text, textfont=trace129$textfont)
p <- layout(p, font=layout$font, title=layout$title, width=layout$width, xaxis=layout$xaxis, yaxis=layout$yaxis, bargap=layout$bargap, boxgap=layout$boxgap, height=layout$height, legend=layout$legend, margin=layout$margin, barmode=layout$barmode, boxmode=layout$boxmode, autosize=layout$autosize, dragmode=layout$dragmode, hovermode=layout$hovermode, titlefont=layout$titlefont, separators=layout$separators, showlegend=layout$showlegend, annotations=layout$annotations, bargroupgap=layout$bargroupgap, boxgroupgap=layout$boxgroupgap, plot_bgcolor=layout$plot_bgcolor, paper_bgcolor=layout$paper_bgcolor)