Internet Submarine Cables

Hace un tiempo Tyler Morgan-Wall hizo una visualizacón de los todos los cables submarinos de internet con los datos de Telegeography.

Tyler publicó el código en este gist. Yo decidí reproducir la visualización con una pequeña modificación para agregarle un título y hacer girar a la tierra para el otro lado.

Acá va la modificación al último for loop para agregar el título:

for(i in seq(1,720,by=1)) {
  tmp <- group_objects(fullcablescene,scale=c(1,1,1)*1.02) %>% 
    add_object(sphere(radius=0.99,material=diffuse(image_texture = "2k_earth_daymap.jpg"),angle=c(0,-90,0))) %>% 
    group_objects(angle=c(0,-i/2,0)) %>% 
    add_object(sphere(y=5,z=5,x=5,material=light(intensity = 80,color="lightblue"))) %>% 
    add_object(sphere(y=5,z=5,x=-5,material=light(intensity = 10,color="orange"))) %>% 
    add_object(sphere(y=-10,material=light(intensity = 3,color="white"))) %>%
    render_scene(samples=64,width=1200,height=1200,fov=0,aperture=0, ortho_dimensions = c(2.3,2.3),
                 sample_method = "sobol_blue",parallel = TRUE,return_raw_array = TRUE)
  rayimage::add_title(image = tmp,
                      title_text = "https://martinolmos.github.io/datos_tic/",
                      title_color = "orange",
                      title_position = "north",
                      filename = sprintf("imgs/smallcables%d.png",i))
}

Y la línea para generar la imagen animada girando para el otro lado:

av::av_encode_video(sprintf("imgs/smallcables%d.png", seq(720,1,by=-1)), 
                    framerate = 30, 
                    output = "cables.mp4")

Y finalmente la visualización con mis pequeñas modificaciones al código: