# Get this figure: fig <- get_figure("jackp", 8612)
# Get this figure's data: data <- get_figure("jackp", 8612)$data
# Add data to this figure: p <- add_trace(p, x=c(4, 5), y=c(4, 5), kwargs=list(filename="d3-globe", fileopt="extend"))

# 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(
  line = list(
    color = "rgb(213,62,79)", 
    width = 2
  ), 
  mode = "lines", 
  type = "scattergeo", 
  lat = c(28.88868792, 28.68086614, 28.06371535, 27.05598738, 25.68830153, 24.00221423, 22.04895641, 19.8878768, 17.58463872, 15.2092249, 12.83381107, 10.530573, 8.36949339, 6.416235563, 4.730148269, 3.362462415, 2.354734444, 1.737583661, 1.529761881, 1.737583661, 2.354734444, 3.362462415, 4.730148269, 6.416235563, 8.36949339, 10.530573, 12.83381107, 15.2092249, 17.58463872, 19.8878768, 22.04895641, 24.00221423, 25.68830153, 27.05598738, 28.06371535, 28.68086614, 28.88868792, 28.68086614, 28.06371535, 27.05598738, 25.68830153, 24.00221423, 22.04895641, 19.8878768, 17.58463872, 15.2092249, 12.83381107, 10.530573, 8.36949339, 6.416235563, 4.730148269, 3.362462415, 2.354734444, 1.737583661, 1.529761881, 1.737583661, 2.354734444, 3.362462415, 4.730148269, 6.416235563, 8.36949339, 10.530573, 12.83381107, 15.2092249, 17.58463872, 19.8878768, 22.04895641, 24.00221423, 25.68830153, 27.05598738, 28.06371535, 28.68086614, 28.88868792, 28.68086614, 28.06371535, 27.05598738, 25.68830153, 24.00221423, 22.04895641, 19.8878768, 17.58463872, 15.2092249, 12.83381107, 10.530573, 8.36949339, 6.416235563, 4.730148269, 3.362462415, 2.354734444, 1.737583661, 1.529761881, 1.737583661, 2.354734444, 3.362462415, 4.730148269, 6.416235563, 8.36949339, 10.530573, 12.83381107, 15.2092249, 17.58463872, 19.8878768, 22.04895641, 24.00221423, 25.68830153, 27.05598738, 28.06371535, 28.68086614, 28.88868792, 28.68086614, 28.06371535, 27.05598738, 25.68830153, 24.00221423, 22.04895641, 19.8878768, 17.58463872, 15.2092249, 12.83381107, 10.530573, 8.36949339, 6.416235563, 4.730148269, 3.362462415, 2.354734444, 1.737583661, 1.529761881, 1.737583661, 2.354734444, 3.362462415, 4.730148269, 6.416235563, 8.36949339, 10.530573, 12.83381107, 15.2092249, 17.58463872, 19.8878768, 22.04895641, 24.00221423, 25.68830153, 27.05598738, 28.06371535, 28.68086614, 28.88868792), 
  lon = c(0.0, 2.5, 5.0, 7.5, 10.0, 12.5, 15.0, 17.5, 20.0, 22.5, 25.0, 27.5, 30.0, 32.5, 35.0, 37.5, 40.0, 42.5, 45.0, 47.5, 50.0, 52.5, 55.0, 57.5, 60.0, 62.5, 65.0, 67.5, 70.0, 72.5, 75.0, 77.5, 80.0, 82.5, 85.0, 87.5, 90.0, 92.5, 95.0, 97.5, 100.0, 102.5, 105.0, 107.5, 110.0, 112.5, 115.0, 117.5, 120.0, 122.5, 125.0, 127.5, 130.0, 132.5, 135.0, 137.5, 140.0, 142.5, 145.0, 147.5, 150.0, 152.5, 155.0, 157.5, 160.0, 162.5, 165.0, 167.5, 170.0, 172.5, 175.0, 177.5, 180.0, 182.5, 185.0, 187.5, 190.0, 192.5, 195.0, 197.5, 200.0, 202.5, 205.0, 207.5, 210.0, 212.5, 215.0, 217.5, 220.0, 222.5, 225.0, 227.5, 230.0, 232.5, 235.0, 237.5, 240.0, 242.5, 245.0, 247.5, 250.0, 252.5, 255.0, 257.5, 260.0, 262.5, 265.0, 267.5, 270.0, 272.5, 275.0, 277.5, 280.0, 282.5, 285.0, 287.5, 290.0, 292.5, 295.0, 297.5, 300.0, 302.5, 305.0, 307.5, 310.0, 312.5, 315.0, 317.5, 320.0, 322.5, 325.0, 327.5, 330.0, 332.5, 335.0, 337.5, 340.0, 342.5, 345.0, 347.5, 350.0, 352.5, 355.0, 357.5, 360.0)
)
trace2 <- list(
  line = list(
    color = "rgb(244,109,67)", 
    width = 2
  ), 
  mode = "lines", 
  type = "scattergeo", 
  lat = c(35.66353499, 35.40450219, 34.63527438, 33.37922416, 31.67451596, 29.572946500000004, 27.138370899999998, 24.44476249, 21.57396522, 18.6132068, 15.65244838, 12.78165111, 10.088042699999999, 7.653467094, 5.551897632, 3.84718944, 2.591139213, 1.8219114019999998, 1.562878605, 1.8219114019999998, 2.591139213, 3.84718944, 5.551897632, 7.653467094, 10.088042699999999, 12.78165111, 15.65244838, 18.6132068, 21.57396522, 24.44476249, 27.138370899999998, 29.572946500000004, 31.67451596, 33.37922416, 34.63527438, 35.40450219, 35.66353499, 35.40450219, 34.63527438, 33.37922416, 31.67451596, 29.572946500000004, 27.138370899999998, 24.44476249, 21.57396522, 18.6132068, 15.65244838, 12.78165111, 10.088042699999999, 7.653467094, 5.551897632, 3.84718944, 2.591139213, 1.8219114019999998, 1.562878605, 1.8219114019999998, 2.591139213, 3.84718944, 5.551897632, 7.653467094, 10.088042699999999, 12.78165111, 15.65244838, 18.6132068, 21.57396522, 24.44476249, 27.138370899999998, 29.572946500000004, 31.67451596, 33.37922416, 34.63527438, 35.40450219, 35.66353499, 35.40450219, 34.63527438, 33.37922416, 31.67451596, 29.572946500000004, 27.138370899999998, 24.44476249, 21.57396522, 18.6132068, 15.65244838, 12.78165111, 10.088042699999999, 7.653467094, 5.551897632, 3.84718944, 2.591139213, 1.8219114019999998, 1.562878605, 1.8219114019999998, 2.591139213, 3.84718944, 5.551897632, 7.653467094, 10.088042699999999, 12.78165111, 15.65244838, 18.6132068, 21.57396522, 24.44476249, 27.138370899999998, 29.572946500000004, 31.67451596, 33.37922416, 34.63527438, 35.40450219, 35.66353499, 35.40450219, 34.63527438, 33.37922416, 31.67451596, 29.572946500000004, 27.138370899999998, 24.44476249, 21.57396522, 18.6132068, 15.65244838, 12.78165111, 10.088042699999999, 7.653467094, 5.551897632, 3.84718944, 2.591139213, 1.8219114019999998, 1.562878605, 1.8219114019999998, 2.591139213, 3.84718944, 5.551897632, 7.653467094, 10.088042699999999, 12.78165111, 15.65244838, 18.6132068, 21.57396522, 24.44476249, 27.138370899999998, 29.572946500000004, 31.67451596, 33.37922416, 34.63527438, 35.40450219, 35.66353499), 
  lon = c(0.0, 2.5, 5.0, 7.5, 10.0, 12.5, 15.0, 17.5, 20.0, 22.5, 25.0, 27.5, 30.0, 32.5, 35.0, 37.5, 40.0, 42.5, 45.0, 47.5, 50.0, 52.5, 55.0, 57.5, 60.0, 62.5, 65.0, 67.5, 70.0, 72.5, 75.0, 77.5, 80.0, 82.5, 85.0, 87.5, 90.0, 92.5, 95.0, 97.5, 100.0, 102.5, 105.0, 107.5, 110.0, 112.5, 115.0, 117.5, 120.0, 122.5, 125.0, 127.5, 130.0, 132.5, 135.0, 137.5, 140.0, 142.5, 145.0, 147.5, 150.0, 152.5, 155.0, 157.5, 160.0, 162.5, 165.0, 167.5, 170.0, 172.5, 175.0, 177.5, 180.0, 182.5, 185.0, 187.5, 190.0, 192.5, 195.0, 197.5, 200.0, 202.5, 205.0, 207.5, 210.0, 212.5, 215.0, 217.5, 220.0, 222.5, 225.0, 227.5, 230.0, 232.5, 235.0, 237.5, 240.0, 242.5, 245.0, 247.5, 250.0, 252.5, 255.0, 257.5, 260.0, 262.5, 265.0, 267.5, 270.0, 272.5, 275.0, 277.5, 280.0, 282.5, 285.0, 287.5, 290.0, 292.5, 295.0, 297.5, 300.0, 302.5, 305.0, 307.5, 310.0, 312.5, 315.0, 317.5, 320.0, 322.5, 325.0, 327.5, 330.0, 332.5, 335.0, 337.5, 340.0, 342.5, 345.0, 347.5, 350.0, 352.5, 355.0, 357.5, 360.0)
)
trace3 <- list(
  line = list(
    color = "rgb(253,174,97)", 
    width = 2
  ), 
  mode = "lines", 
  type = "scattergeo", 
  lat = c(42.17084108, 41.86841711, 40.97033422, 39.50388019, 37.51361249, 35.06000439, 32.21760754, 29.07278673, 25.72109573, 22.264374, 18.80765227, 15.45596128, 12.31114047, 9.468743617000001, 7.01513552, 5.024867819, 3.558413789, 2.660330895, 2.357906931, 2.660330895, 3.558413789, 5.024867819, 7.01513552, 9.468743617000001, 12.31114047, 15.45596128, 18.80765227, 22.264374, 25.72109573, 29.07278673, 32.21760754, 35.06000439, 37.51361249, 39.50388019, 40.97033422, 41.86841711, 42.17084108, 41.86841711, 40.97033422, 39.50388019, 37.51361249, 35.06000439, 32.21760754, 29.07278673, 25.72109573, 22.264374, 18.80765227, 15.45596128, 12.31114047, 9.468743617000001, 7.01513552, 5.024867819, 3.558413789, 2.660330895, 2.357906931, 2.660330895, 3.558413789, 5.024867819, 7.01513552, 9.468743617000001, 12.31114047, 15.45596128, 18.80765227, 22.264374, 25.72109573, 29.07278673, 32.21760754, 35.06000439, 37.51361249, 39.50388019, 40.97033422, 41.86841711, 42.17084108, 41.86841711, 40.97033422, 39.50388019, 37.51361249, 35.06000439, 32.21760754, 29.07278673, 25.72109573, 22.264374, 18.80765227, 15.45596128, 12.31114047, 9.468743617000001, 7.01513552, 5.024867819, 3.558413789, 2.660330895, 2.357906931, 2.660330895, 3.558413789, 5.024867819, 7.01513552, 9.468743617000001, 12.31114047, 15.45596128, 18.80765227, 22.264374, 25.72109573, 29.07278673, 32.21760754, 35.06000439, 37.51361249, 39.50388019, 40.97033422, 41.86841711, 42.17084108, 41.86841711, 40.97033422, 39.50388019, 37.51361249, 35.06000439, 32.21760754, 29.07278673, 25.72109573, 22.264374, 18.80765227, 15.45596128, 12.31114047, 9.468743617000001, 7.01513552, 5.024867819, 3.558413789, 2.660330895, 2.357906931, 2.660330895, 3.558413789, 5.024867819, 7.01513552, 9.468743617000001, 12.31114047, 15.45596128, 18.80765227, 22.264374, 25.72109573, 29.07278673, 32.21760754, 35.06000439, 37.51361249, 39.50388019, 40.97033422, 41.86841711, 42.17084108), 
  lon = c(0.0, 2.5, 5.0, 7.5, 10.0, 12.5, 15.0, 17.5, 20.0, 22.5, 25.0, 27.5, 30.0, 32.5, 35.0, 37.5, 40.0, 42.5, 45.0, 47.5, 50.0, 52.5, 55.0, 57.5, 60.0, 62.5, 65.0, 67.5, 70.0, 72.5, 75.0, 77.5, 80.0, 82.5, 85.0, 87.5, 90.0, 92.5, 95.0, 97.5, 100.0, 102.5, 105.0, 107.5, 110.0, 112.5, 115.0, 117.5, 120.0, 122.5, 125.0, 127.5, 130.0, 132.5, 135.0, 137.5, 140.0, 142.5, 145.0, 147.5, 150.0, 152.5, 155.0, 157.5, 160.0, 162.5, 165.0, 167.5, 170.0, 172.5, 175.0, 177.5, 180.0, 182.5, 185.0, 187.5, 190.0, 192.5, 195.0, 197.5, 200.0, 202.5, 205.0, 207.5, 210.0, 212.5, 215.0, 217.5, 220.0, 222.5, 225.0, 227.5, 230.0, 232.5, 235.0, 237.5, 240.0, 242.5, 245.0, 247.5, 250.0, 252.5, 255.0, 257.5, 260.0, 262.5, 265.0, 267.5, 270.0, 272.5, 275.0, 277.5, 280.0, 282.5, 285.0, 287.5, 290.0, 292.5, 295.0, 297.5, 300.0, 302.5, 305.0, 307.5, 310.0, 312.5, 315.0, 317.5, 320.0, 322.5, 325.0, 327.5, 330.0, 332.5, 335.0, 337.5, 340.0, 342.5, 345.0, 347.5, 350.0, 352.5, 355.0, 357.5, 360.0)
)
trace4 <- list(
  line = list(
    color = "rgb(254,224,139)", 
    width = 2
  ), 
  mode = "lines", 
  type = "scattergeo", 
  lat = c(47.91202142, 47.58046432, 46.5958672, 44.98814655, 42.80615215, 40.1161828, 36.99997184, 33.55220379, 29.87763731, 26.08792226, 22.29820721, 18.62364074, 15.17587268, 12.05966173, 9.369692375, 7.187697975, 5.579977327000001, 4.595380207, 4.263823103, 4.595380207, 5.579977327000001, 7.187697975, 9.369692375, 12.05966173, 15.17587268, 18.62364074, 22.29820721, 26.08792226, 29.87763731, 33.55220379, 36.99997184, 40.1161828, 42.80615215, 44.98814655, 46.5958672, 47.58046432, 47.91202142, 47.58046432, 46.5958672, 44.98814655, 42.80615215, 40.1161828, 36.99997184, 33.55220379, 29.87763731, 26.08792226, 22.29820721, 18.62364074, 15.17587268, 12.05966173, 9.369692375, 7.187697975, 5.579977327000001, 4.595380207, 4.263823103, 4.595380207, 5.579977327000001, 7.187697975, 9.369692375, 12.05966173, 15.17587268, 18.62364074, 22.29820721, 26.08792226, 29.87763731, 33.55220379, 36.99997184, 40.1161828, 42.80615215, 44.98814655, 46.5958672, 47.58046432, 47.91202142, 47.58046432, 46.5958672, 44.98814655, 42.80615215, 40.1161828, 36.99997184, 33.55220379, 29.87763731, 26.08792226, 22.29820721, 18.62364074, 15.17587268, 12.05966173, 9.369692375, 7.187697975, 5.579977327000001, 4.595380207, 4.263823103, 4.595380207, 5.579977327000001, 7.187697975, 9.369692375, 12.05966173, 15.17587268, 18.62364074, 22.29820721, 26.08792226, 29.87763731, 33.55220379, 36.99997184, 40.1161828, 42.80615215, 44.98814655, 46.5958672, 47.58046432, 47.91202142, 47.58046432, 46.5958672, 44.98814655, 42.80615215, 40.1161828, 36.99997184, 33.55220379, 29.87763731, 26.08792226, 22.29820721, 18.62364074, 15.17587268, 12.05966173, 9.369692375, 7.187697975, 5.579977327000001, 4.595380207, 4.263823103, 4.595380207, 5.579977327000001, 7.187697975, 9.369692375, 12.05966173, 15.17587268, 18.62364074, 22.29820721, 26.08792226, 29.87763731, 33.55220379, 36.99997184, 40.1161828, 42.80615215, 44.98814655, 46.5958672, 47.58046432, 47.91202142), 
  lon = c(0.0, 2.5, 5.0, 7.5, 10.0, 12.5, 15.0, 17.5, 20.0, 22.5, 25.0, 27.5, 30.0, 32.5, 35.0, 37.5, 40.0, 42.5, 45.0, 47.5, 50.0, 52.5, 55.0, 57.5, 60.0, 62.5, 65.0, 67.5, 70.0, 72.5, 75.0, 77.5, 80.0, 82.5, 85.0, 87.5, 90.0, 92.5, 95.0, 97.5, 100.0, 102.5, 105.0, 107.5, 110.0, 112.5, 115.0, 117.5, 120.0, 122.5, 125.0, 127.5, 130.0, 132.5, 135.0, 137.5, 140.0, 142.5, 145.0, 147.5, 150.0, 152.5, 155.0, 157.5, 160.0, 162.5, 165.0, 167.5, 170.0, 172.5, 175.0, 177.5, 180.0, 182.5, 185.0, 187.5, 190.0, 192.5, 195.0, 197.5, 200.0, 202.5, 205.0, 207.5, 210.0, 212.5, 215.0, 217.5, 220.0, 222.5, 225.0, 227.5, 230.0, 232.5, 235.0, 237.5, 240.0, 242.5, 245.0, 247.5, 250.0, 252.5, 255.0, 257.5, 260.0, 262.5, 265.0, 267.5, 270.0, 272.5, 275.0, 277.5, 280.0, 282.5, 285.0, 287.5, 290.0, 292.5, 295.0, 297.5, 300.0, 302.5, 305.0, 307.5, 310.0, 312.5, 315.0, 317.5, 320.0, 322.5, 325.0, 327.5, 330.0, 332.5, 335.0, 337.5, 340.0, 342.5, 345.0, 347.5, 350.0, 352.5, 355.0, 357.5, 360.0)
)
trace5 <- list(
  line = list(
    color = "rgb(255,255,191)", 
    width = 2
  ), 
  mode = "lines", 
  type = "scattergeo", 
  lat = c(52.5, 52.15817444, 51.14308397, 49.48557159, 47.23599997, 44.46272122, 41.25, 37.69545322, 33.907084000000005, 30.0, 26.092916, 22.30454678, 18.75, 15.53727878, 12.76400003, 10.51442841, 8.856916032, 7.841825557000001, 7.5, 7.841825557000001, 8.856916032, 10.51442841, 12.76400003, 15.53727878, 18.75, 22.30454678, 26.092916, 30.0, 33.907084000000005, 37.69545322, 41.25, 44.46272122, 47.23599997, 49.48557159, 51.14308397, 52.15817444, 52.5, 52.15817444, 51.14308397, 49.48557159, 47.23599997, 44.46272122, 41.25, 37.69545322, 33.907084000000005, 30.0, 26.092916, 22.30454678, 18.75, 15.53727878, 12.76400003, 10.51442841, 8.856916032, 7.841825557000001, 7.5, 7.841825557000001, 8.856916032, 10.51442841, 12.76400003, 15.53727878, 18.75, 22.30454678, 26.092916, 30.0, 33.907084000000005, 37.69545322, 41.25, 44.46272122, 47.23599997, 49.48557159, 51.14308397, 52.15817444, 52.5, 52.15817444, 51.14308397, 49.48557159, 47.23599997, 44.46272122, 41.25, 37.69545322, 33.907084000000005, 30.0, 26.092916, 22.30454678, 18.75, 15.53727878, 12.76400003, 10.51442841, 8.856916032, 7.841825557000001, 7.5, 7.841825557000001, 8.856916032, 10.51442841, 12.76400003, 15.53727878, 18.75, 22.30454678, 26.092916, 30.0, 33.907084000000005, 37.69545322, 41.25, 44.46272122, 47.23599997, 49.48557159, 51.14308397, 52.15817444, 52.5, 52.15817444, 51.14308397, 49.48557159, 47.23599997, 44.46272122, 41.25, 37.69545322, 33.907084000000005, 30.0, 26.092916, 22.30454678, 18.75, 15.53727878, 12.76400003, 10.51442841, 8.856916032, 7.841825557000001, 7.5, 7.841825557000001, 8.856916032, 10.51442841, 12.76400003, 15.53727878, 18.75, 22.30454678, 26.092916, 30.0, 33.907084000000005, 37.69545322, 41.25, 44.46272122, 47.23599997, 49.48557159, 51.14308397, 52.15817444, 52.5), 
  lon = c(0.0, 2.5, 5.0, 7.5, 10.0, 12.5, 15.0, 17.5, 20.0, 22.5, 25.0, 27.5, 30.0, 32.5, 35.0, 37.5, 40.0, 42.5, 45.0, 47.5, 50.0, 52.5, 55.0, 57.5, 60.0, 62.5, 65.0, 67.5, 70.0, 72.5, 75.0, 77.5, 80.0, 82.5, 85.0, 87.5, 90.0, 92.5, 95.0, 97.5, 100.0, 102.5, 105.0, 107.5, 110.0, 112.5, 115.0, 117.5, 120.0, 122.5, 125.0, 127.5, 130.0, 132.5, 135.0, 137.5, 140.0, 142.5, 145.0, 147.5, 150.0, 152.5, 155.0, 157.5, 160.0, 162.5, 165.0, 167.5, 170.0, 172.5, 175.0, 177.5, 180.0, 182.5, 185.0, 187.5, 190.0, 192.5, 195.0, 197.5, 200.0, 202.5, 205.0, 207.5, 210.0, 212.5, 215.0, 217.5, 220.0, 222.5, 225.0, 227.5, 230.0, 232.5, 235.0, 237.5, 240.0, 242.5, 245.0, 247.5, 250.0, 252.5, 255.0, 257.5, 260.0, 262.5, 265.0, 267.5, 270.0, 272.5, 275.0, 277.5, 280.0, 282.5, 285.0, 287.5, 290.0, 292.5, 295.0, 297.5, 300.0, 302.5, 305.0, 307.5, 310.0, 312.5, 315.0, 317.5, 320.0, 322.5, 325.0, 327.5, 330.0, 332.5, 335.0, 337.5, 340.0, 342.5, 345.0, 347.5, 350.0, 352.5, 355.0, 357.5, 360.0)
)
trace6 <- list(
  line = list(
    color = "rgb(230,245,152)", 
    width = 2
  ), 
  mode = "lines", 
  type = "scattergeo", 
  lat = c(55.7361769, 55.40461979, 54.42002267, 52.81230202, 50.63030762, 47.94033827, 44.82412732, 41.37635926, 37.70179279, 33.91207774, 30.12236269, 26.44779621, 23.00002816, 19.8838172, 17.19384785, 15.01185345, 13.404132800000001, 12.41953568, 12.08797858, 12.41953568, 13.404132800000001, 15.01185345, 17.19384785, 19.8838172, 23.00002816, 26.44779621, 30.12236269, 33.91207774, 37.70179279, 41.37635926, 44.82412732, 47.94033827, 50.63030762, 52.81230202, 54.42002267, 55.40461979, 55.7361769, 55.40461979, 54.42002267, 52.81230202, 50.63030762, 47.94033827, 44.82412732, 41.37635926, 37.70179279, 33.91207774, 30.12236269, 26.44779621, 23.00002816, 19.8838172, 17.19384785, 15.01185345, 13.404132800000001, 12.41953568, 12.08797858, 12.41953568, 13.404132800000001, 15.01185345, 17.19384785, 19.8838172, 23.00002816, 26.44779621, 30.12236269, 33.91207774, 37.70179279, 41.37635926, 44.82412732, 47.94033827, 50.63030762, 52.81230202, 54.42002267, 55.40461979, 55.7361769, 55.40461979, 54.42002267, 52.81230202, 50.63030762, 47.94033827, 44.82412732, 41.37635926, 37.70179279, 33.91207774, 30.12236269, 26.44779621, 23.00002816, 19.8838172, 17.19384785, 15.01185345, 13.404132800000001, 12.41953568, 12.08797858, 12.41953568, 13.404132800000001, 15.01185345, 17.19384785, 19.8838172, 23.00002816, 26.44779621, 30.12236269, 33.91207774, 37.70179279, 41.37635926, 44.82412732, 47.94033827, 50.63030762, 52.81230202, 54.42002267, 55.40461979, 55.7361769, 55.40461979, 54.42002267, 52.81230202, 50.63030762, 47.94033827, 44.82412732, 41.37635926, 37.70179279, 33.91207774, 30.12236269, 26.44779621, 23.00002816, 19.8838172, 17.19384785, 15.01185345, 13.404132800000001, 12.41953568, 12.08797858, 12.41953568, 13.404132800000001, 15.01185345, 17.19384785, 19.8838172, 23.00002816, 26.44779621, 30.12236269, 33.91207774, 37.70179279, 41.37635926, 44.82412732, 47.94033827, 50.63030762, 52.81230202, 54.42002267, 55.40461979, 55.7361769), 
  lon = c(0.0, 2.5, 5.0, 7.5, 10.0, 12.5, 15.0, 17.5, 20.0, 22.5, 25.0, 27.5, 30.0, 32.5, 35.0, 37.5, 40.0, 42.5, 45.0, 47.5, 50.0, 52.5, 55.0, 57.5, 60.0, 62.5, 65.0, 67.5, 70.0, 72.5, 75.0, 77.5, 80.0, 82.5, 85.0, 87.5, 90.0, 92.5, 95.0, 97.5, 100.0, 102.5, 105.0, 107.5, 110.0, 112.5, 115.0, 117.5, 120.0, 122.5, 125.0, 127.5, 130.0, 132.5, 135.0, 137.5, 140.0, 142.5, 145.0, 147.5, 150.0, 152.5, 155.0, 157.5, 160.0, 162.5, 165.0, 167.5, 170.0, 172.5, 175.0, 177.5, 180.0, 182.5, 185.0, 187.5, 190.0, 192.5, 195.0, 197.5, 200.0, 202.5, 205.0, 207.5, 210.0, 212.5, 215.0, 217.5, 220.0, 222.5, 225.0, 227.5, 230.0, 232.5, 235.0, 237.5, 240.0, 242.5, 245.0, 247.5, 250.0, 252.5, 255.0, 257.5, 260.0, 262.5, 265.0, 267.5, 270.0, 272.5, 275.0, 277.5, 280.0, 282.5, 285.0, 287.5, 290.0, 292.5, 295.0, 297.5, 300.0, 302.5, 305.0, 307.5, 310.0, 312.5, 315.0, 317.5, 320.0, 322.5, 325.0, 327.5, 330.0, 332.5, 335.0, 337.5, 340.0, 342.5, 345.0, 347.5, 350.0, 352.5, 355.0, 357.5, 360.0)
)
trace7 <- list(
  line = list(
    color = "rgb(171,221,164)", 
    width = 2
  ), 
  mode = "lines", 
  type = "scattergeo", 
  lat = c(57.64209307, 57.3396691, 56.44158621, 54.97513218, 52.98486448, 50.53125638, 47.68885953, 44.54403872, 41.19234773, 37.735626, 34.27890427, 30.92721327, 27.78239246, 24.93999561, 22.48638751, 20.49611981, 19.02966578, 18.13158289, 17.82915892, 18.13158289, 19.02966578, 20.49611981, 22.48638751, 24.93999561, 27.78239246, 30.92721327, 34.27890427, 37.735626, 41.19234773, 44.54403872, 47.68885953, 50.53125638, 52.98486448, 54.97513218, 56.44158621, 57.3396691, 57.64209307, 57.3396691, 56.44158621, 54.97513218, 52.98486448, 50.53125638, 47.68885953, 44.54403872, 41.19234773, 37.735626, 34.27890427, 30.92721327, 27.78239246, 24.93999561, 22.48638751, 20.49611981, 19.02966578, 18.13158289, 17.82915892, 18.13158289, 19.02966578, 20.49611981, 22.48638751, 24.93999561, 27.78239246, 30.92721327, 34.27890427, 37.735626, 41.19234773, 44.54403872, 47.68885953, 50.53125638, 52.98486448, 54.97513218, 56.44158621, 57.3396691, 57.64209307, 57.3396691, 56.44158621, 54.97513218, 52.98486448, 50.53125638, 47.68885953, 44.54403872, 41.19234773, 37.735626, 34.27890427, 30.92721327, 27.78239246, 24.93999561, 22.48638751, 20.49611981, 19.02966578, 18.13158289, 17.82915892, 18.13158289, 19.02966578, 20.49611981, 22.48638751, 24.93999561, 27.78239246, 30.92721327, 34.27890427, 37.735626, 41.19234773, 44.54403872, 47.68885953, 50.53125638, 52.98486448, 54.97513218, 56.44158621, 57.3396691, 57.64209307, 57.3396691, 56.44158621, 54.97513218, 52.98486448, 50.53125638, 47.68885953, 44.54403872, 41.19234773, 37.735626, 34.27890427, 30.92721327, 27.78239246, 24.93999561, 22.48638751, 20.49611981, 19.02966578, 18.13158289, 17.82915892, 18.13158289, 19.02966578, 20.49611981, 22.48638751, 24.93999561, 27.78239246, 30.92721327, 34.27890427, 37.735626, 41.19234773, 44.54403872, 47.68885953, 50.53125638, 52.98486448, 54.97513218, 56.44158621, 57.3396691, 57.64209307), 
  lon = c(0.0, 2.5, 5.0, 7.5, 10.0, 12.5, 15.0, 17.5, 20.0, 22.5, 25.0, 27.5, 30.0, 32.5, 35.0, 37.5, 40.0, 42.5, 45.0, 47.5, 50.0, 52.5, 55.0, 57.5, 60.0, 62.5, 65.0, 67.5, 70.0, 72.5, 75.0, 77.5, 80.0, 82.5, 85.0, 87.5, 90.0, 92.5, 95.0, 97.5, 100.0, 102.5, 105.0, 107.5, 110.0, 112.5, 115.0, 117.5, 120.0, 122.5, 125.0, 127.5, 130.0, 132.5, 135.0, 137.5, 140.0, 142.5, 145.0, 147.5, 150.0, 152.5, 155.0, 157.5, 160.0, 162.5, 165.0, 167.5, 170.0, 172.5, 175.0, 177.5, 180.0, 182.5, 185.0, 187.5, 190.0, 192.5, 195.0, 197.5, 200.0, 202.5, 205.0, 207.5, 210.0, 212.5, 215.0, 217.5, 220.0, 222.5, 225.0, 227.5, 230.0, 232.5, 235.0, 237.5, 240.0, 242.5, 245.0, 247.5, 250.0, 252.5, 255.0, 257.5, 260.0, 262.5, 265.0, 267.5, 270.0, 272.5, 275.0, 277.5, 280.0, 282.5, 285.0, 287.5, 290.0, 292.5, 295.0, 297.5, 300.0, 302.5, 305.0, 307.5, 310.0, 312.5, 315.0, 317.5, 320.0, 322.5, 325.0, 327.5, 330.0, 332.5, 335.0, 337.5, 340.0, 342.5, 345.0, 347.5, 350.0, 352.5, 355.0, 357.5, 360.0)
)
trace8 <- list(
  line = list(
    color = "rgb(102,194,165)", 
    width = 2
  ), 
  mode = "lines", 
  type = "scattergeo", 
  lat = c(58.4371214, 58.1780886, 57.40886079, 56.15281056, 54.44810237, 52.34653291, 49.9119573, 47.21834889, 44.34755162, 41.3867932, 38.42603478, 35.55523751, 32.8616291, 30.427053499999996, 28.32548404, 26.62077584, 25.36472562, 24.59549781, 24.33646501, 24.59549781, 25.36472562, 26.62077584, 28.32548404, 30.427053499999996, 32.8616291, 35.55523751, 38.42603478, 41.3867932, 44.34755162, 47.21834889, 49.9119573, 52.34653291, 54.44810237, 56.15281056, 57.40886079, 58.1780886, 58.4371214, 58.1780886, 57.40886079, 56.15281056, 54.44810237, 52.34653291, 49.9119573, 47.21834889, 44.34755162, 41.3867932, 38.42603478, 35.55523751, 32.8616291, 30.427053499999996, 28.32548404, 26.62077584, 25.36472562, 24.59549781, 24.33646501, 24.59549781, 25.36472562, 26.62077584, 28.32548404, 30.427053499999996, 32.8616291, 35.55523751, 38.42603478, 41.3867932, 44.34755162, 47.21834889, 49.9119573, 52.34653291, 54.44810237, 56.15281056, 57.40886079, 58.1780886, 58.4371214, 58.1780886, 57.40886079, 56.15281056, 54.44810237, 52.34653291, 49.9119573, 47.21834889, 44.34755162, 41.3867932, 38.42603478, 35.55523751, 32.8616291, 30.427053499999996, 28.32548404, 26.62077584, 25.36472562, 24.59549781, 24.33646501, 24.59549781, 25.36472562, 26.62077584, 28.32548404, 30.427053499999996, 32.8616291, 35.55523751, 38.42603478, 41.3867932, 44.34755162, 47.21834889, 49.9119573, 52.34653291, 54.44810237, 56.15281056, 57.40886079, 58.1780886, 58.4371214, 58.1780886, 57.40886079, 56.15281056, 54.44810237, 52.34653291, 49.9119573, 47.21834889, 44.34755162, 41.3867932, 38.42603478, 35.55523751, 32.8616291, 30.427053499999996, 28.32548404, 26.62077584, 25.36472562, 24.59549781, 24.33646501, 24.59549781, 25.36472562, 26.62077584, 28.32548404, 30.427053499999996, 32.8616291, 35.55523751, 38.42603478, 41.3867932, 44.34755162, 47.21834889, 49.9119573, 52.34653291, 54.44810237, 56.15281056, 57.40886079, 58.1780886, 58.4371214), 
  lon = c(0.0, 2.5, 5.0, 7.5, 10.0, 12.5, 15.0, 17.5, 20.0, 22.5, 25.0, 27.5, 30.0, 32.5, 35.0, 37.5, 40.0, 42.5, 45.0, 47.5, 50.0, 52.5, 55.0, 57.5, 60.0, 62.5, 65.0, 67.5, 70.0, 72.5, 75.0, 77.5, 80.0, 82.5, 85.0, 87.5, 90.0, 92.5, 95.0, 97.5, 100.0, 102.5, 105.0, 107.5, 110.0, 112.5, 115.0, 117.5, 120.0, 122.5, 125.0, 127.5, 130.0, 132.5, 135.0, 137.5, 140.0, 142.5, 145.0, 147.5, 150.0, 152.5, 155.0, 157.5, 160.0, 162.5, 165.0, 167.5, 170.0, 172.5, 175.0, 177.5, 180.0, 182.5, 185.0, 187.5, 190.0, 192.5, 195.0, 197.5, 200.0, 202.5, 205.0, 207.5, 210.0, 212.5, 215.0, 217.5, 220.0, 222.5, 225.0, 227.5, 230.0, 232.5, 235.0, 237.5, 240.0, 242.5, 245.0, 247.5, 250.0, 252.5, 255.0, 257.5, 260.0, 262.5, 265.0, 267.5, 270.0, 272.5, 275.0, 277.5, 280.0, 282.5, 285.0, 287.5, 290.0, 292.5, 295.0, 297.5, 300.0, 302.5, 305.0, 307.5, 310.0, 312.5, 315.0, 317.5, 320.0, 322.5, 325.0, 327.5, 330.0, 332.5, 335.0, 337.5, 340.0, 342.5, 345.0, 347.5, 350.0, 352.5, 355.0, 357.5, 360.0)
)
trace9 <- list(
  line = list(
    color = "rgb(50,136,189)", 
    width = 2
  ), 
  mode = "lines", 
  type = "scattergeo", 
  lat = c(58.47023812, 58.26241634, 57.64526556, 56.63753759, 55.26985173, 53.58376444, 51.63050661, 49.469427, 47.16618893, 44.7907751, 42.41536128, 40.1121232, 37.95104359, 35.99778577, 34.31169847, 32.94401262, 31.93628465, 31.31913386, 31.11131208, 31.31913386, 31.93628465, 32.94401262, 34.31169847, 35.99778577, 37.95104359, 40.1121232, 42.41536128, 44.7907751, 47.16618893, 49.469427, 51.63050661, 53.58376444, 55.26985173, 56.63753759, 57.64526556, 58.26241634, 58.47023812, 58.26241634, 57.64526556, 56.63753759, 55.26985173, 53.58376444, 51.63050661, 49.469427, 47.16618893, 44.7907751, 42.41536128, 40.1121232, 37.95104359, 35.99778577, 34.31169847, 32.94401262, 31.93628465, 31.31913386, 31.11131208, 31.31913386, 31.93628465, 32.94401262, 34.31169847, 35.99778577, 37.95104359, 40.1121232, 42.41536128, 44.7907751, 47.16618893, 49.469427, 51.63050661, 53.58376444, 55.26985173, 56.63753759, 57.64526556, 58.26241634, 58.47023812, 58.26241634, 57.64526556, 56.63753759, 55.26985173, 53.58376444, 51.63050661, 49.469427, 47.16618893, 44.7907751, 42.41536128, 40.1121232, 37.95104359, 35.99778577, 34.31169847, 32.94401262, 31.93628465, 31.31913386, 31.11131208, 31.31913386, 31.93628465, 32.94401262, 34.31169847, 35.99778577, 37.95104359, 40.1121232, 42.41536128, 44.7907751, 47.16618893, 49.469427, 51.63050661, 53.58376444, 55.26985173, 56.63753759, 57.64526556, 58.26241634, 58.47023812, 58.26241634, 57.64526556, 56.63753759, 55.26985173, 53.58376444, 51.63050661, 49.469427, 47.16618893, 44.7907751, 42.41536128, 40.1121232, 37.95104359, 35.99778577, 34.31169847, 32.94401262, 31.93628465, 31.31913386, 31.11131208, 31.31913386, 31.93628465, 32.94401262, 34.31169847, 35.99778577, 37.95104359, 40.1121232, 42.41536128, 44.7907751, 47.16618893, 49.469427, 51.63050661, 53.58376444, 55.26985173, 56.63753759, 57.64526556, 58.26241634, 58.47023812), 
  lon = c(0.0, 2.5, 5.0, 7.5, 10.0, 12.5, 15.0, 17.5, 20.0, 22.5, 25.0, 27.5, 30.0, 32.5, 35.0, 37.5, 40.0, 42.5, 45.0, 47.5, 50.0, 52.5, 55.0, 57.5, 60.0, 62.5, 65.0, 67.5, 70.0, 72.5, 75.0, 77.5, 80.0, 82.5, 85.0, 87.5, 90.0, 92.5, 95.0, 97.5, 100.0, 102.5, 105.0, 107.5, 110.0, 112.5, 115.0, 117.5, 120.0, 122.5, 125.0, 127.5, 130.0, 132.5, 135.0, 137.5, 140.0, 142.5, 145.0, 147.5, 150.0, 152.5, 155.0, 157.5, 160.0, 162.5, 165.0, 167.5, 170.0, 172.5, 175.0, 177.5, 180.0, 182.5, 185.0, 187.5, 190.0, 192.5, 195.0, 197.5, 200.0, 202.5, 205.0, 207.5, 210.0, 212.5, 215.0, 217.5, 220.0, 222.5, 225.0, 227.5, 230.0, 232.5, 235.0, 237.5, 240.0, 242.5, 245.0, 247.5, 250.0, 252.5, 255.0, 257.5, 260.0, 262.5, 265.0, 267.5, 270.0, 272.5, 275.0, 277.5, 280.0, 282.5, 285.0, 287.5, 290.0, 292.5, 295.0, 297.5, 300.0, 302.5, 305.0, 307.5, 310.0, 312.5, 315.0, 317.5, 320.0, 322.5, 325.0, 327.5, 330.0, 332.5, 335.0, 337.5, 340.0, 342.5, 345.0, 347.5, 350.0, 352.5, 355.0, 357.5, 360.0)
)
trace10 <- list(
  line = list(
    color = "rgb(213,62,79)", 
    width = 2
  ), 
  mode = "lines", 
  type = "scattergeo", 
  lat = c(-28.88868792, -28.68086614, -28.06371535, -27.05598738, -25.68830153, -24.00221423, -22.04895641, -19.8878768, -17.58463872, -15.2092249, -12.83381107, -10.530573, -8.36949339, -6.416235563, -4.730148269, -3.362462415, -2.354734444, -1.737583661, -1.529761881, -1.737583661, -2.354734444, -3.362462415, -4.730148269, -6.416235563, -8.36949339, -10.530573, -12.83381107, -15.2092249, -17.58463872, -19.8878768, -22.04895641, -24.00221423, -25.68830153, -27.05598738, -28.06371535, -28.68086614, -28.88868792, -28.68086614, -28.06371535, -27.05598738, -25.68830153, -24.00221423, -22.04895641, -19.8878768, -17.58463872, -15.2092249, -12.83381107, -10.530573, -8.36949339, -6.416235563, -4.730148269, -3.362462415, -2.354734444, -1.737583661, -1.529761881, -1.737583661, -2.354734444, -3.362462415, -4.730148269, -6.416235563, -8.36949339, -10.530573, -12.83381107, -15.2092249, -17.58463872, -19.8878768, -22.04895641, -24.00221423, -25.68830153, -27.05598738, -28.06371535, -28.68086614, -28.88868792, -28.68086614, -28.06371535, -27.05598738, -25.68830153, -24.00221423, -22.04895641, -19.8878768, -17.58463872, -15.2092249, -12.83381107, -10.530573, -8.36949339, -6.416235563, -4.730148269, -3.362462415, -2.354734444, -1.737583661, -1.529761881, -1.737583661, -2.354734444, -3.362462415, -4.730148269, -6.416235563, -8.36949339, -10.530573, -12.83381107, -15.2092249, -17.58463872, -19.8878768, -22.04895641, -24.00221423, -25.68830153, -27.05598738, -28.06371535, -28.68086614, -28.88868792, -28.68086614, -28.06371535, -27.05598738, -25.68830153, -24.00221423, -22.04895641, -19.8878768, -17.58463872, -15.2092249, -12.83381107, -10.530573, -8.36949339, -6.416235563, -4.730148269, -3.362462415, -2.354734444, -1.737583661, -1.529761881, -1.737583661, -2.354734444, -3.362462415, -4.730148269, -6.416235563, -8.36949339, -10.530573, -12.83381107, -15.2092249, -17.58463872, -19.8878768, -22.04895641, -24.00221423, -25.68830153, -27.05598738, -28.06371535, -28.68086614, -28.88868792), 
  lon = c(0.0, 2.5, 5.0, 7.5, 10.0, 12.5, 15.0, 17.5, 20.0, 22.5, 25.0, 27.5, 30.0, 32.5, 35.0, 37.5, 40.0, 42.5, 45.0, 47.5, 50.0, 52.5, 55.0, 57.5, 60.0, 62.5, 65.0, 67.5, 70.0, 72.5, 75.0, 77.5, 80.0, 82.5, 85.0, 87.5, 90.0, 92.5, 95.0, 97.5, 100.0, 102.5, 105.0, 107.5, 110.0, 112.5, 115.0, 117.5, 120.0, 122.5, 125.0, 127.5, 130.0, 132.5, 135.0, 137.5, 140.0, 142.5, 145.0, 147.5, 150.0, 152.5, 155.0, 157.5, 160.0, 162.5, 165.0, 167.5, 170.0, 172.5, 175.0, 177.5, 180.0, 182.5, 185.0, 187.5, 190.0, 192.5, 195.0, 197.5, 200.0, 202.5, 205.0, 207.5, 210.0, 212.5, 215.0, 217.5, 220.0, 222.5, 225.0, 227.5, 230.0, 232.5, 235.0, 237.5, 240.0, 242.5, 245.0, 247.5, 250.0, 252.5, 255.0, 257.5, 260.0, 262.5, 265.0, 267.5, 270.0, 272.5, 275.0, 277.5, 280.0, 282.5, 285.0, 287.5, 290.0, 292.5, 295.0, 297.5, 300.0, 302.5, 305.0, 307.5, 310.0, 312.5, 315.0, 317.5, 320.0, 322.5, 325.0, 327.5, 330.0, 332.5, 335.0, 337.5, 340.0, 342.5, 345.0, 347.5, 350.0, 352.5, 355.0, 357.5, 360.0)
)
trace11 <- list(
  line = list(
    color = "rgb(244,109,67)", 
    width = 2
  ), 
  mode = "lines", 
  type = "scattergeo", 
  lat = c(-35.66353499, -35.40450219, -34.63527438, -33.37922416, -31.67451596, -29.572946500000004, -27.138370899999998, -24.44476249, -21.57396522, -18.6132068, -15.65244838, -12.78165111, -10.088042699999999, -7.653467094, -5.551897632, -3.84718944, -2.591139213, -1.8219114019999998, -1.562878605, -1.8219114019999998, -2.591139213, -3.84718944, -5.551897632, -7.653467094, -10.088042699999999, -12.78165111, -15.65244838, -18.6132068, -21.57396522, -24.44476249, -27.138370899999998, -29.572946500000004, -31.67451596, -33.37922416, -34.63527438, -35.40450219, -35.66353499, -35.40450219, -34.63527438, -33.37922416, -31.67451596, -29.572946500000004, -27.138370899999998, -24.44476249, -21.57396522, -18.6132068, -15.65244838, -12.78165111, -10.088042699999999, -7.653467094, -5.551897632, -3.84718944, -2.591139213, -1.8219114019999998, -1.562878605, -1.8219114019999998, -2.591139213, -3.84718944, -5.551897632, -7.653467094, -10.088042699999999, -12.78165111, -15.65244838, -18.6132068, -21.57396522, -24.44476249, -27.138370899999998, -29.572946500000004, -31.67451596, -33.37922416, -34.63527438, -35.40450219, -35.66353499, -35.40450219, -34.63527438, -33.37922416, -31.67451596, -29.572946500000004, -27.138370899999998, -24.44476249, -21.57396522, -18.6132068, -15.65244838, -12.78165111, -10.088042699999999, -7.653467094, -5.551897632, -3.84718944, -2.591139213, -1.8219114019999998, -1.562878605, -1.8219114019999998, -2.591139213, -3.84718944, -5.551897632, -7.653467094, -10.088042699999999, -12.78165111, -15.65244838, -18.6132068, -21.57396522, -24.44476249, -27.138370899999998, -29.572946500000004, -31.67451596, -33.37922416, -34.63527438, -35.40450219, -35.66353499, -35.40450219, -34.63527438, -33.37922416, -31.67451596, -29.572946500000004, -27.138370899999998, -24.44476249, -21.57396522, -18.6132068, -15.65244838, -12.78165111, -10.088042699999999, -7.653467094, -5.551897632, -3.84718944, -2.591139213, -1.8219114019999998, -1.562878605, -1.8219114019999998, -2.591139213, -3.84718944, -5.551897632, -7.653467094, -10.088042699999999, -12.78165111, -15.65244838, -18.6132068, -21.57396522, -24.44476249, -27.138370899999998, -29.572946500000004, -31.67451596, -33.37922416, -34.63527438, -35.40450219, -35.66353499), 
  lon = c(0.0, 2.5, 5.0, 7.5, 10.0, 12.5, 15.0, 17.5, 20.0, 22.5, 25.0, 27.5, 30.0, 32.5, 35.0, 37.5, 40.0, 42.5, 45.0, 47.5, 50.0, 52.5, 55.0, 57.5, 60.0, 62.5, 65.0, 67.5, 70.0, 72.5, 75.0, 77.5, 80.0, 82.5, 85.0, 87.5, 90.0, 92.5, 95.0, 97.5, 100.0, 102.5, 105.0, 107.5, 110.0, 112.5, 115.0, 117.5, 120.0, 122.5, 125.0, 127.5, 130.0, 132.5, 135.0, 137.5, 140.0, 142.5, 145.0, 147.5, 150.0, 152.5, 155.0, 157.5, 160.0, 162.5, 165.0, 167.5, 170.0, 172.5, 175.0, 177.5, 180.0, 182.5, 185.0, 187.5, 190.0, 192.5, 195.0, 197.5, 200.0, 202.5, 205.0, 207.5, 210.0, 212.5, 215.0, 217.5, 220.0, 222.5, 225.0, 227.5, 230.0, 232.5, 235.0, 237.5, 240.0, 242.5, 245.0, 247.5, 250.0, 252.5, 255.0, 257.5, 260.0, 262.5, 265.0, 267.5, 270.0, 272.5, 275.0, 277.5, 280.0, 282.5, 285.0, 287.5, 290.0, 292.5, 295.0, 297.5, 300.0, 302.5, 305.0, 307.5, 310.0, 312.5, 315.0, 317.5, 320.0, 322.5, 325.0, 327.5, 330.0, 332.5, 335.0, 337.5, 340.0, 342.5, 345.0, 347.5, 350.0, 352.5, 355.0, 357.5, 360.0)
)
trace12 <- list(
  line = list(
    color = "rgb(253,174,97)", 
    width = 2
  ), 
  mode = "lines", 
  type = "scattergeo", 
  lat = c(-42.17084108, -41.86841711, -40.97033422, -39.50388019, -37.51361249, -35.06000439, -32.21760754, -29.07278673, -25.72109573, -22.264374, -18.80765227, -15.45596128, -12.31114047, -9.468743617000001, -7.01513552, -5.024867819, -3.558413789, -2.660330895, -2.357906931, -2.660330895, -3.558413789, -5.024867819, -7.01513552, -9.468743617000001, -12.31114047, -15.45596128, -18.80765227, -22.264374, -25.72109573, -29.07278673, -32.21760754, -35.06000439, -37.51361249, -39.50388019, -40.97033422, -41.86841711, -42.17084108, -41.86841711, -40.97033422, -39.50388019, -37.51361249, -35.06000439, -32.21760754, -29.07278673, -25.72109573, -22.264374, -18.80765227, -15.45596128, -12.31114047, -9.468743617000001, -7.01513552, -5.024867819, -3.558413789, -2.660330895, -2.357906931, -2.660330895, -3.558413789, -5.024867819, -7.01513552, -9.468743617000001, -12.31114047, -15.45596128, -18.80765227, -22.264374, -25.72109573, -29.07278673, -32.21760754, -35.06000439, -37.51361249, -39.50388019, -40.97033422, -41.86841711, -42.17084108, -41.86841711, -40.97033422, -39.50388019, -37.51361249, -35.06000439, -32.21760754, -29.07278673, -25.72109573, -22.264374, -18.80765227, -15.45596128, -12.31114047, -9.468743617000001, -7.01513552, -5.024867819, -3.558413789, -2.660330895, -2.357906931, -2.660330895, -3.558413789, -5.024867819, -7.01513552, -9.468743617000001, -12.31114047, -15.45596128, -18.80765227, -22.264374, -25.72109573, -29.07278673, -32.21760754, -35.06000439, -37.51361249, -39.50388019, -40.97033422, -41.86841711, -42.17084108, -41.86841711, -40.97033422, -39.50388019, -37.51361249, -35.06000439, -32.21760754, -29.07278673, -25.72109573, -22.264374, -18.80765227, -15.45596128, -12.31114047, -9.468743617000001, -7.01513552, -5.024867819, -3.558413789, -2.660330895, -2.357906931, -2.660330895, -3.558413789, -5.024867819, -7.01513552, -9.468743617000001, -12.31114047, -15.45596128, -18.80765227, -22.264374, -25.72109573, -29.07278673, -32.21760754, -35.06000439, -37.51361249, -39.50388019, -40.97033422, -41.86841711, -42.17084108), 
  lon = c(0.0, 2.5, 5.0, 7.5, 10.0, 12.5, 15.0, 17.5, 20.0, 22.5, 25.0, 27.5, 30.0, 32.5, 35.0, 37.5, 40.0, 42.5, 45.0, 47.5, 50.0, 52.5, 55.0, 57.5, 60.0, 62.5, 65.0, 67.5, 70.0, 72.5, 75.0, 77.5, 80.0, 82.5, 85.0, 87.5, 90.0, 92.5, 95.0, 97.5, 100.0, 102.5, 105.0, 107.5, 110.0, 112.5, 115.0, 117.5, 120.0, 122.5, 125.0, 127.5, 130.0, 132.5, 135.0, 137.5, 140.0, 142.5, 145.0, 147.5, 150.0, 152.5, 155.0, 157.5, 160.0, 162.5, 165.0, 167.5, 170.0, 172.5, 175.0, 177.5, 180.0, 182.5, 185.0, 187.5, 190.0, 192.5, 195.0, 197.5, 200.0, 202.5, 205.0, 207.5, 210.0, 212.5, 215.0, 217.5, 220.0, 222.5, 225.0, 227.5, 230.0, 232.5, 235.0, 237.5, 240.0, 242.5, 245.0, 247.5, 250.0, 252.5, 255.0, 257.5, 260.0, 262.5, 265.0, 267.5, 270.0, 272.5, 275.0, 277.5, 280.0, 282.5, 285.0, 287.5, 290.0, 292.5, 295.0, 297.5, 300.0, 302.5, 305.0, 307.5, 310.0, 312.5, 315.0, 317.5, 320.0, 322.5, 325.0, 327.5, 330.0, 332.5, 335.0, 337.5, 340.0, 342.5, 345.0, 347.5, 350.0, 352.5, 355.0, 357.5, 360.0)
)
trace13 <- list(
  line = list(
    color = "rgb(254,224,139)", 
    width = 2
  ), 
  mode = "lines", 
  type = "scattergeo", 
  lat = c(-47.91202142, -47.58046432, -46.5958672, -44.98814655, -42.80615215, -40.1161828, -36.99997184, -33.55220379, -29.87763731, -26.08792226, -22.29820721, -18.62364074, -15.17587268, -12.05966173, -9.369692375, -7.187697975, -5.579977327000001, -4.595380207, -4.263823103, -4.595380207, -5.579977327000001, -7.187697975, -9.369692375, -12.05966173, -15.17587268, -18.62364074, -22.29820721, -26.08792226, -29.87763731, -33.55220379, -36.99997184, -40.1161828, -42.80615215, -44.98814655, -46.5958672, -47.58046432, -47.91202142, -47.58046432, -46.5958672, -44.98814655, -42.80615215, -40.1161828, -36.99997184, -33.55220379, -29.87763731, -26.08792226, -22.29820721, -18.62364074, -15.17587268, -12.05966173, -9.369692375, -7.187697975, -5.579977327000001, -4.595380207, -4.263823103, -4.595380207, -5.579977327000001, -7.187697975, -9.369692375, -12.05966173, -15.17587268, -18.62364074, -22.29820721, -26.08792226, -29.87763731, -33.55220379, -36.99997184, -40.1161828, -42.80615215, -44.98814655, -46.5958672, -47.58046432, -47.91202142, -47.58046432, -46.5958672, -44.98814655, -42.80615215, -40.1161828, -36.99997184, -33.55220379, -29.87763731, -26.08792226, -22.29820721, -18.62364074, -15.17587268, -12.05966173, -9.369692375, -7.187697975, -5.579977327000001, -4.595380207, -4.263823103, -4.595380207, -5.579977327000001, -7.187697975, -9.369692375, -12.05966173, -15.17587268, -18.62364074, -22.29820721, -26.08792226, -29.87763731, -33.55220379, -36.99997184, -40.1161828, -42.80615215, -44.98814655, -46.5958672, -47.58046432, -47.91202142, -47.58046432, -46.5958672, -44.98814655, -42.80615215, -40.1161828, -36.99997184, -33.55220379, -29.87763731, -26.08792226, -22.29820721, -18.62364074, -15.17587268, -12.05966173, -9.369692375, -7.187697975, -5.579977327000001, -4.595380207, -4.263823103, -4.595380207, -5.579977327000001, -7.187697975, -9.369692375, -12.05966173, -15.17587268, -18.62364074, -22.29820721, -26.08792226, -29.87763731, -33.55220379, -36.99997184, -40.1161828, -42.80615215, -44.98814655, -46.5958672, -47.58046432, -47.91202142), 
  lon = c(0.0, 2.5, 5.0, 7.5, 10.0, 12.5, 15.0, 17.5, 20.0, 22.5, 25.0, 27.5, 30.0, 32.5, 35.0, 37.5, 40.0, 42.5, 45.0, 47.5, 50.0, 52.5, 55.0, 57.5, 60.0, 62.5, 65.0, 67.5, 70.0, 72.5, 75.0, 77.5, 80.0, 82.5, 85.0, 87.5, 90.0, 92.5, 95.0, 97.5, 100.0, 102.5, 105.0, 107.5, 110.0, 112.5, 115.0, 117.5, 120.0, 122.5, 125.0, 127.5, 130.0, 132.5, 135.0, 137.5, 140.0, 142.5, 145.0, 147.5, 150.0, 152.5, 155.0, 157.5, 160.0, 162.5, 165.0, 167.5, 170.0, 172.5, 175.0, 177.5, 180.0, 182.5, 185.0, 187.5, 190.0, 192.5, 195.0, 197.5, 200.0, 202.5, 205.0, 207.5, 210.0, 212.5, 215.0, 217.5, 220.0, 222.5, 225.0, 227.5, 230.0, 232.5, 235.0, 237.5, 240.0, 242.5, 245.0, 247.5, 250.0, 252.5, 255.0, 257.5, 260.0, 262.5, 265.0, 267.5, 270.0, 272.5, 275.0, 277.5, 280.0, 282.5, 285.0, 287.5, 290.0, 292.5, 295.0, 297.5, 300.0, 302.5, 305.0, 307.5, 310.0, 312.5, 315.0, 317.5, 320.0, 322.5, 325.0, 327.5, 330.0, 332.5, 335.0, 337.5, 340.0, 342.5, 345.0, 347.5, 350.0, 352.5, 355.0, 357.5, 360.0)
)
trace14 <- list(
  line = list(
    color = "rgb(255,255,191)", 
    width = 2
  ), 
  mode = "lines", 
  type = "scattergeo", 
  lat = c(-52.5, -52.15817444, -51.14308397, -49.48557159, -47.23599997, -44.46272122, -41.25, -37.69545322, -33.907084000000005, -30.0, -26.092916, -22.30454678, -18.75, -15.53727878, -12.76400003, -10.51442841, -8.856916032, -7.841825557000001, -7.5, -7.841825557000001, -8.856916032, -10.51442841, -12.76400003, -15.53727878, -18.75, -22.30454678, -26.092916, -30.0, -33.907084000000005, -37.69545322, -41.25, -44.46272122, -47.23599997, -49.48557159, -51.14308397, -52.15817444, -52.5, -52.15817444, -51.14308397, -49.48557159, -47.23599997, -44.46272122, -41.25, -37.69545322, -33.907084000000005, -30.0, -26.092916, -22.30454678, -18.75, -15.53727878, -12.76400003, -10.51442841, -8.856916032, -7.841825557000001, -7.5, -7.841825557000001, -8.856916032, -10.51442841, -12.76400003, -15.53727878, -18.75, -22.30454678, -26.092916, -30.0, -33.907084000000005, -37.69545322, -41.25, -44.46272122, -47.23599997, -49.48557159, -51.14308397, -52.15817444, -52.5, -52.15817444, -51.14308397, -49.48557159, -47.23599997, -44.46272122, -41.25, -37.69545322, -33.907084000000005, -30.0, -26.092916, -22.30454678, -18.75, -15.53727878, -12.76400003, -10.51442841, -8.856916032, -7.841825557000001, -7.5, -7.841825557000001, -8.856916032, -10.51442841, -12.76400003, -15.53727878, -18.75, -22.30454678, -26.092916, -30.0, -33.907084000000005, -37.69545322, -41.25, -44.46272122, -47.23599997, -49.48557159, -51.14308397, -52.15817444, -52.5, -52.15817444, -51.14308397, -49.48557159, -47.23599997, -44.46272122, -41.25, -37.69545322, -33.907084000000005, -30.0, -26.092916, -22.30454678, -18.75, -15.53727878, -12.76400003, -10.51442841, -8.856916032, -7.841825557000001, -7.5, -7.841825557000001, -8.856916032, -10.51442841, -12.76400003, -15.53727878, -18.75, -22.30454678, -26.092916, -30.0, -33.907084000000005, -37.69545322, -41.25, -44.46272122, -47.23599997, -49.48557159, -51.14308397, -52.15817444, -52.5), 
  lon = c(0.0, 2.5, 5.0, 7.5, 10.0, 12.5, 15.0, 17.5, 20.0, 22.5, 25.0, 27.5, 30.0, 32.5, 35.0, 37.5, 40.0, 42.5, 45.0, 47.5, 50.0, 52.5, 55.0, 57.5, 60.0, 62.5, 65.0, 67.5, 70.0, 72.5, 75.0, 77.5, 80.0, 82.5, 85.0, 87.5, 90.0, 92.5, 95.0, 97.5, 100.0, 102.5, 105.0, 107.5, 110.0, 112.5, 115.0, 117.5, 120.0, 122.5, 125.0, 127.5, 130.0, 132.5, 135.0, 137.5, 140.0, 142.5, 145.0, 147.5, 150.0, 152.5, 155.0, 157.5, 160.0, 162.5, 165.0, 167.5, 170.0, 172.5, 175.0, 177.5, 180.0, 182.5, 185.0, 187.5, 190.0, 192.5, 195.0, 197.5, 200.0, 202.5, 205.0, 207.5, 210.0, 212.5, 215.0, 217.5, 220.0, 222.5, 225.0, 227.5, 230.0, 232.5, 235.0, 237.5, 240.0, 242.5, 245.0, 247.5, 250.0, 252.5, 255.0, 257.5, 260.0, 262.5, 265.0, 267.5, 270.0, 272.5, 275.0, 277.5, 280.0, 282.5, 285.0, 287.5, 290.0, 292.5, 295.0, 297.5, 300.0, 302.5, 305.0, 307.5, 310.0, 312.5, 315.0, 317.5, 320.0, 322.5, 325.0, 327.5, 330.0, 332.5, 335.0, 337.5, 340.0, 342.5, 345.0, 347.5, 350.0, 352.5, 355.0, 357.5, 360.0)
)
trace15 <- list(
  line = list(
    color = "rgb(230,245,152)", 
    width = 2
  ), 
  mode = "lines", 
  type = "scattergeo", 
  lat = c(-55.7361769, -55.40461979, -54.42002267, -52.81230202, -50.63030762, -47.94033827, -44.82412732, -41.37635926, -37.70179279, -33.91207774, -30.12236269, -26.44779621, -23.00002816, -19.8838172, -17.19384785, -15.01185345, -13.404132800000001, -12.41953568, -12.08797858, -12.41953568, -13.404132800000001, -15.01185345, -17.19384785, -19.8838172, -23.00002816, -26.44779621, -30.12236269, -33.91207774, -37.70179279, -41.37635926, -44.82412732, -47.94033827, -50.63030762, -52.81230202, -54.42002267, -55.40461979, -55.7361769, -55.40461979, -54.42002267, -52.81230202, -50.63030762, -47.94033827, -44.82412732, -41.37635926, -37.70179279, -33.91207774, -30.12236269, -26.44779621, -23.00002816, -19.8838172, -17.19384785, -15.01185345, -13.404132800000001, -12.41953568, -12.08797858, -12.41953568, -13.404132800000001, -15.01185345, -17.19384785, -19.8838172, -23.00002816, -26.44779621, -30.12236269, -33.91207774, -37.70179279, -41.37635926, -44.82412732, -47.94033827, -50.63030762, -52.81230202, -54.42002267, -55.40461979, -55.7361769, -55.40461979, -54.42002267, -52.81230202, -50.63030762, -47.94033827, -44.82412732, -41.37635926, -37.70179279, -33.91207774, -30.12236269, -26.44779621, -23.00002816, -19.8838172, -17.19384785, -15.01185345, -13.404132800000001, -12.41953568, -12.08797858, -12.41953568, -13.404132800000001, -15.01185345, -17.19384785, -19.8838172, -23.00002816, -26.44779621, -30.12236269, -33.91207774, -37.70179279, -41.37635926, -44.82412732, -47.94033827, -50.63030762, -52.81230202, -54.42002267, -55.40461979, -55.7361769, -55.40461979, -54.42002267, -52.81230202, -50.63030762, -47.94033827, -44.82412732, -41.37635926, -37.70179279, -33.91207774, -30.12236269, -26.44779621, -23.00002816, -19.8838172, -17.19384785, -15.01185345, -13.404132800000001, -12.41953568, -12.08797858, -12.41953568, -13.404132800000001, -15.01185345, -17.19384785, -19.8838172, -23.00002816, -26.44779621, -30.12236269, -33.91207774, -37.70179279, -41.37635926, -44.82412732, -47.94033827, -50.63030762, -52.81230202, -54.42002267, -55.40461979, -55.7361769), 
  lon = c(0.0, 2.5, 5.0, 7.5, 10.0, 12.5, 15.0, 17.5, 20.0, 22.5, 25.0, 27.5, 30.0, 32.5, 35.0, 37.5, 40.0, 42.5, 45.0, 47.5, 50.0, 52.5, 55.0, 57.5, 60.0, 62.5, 65.0, 67.5, 70.0, 72.5, 75.0, 77.5, 80.0, 82.5, 85.0, 87.5, 90.0, 92.5, 95.0, 97.5, 100.0, 102.5, 105.0, 107.5, 110.0, 112.5, 115.0, 117.5, 120.0, 122.5, 125.0, 127.5, 130.0, 132.5, 135.0, 137.5, 140.0, 142.5, 145.0, 147.5, 150.0, 152.5, 155.0, 157.5, 160.0, 162.5, 165.0, 167.5, 170.0, 172.5, 175.0, 177.5, 180.0, 182.5, 185.0, 187.5, 190.0, 192.5, 195.0, 197.5, 200.0, 202.5, 205.0, 207.5, 210.0, 212.5, 215.0, 217.5, 220.0, 222.5, 225.0, 227.5, 230.0, 232.5, 235.0, 237.5, 240.0, 242.5, 245.0, 247.5, 250.0, 252.5, 255.0, 257.5, 260.0, 262.5, 265.0, 267.5, 270.0, 272.5, 275.0, 277.5, 280.0, 282.5, 285.0, 287.5, 290.0, 292.5, 295.0, 297.5, 300.0, 302.5, 305.0, 307.5, 310.0, 312.5, 315.0, 317.5, 320.0, 322.5, 325.0, 327.5, 330.0, 332.5, 335.0, 337.5, 340.0, 342.5, 345.0, 347.5, 350.0, 352.5, 355.0, 357.5, 360.0)
)
trace16 <- list(
  line = list(
    color = "rgb(171,221,164)", 
    width = 2
  ), 
  mode = "lines", 
  type = "scattergeo", 
  lat = c(-57.64209307, -57.3396691, -56.44158621, -54.97513218, -52.98486448, -50.53125638, -47.68885953, -44.54403872, -41.19234773, -37.735626, -34.27890427, -30.92721327, -27.78239246, -24.93999561, -22.48638751, -20.49611981, -19.02966578, -18.13158289, -17.82915892, -18.13158289, -19.02966578, -20.49611981, -22.48638751, -24.93999561, -27.78239246, -30.92721327, -34.27890427, -37.735626, -41.19234773, -44.54403872, -47.68885953, -50.53125638, -52.98486448, -54.97513218, -56.44158621, -57.3396691, -57.64209307, -57.3396691, -56.44158621, -54.97513218, -52.98486448, -50.53125638, -47.68885953, -44.54403872, -41.19234773, -37.735626, -34.27890427, -30.92721327, -27.78239246, -24.93999561, -22.48638751, -20.49611981, -19.02966578, -18.13158289, -17.82915892, -18.13158289, -19.02966578, -20.49611981, -22.48638751, -24.93999561, -27.78239246, -30.92721327, -34.27890427, -37.735626, -41.19234773, -44.54403872, -47.68885953, -50.53125638, -52.98486448, -54.97513218, -56.44158621, -57.3396691, -57.64209307, -57.3396691, -56.44158621, -54.97513218, -52.98486448, -50.53125638, -47.68885953, -44.54403872, -41.19234773, -37.735626, -34.27890427, -30.92721327, -27.78239246, -24.93999561, -22.48638751, -20.49611981, -19.02966578, -18.13158289, -17.82915892, -18.13158289, -19.02966578, -20.49611981, -22.48638751, -24.93999561, -27.78239246, -30.92721327, -34.27890427, -37.735626, -41.19234773, -44.54403872, -47.68885953, -50.53125638, -52.98486448, -54.97513218, -56.44158621, -57.3396691, -57.64209307, -57.3396691, -56.44158621, -54.97513218, -52.98486448, -50.53125638, -47.68885953, -44.54403872, -41.19234773, -37.735626, -34.27890427, -30.92721327, -27.78239246, -24.93999561, -22.48638751, -20.49611981, -19.02966578, -18.13158289, -17.82915892, -18.13158289, -19.02966578, -20.49611981, -22.48638751, -24.93999561, -27.78239246, -30.92721327, -34.27890427, -37.735626, -41.19234773, -44.54403872, -47.68885953, -50.53125638, -52.98486448, -54.97513218, -56.44158621, -57.3396691, -57.64209307), 
  lon = c(0.0, 2.5, 5.0, 7.5, 10.0, 12.5, 15.0, 17.5, 20.0, 22.5, 25.0, 27.5, 30.0, 32.5, 35.0, 37.5, 40.0, 42.5, 45.0, 47.5, 50.0, 52.5, 55.0, 57.5, 60.0, 62.5, 65.0, 67.5, 70.0, 72.5, 75.0, 77.5, 80.0, 82.5, 85.0, 87.5, 90.0, 92.5, 95.0, 97.5, 100.0, 102.5, 105.0, 107.5, 110.0, 112.5, 115.0, 117.5, 120.0, 122.5, 125.0, 127.5, 130.0, 132.5, 135.0, 137.5, 140.0, 142.5, 145.0, 147.5, 150.0, 152.5, 155.0, 157.5, 160.0, 162.5, 165.0, 167.5, 170.0, 172.5, 175.0, 177.5, 180.0, 182.5, 185.0, 187.5, 190.0, 192.5, 195.0, 197.5, 200.0, 202.5, 205.0, 207.5, 210.0, 212.5, 215.0, 217.5, 220.0, 222.5, 225.0, 227.5, 230.0, 232.5, 235.0, 237.5, 240.0, 242.5, 245.0, 247.5, 250.0, 252.5, 255.0, 257.5, 260.0, 262.5, 265.0, 267.5, 270.0, 272.5, 275.0, 277.5, 280.0, 282.5, 285.0, 287.5, 290.0, 292.5, 295.0, 297.5, 300.0, 302.5, 305.0, 307.5, 310.0, 312.5, 315.0, 317.5, 320.0, 322.5, 325.0, 327.5, 330.0, 332.5, 335.0, 337.5, 340.0, 342.5, 345.0, 347.5, 350.0, 352.5, 355.0, 357.5, 360.0)
)
trace17 <- list(
  line = list(
    color = "rgb(102,194,165)", 
    width = 2
  ), 
  mode = "lines", 
  type = "scattergeo", 
  lat = c(-58.4371214, -58.1780886, -57.40886079, -56.15281056, -54.44810237, -52.34653291, -49.9119573, -47.21834889, -44.34755162, -41.3867932, -38.42603478, -35.55523751, -32.8616291, -30.427053499999996, -28.32548404, -26.62077584, -25.36472562, -24.59549781, -24.33646501, -24.59549781, -25.36472562, -26.62077584, -28.32548404, -30.427053499999996, -32.8616291, -35.55523751, -38.42603478, -41.3867932, -44.34755162, -47.21834889, -49.9119573, -52.34653291, -54.44810237, -56.15281056, -57.40886079, -58.1780886, -58.4371214, -58.1780886, -57.40886079, -56.15281056, -54.44810237, -52.34653291, -49.9119573, -47.21834889, -44.34755162, -41.3867932, -38.42603478, -35.55523751, -32.8616291, -30.427053499999996, -28.32548404, -26.62077584, -25.36472562, -24.59549781, -24.33646501, -24.59549781, -25.36472562, -26.62077584, -28.32548404, -30.427053499999996, -32.8616291, -35.55523751, -38.42603478, -41.3867932, -44.34755162, -47.21834889, -49.9119573, -52.34653291, -54.44810237, -56.15281056, -57.40886079, -58.1780886, -58.4371214, -58.1780886, -57.40886079, -56.15281056, -54.44810237, -52.34653291, -49.9119573, -47.21834889, -44.34755162, -41.3867932, -38.42603478, -35.55523751, -32.8616291, -30.427053499999996, -28.32548404, -26.62077584, -25.36472562, -24.59549781, -24.33646501, -24.59549781, -25.36472562, -26.62077584, -28.32548404, -30.427053499999996, -32.8616291, -35.55523751, -38.42603478, -41.3867932, -44.34755162, -47.21834889, -49.9119573, -52.34653291, -54.44810237, -56.15281056, -57.40886079, -58.1780886, -58.4371214, -58.1780886, -57.40886079, -56.15281056, -54.44810237, -52.34653291, -49.9119573, -47.21834889, -44.34755162, -41.3867932, -38.42603478, -35.55523751, -32.8616291, -30.427053499999996, -28.32548404, -26.62077584, -25.36472562, -24.59549781, -24.33646501, -24.59549781, -25.36472562, -26.62077584, -28.32548404, -30.427053499999996, -32.8616291, -35.55523751, -38.42603478, -41.3867932, -44.34755162, -47.21834889, -49.9119573, -52.34653291, -54.44810237, -56.15281056, -57.40886079, -58.1780886, -58.4371214), 
  lon = c(0.0, 2.5, 5.0, 7.5, 10.0, 12.5, 15.0, 17.5, 20.0, 22.5, 25.0, 27.5, 30.0, 32.5, 35.0, 37.5, 40.0, 42.5, 45.0, 47.5, 50.0, 52.5, 55.0, 57.5, 60.0, 62.5, 65.0, 67.5, 70.0, 72.5, 75.0, 77.5, 80.0, 82.5, 85.0, 87.5, 90.0, 92.5, 95.0, 97.5, 100.0, 102.5, 105.0, 107.5, 110.0, 112.5, 115.0, 117.5, 120.0, 122.5, 125.0, 127.5, 130.0, 132.5, 135.0, 137.5, 140.0, 142.5, 145.0, 147.5, 150.0, 152.5, 155.0, 157.5, 160.0, 162.5, 165.0, 167.5, 170.0, 172.5, 175.0, 177.5, 180.0, 182.5, 185.0, 187.5, 190.0, 192.5, 195.0, 197.5, 200.0, 202.5, 205.0, 207.5, 210.0, 212.5, 215.0, 217.5, 220.0, 222.5, 225.0, 227.5, 230.0, 232.5, 235.0, 237.5, 240.0, 242.5, 245.0, 247.5, 250.0, 252.5, 255.0, 257.5, 260.0, 262.5, 265.0, 267.5, 270.0, 272.5, 275.0, 277.5, 280.0, 282.5, 285.0, 287.5, 290.0, 292.5, 295.0, 297.5, 300.0, 302.5, 305.0, 307.5, 310.0, 312.5, 315.0, 317.5, 320.0, 322.5, 325.0, 327.5, 330.0, 332.5, 335.0, 337.5, 340.0, 342.5, 345.0, 347.5, 350.0, 352.5, 355.0, 357.5, 360.0)
)
trace18 <- list(
  line = list(
    color = "rgb(50,136,189)", 
    width = 2
  ), 
  mode = "lines", 
  type = "scattergeo", 
  lat = c(-58.47023812, -58.26241634, -57.64526556, -56.63753759, -55.26985173, -53.58376444, -51.63050661, -49.469427, -47.16618893, -44.7907751, -42.41536128, -40.1121232, -37.95104359, -35.99778577, -34.31169847, -32.94401262, -31.93628465, -31.31913386, -31.11131208, -31.31913386, -31.93628465, -32.94401262, -34.31169847, -35.99778577, -37.95104359, -40.1121232, -42.41536128, -44.7907751, -47.16618893, -49.469427, -51.63050661, -53.58376444, -55.26985173, -56.63753759, -57.64526556, -58.26241634, -58.47023812, -58.26241634, -57.64526556, -56.63753759, -55.26985173, -53.58376444, -51.63050661, -49.469427, -47.16618893, -44.7907751, -42.41536128, -40.1121232, -37.95104359, -35.99778577, -34.31169847, -32.94401262, -31.93628465, -31.31913386, -31.11131208, -31.31913386, -31.93628465, -32.94401262, -34.31169847, -35.99778577, -37.95104359, -40.1121232, -42.41536128, -44.7907751, -47.16618893, -49.469427, -51.63050661, -53.58376444, -55.26985173, -56.63753759, -57.64526556, -58.26241634, -58.47023812, -58.26241634, -57.64526556, -56.63753759, -55.26985173, -53.58376444, -51.63050661, -49.469427, -47.16618893, -44.7907751, -42.41536128, -40.1121232, -37.95104359, -35.99778577, -34.31169847, -32.94401262, -31.93628465, -31.31913386, -31.11131208, -31.31913386, -31.93628465, -32.94401262, -34.31169847, -35.99778577, -37.95104359, -40.1121232, -42.41536128, -44.7907751, -47.16618893, -49.469427, -51.63050661, -53.58376444, -55.26985173, -56.63753759, -57.64526556, -58.26241634, -58.47023812, -58.26241634, -57.64526556, -56.63753759, -55.26985173, -53.58376444, -51.63050661, -49.469427, -47.16618893, -44.7907751, -42.41536128, -40.1121232, -37.95104359, -35.99778577, -34.31169847, -32.94401262, -31.93628465, -31.31913386, -31.11131208, -31.31913386, -31.93628465, -32.94401262, -34.31169847, -35.99778577, -37.95104359, -40.1121232, -42.41536128, -44.7907751, -47.16618893, -49.469427, -51.63050661, -53.58376444, -55.26985173, -56.63753759, -57.64526556, -58.26241634, -58.47023812), 
  lon = c(0.0, 2.5, 5.0, 7.5, 10.0, 12.5, 15.0, 17.5, 20.0, 22.5, 25.0, 27.5, 30.0, 32.5, 35.0, 37.5, 40.0, 42.5, 45.0, 47.5, 50.0, 52.5, 55.0, 57.5, 60.0, 62.5, 65.0, 67.5, 70.0, 72.5, 75.0, 77.5, 80.0, 82.5, 85.0, 87.5, 90.0, 92.5, 95.0, 97.5, 100.0, 102.5, 105.0, 107.5, 110.0, 112.5, 115.0, 117.5, 120.0, 122.5, 125.0, 127.5, 130.0, 132.5, 135.0, 137.5, 140.0, 142.5, 145.0, 147.5, 150.0, 152.5, 155.0, 157.5, 160.0, 162.5, 165.0, 167.5, 170.0, 172.5, 175.0, 177.5, 180.0, 182.5, 185.0, 187.5, 190.0, 192.5, 195.0, 197.5, 200.0, 202.5, 205.0, 207.5, 210.0, 212.5, 215.0, 217.5, 220.0, 222.5, 225.0, 227.5, 230.0, 232.5, 235.0, 237.5, 240.0, 242.5, 245.0, 247.5, 250.0, 252.5, 255.0, 257.5, 260.0, 262.5, 265.0, 267.5, 270.0, 272.5, 275.0, 277.5, 280.0, 282.5, 285.0, 287.5, 290.0, 292.5, 295.0, 297.5, 300.0, 302.5, 305.0, 307.5, 310.0, 312.5, 315.0, 317.5, 320.0, 322.5, 325.0, 327.5, 330.0, 332.5, 335.0, 337.5, 340.0, 342.5, 345.0, 347.5, 350.0, 352.5, 355.0, 357.5, 360.0)
)
data <- list(trace1, trace2, trace3, trace4, trace5, trace6, trace7, trace8, trace9, trace10, trace11, trace12, trace13, trace14, trace15, trace16, trace17, trace18)
layout <- list(
  geo = list(
    lataxis = list(
      showgrid = TRUE, 
      gridcolor = "rgb(102, 102, 102)", 
      gridwidth = 0.5
    ), 
    lonaxis = list(
      showgrid = TRUE, 
      gridcolor = "rgb(102, 102, 102)", 
      gridwidth = 0.5
    ), 
    showland = TRUE, 
    lakecolor = "rgb(0, 255, 255)", 
    landcolor = "rgb(230, 145, 56)", 
    showlakes = TRUE, 
    showocean = TRUE, 
    oceancolor = "rgb(0, 255, 255)", 
    projection = list(
      type = "orthographic", 
      rotation = list(
        lat = 40, 
        lon = -100, 
        roll = 0
      )
    ), 
    countrywidth = 0.5, 
    showcountries = TRUE
  ), 
  title = "Contour lines over globe<br>(Click and drag to rotate)", 
  showlegend = FALSE
)
p <- plot_ly()
p <- add_trace(p, line=trace1$line, mode=trace1$mode, type=trace1$type, lat=trace1$lat, lon=trace1$lon)
p <- add_trace(p, line=trace2$line, mode=trace2$mode, type=trace2$type, lat=trace2$lat, lon=trace2$lon)
p <- add_trace(p, line=trace3$line, mode=trace3$mode, type=trace3$type, lat=trace3$lat, lon=trace3$lon)
p <- add_trace(p, line=trace4$line, mode=trace4$mode, type=trace4$type, lat=trace4$lat, lon=trace4$lon)
p <- add_trace(p, line=trace5$line, mode=trace5$mode, type=trace5$type, lat=trace5$lat, lon=trace5$lon)
p <- add_trace(p, line=trace6$line, mode=trace6$mode, type=trace6$type, lat=trace6$lat, lon=trace6$lon)
p <- add_trace(p, line=trace7$line, mode=trace7$mode, type=trace7$type, lat=trace7$lat, lon=trace7$lon)
p <- add_trace(p, line=trace8$line, mode=trace8$mode, type=trace8$type, lat=trace8$lat, lon=trace8$lon)
p <- add_trace(p, line=trace9$line, mode=trace9$mode, type=trace9$type, lat=trace9$lat, lon=trace9$lon)
p <- add_trace(p, line=trace10$line, mode=trace10$mode, type=trace10$type, lat=trace10$lat, lon=trace10$lon)
p <- add_trace(p, line=trace11$line, mode=trace11$mode, type=trace11$type, lat=trace11$lat, lon=trace11$lon)
p <- add_trace(p, line=trace12$line, mode=trace12$mode, type=trace12$type, lat=trace12$lat, lon=trace12$lon)
p <- add_trace(p, line=trace13$line, mode=trace13$mode, type=trace13$type, lat=trace13$lat, lon=trace13$lon)
p <- add_trace(p, line=trace14$line, mode=trace14$mode, type=trace14$type, lat=trace14$lat, lon=trace14$lon)
p <- add_trace(p, line=trace15$line, mode=trace15$mode, type=trace15$type, lat=trace15$lat, lon=trace15$lon)
p <- add_trace(p, line=trace16$line, mode=trace16$mode, type=trace16$type, lat=trace16$lat, lon=trace16$lon)
p <- add_trace(p, line=trace17$line, mode=trace17$mode, type=trace17$type, lat=trace17$lat, lon=trace17$lon)
p <- add_trace(p, line=trace18$line, mode=trace18$mode, type=trace18$type, lat=trace18$lat, lon=trace18$lon)
p <- layout(p, geo=layout$geo, title=layout$title, showlegend=layout$showlegend)