4 3D con R

Podemos obtener un modelo 3D en R mediante el paquete rayshader. A continuación se muestra el código necesario para generarlo a partir del MDT almacenado en un archivo y el resultado obtenido.

file <- 'datos/Lanjaron/p03out/mdt-lanjaron-bbox-jsamos.tif'

mdt <- terra::rast(file)
rs <- rayshader::raster_to_matrix(mdt)

rs |>
  rayshader::sphere_shade(texture = "desert") |>
  rayshader::add_shadow(rayshader::ray_shade(rs, zscale = 3), 0.5) |>
  rayshader::add_shadow(rayshader::ambient_shade(rs), 0) |>
  rayshader::plot_3d(
    rs,
    zscale = 10,
    fov = 0,
    theta = 135,
    zoom = 0.75,
    phi = 45,
    windowsize = c(1000, 800)
  )
Resultado de 3D con rayshaderdesde R.

Figura 4.1: Resultado de 3D con rayshaderdesde R.

En la figura 4.1 se muestra el resultado. Adicionalmente se le puede añadir que detecte el agua o incluir nubes a una determinada altitud.