g <- list(showland = TRUE,
showcountries = TRUE,
landcolor = toRGB("forestgreen"), # land color
showocean = TRUE, # show ocean
oceancolor = "lightblue", # ocean color
# projection = list(type = 'robinson'),
projection = list(type = 'orthographic',
rotation = list(lon = 0,
lat = 0,
roll = 0)))