Mapa altimétrico do estado do Rio de Janeiro

Autor: João Ataíde

Portifolio: https://www.joaoataide.com
Github: https://github.com/jvataidee/atividade_Geoestatistica

Adaptado de: Mercel Santos - Linguagem R

Instalar Pacotes:

install.packages('raster')
install.packages('rasterVis')
install.packages('geobr')
install.packages('fields')
install.packages('geosphere')
install.packages("latticeExtra")

Carregando os Pacotes:

library('raster')
library('rasterVis')
library('geobr')
library('fields')
library('geosphere')
library("latticeExtra")

metro_para_long = function(dist,lat) {
  metros_grau = distGeo(c(0,lat),c(1,lat))
  graus = dist/metros_grau
  return(graus)
}

Criando uma nova paleta de cores:

col = c('#bcd2a4','#89d2a4','#28a77e','#90b262',
         '#ddb747','#fecf5b','#da9248','#b75554',
         '#ad7562','#b8a29a','#9f9e98')
relevo.col = colorRampPalette(col)

dados

class      : RasterLayer 
dimensions : 6000, 6000, 3.6e+07  (nrow, ncol, ncell)
resolution : 0.0008333333, 0.0008333333  (x, y)
extent     : -45, -40, -25, -20  (xmin, xmax, ymin, ymax)
crs        : +proj=longlat +datum=WGS84 +no_defs +ellps=WGS84 +towgs84=0,0,0 
source     : C:/Users/1511 FOX/Documents/GitHub/projetos/mapa relevo/data/srtm_28_17.tif 
names      : srtm_28_17 
values     : -32768, 32767  (min, max)

top = crop(dados,rj)
top.rj = mask(top,rj)

Plotando dados:

plot(dados)

Configurando:

plotagem  =  levelplot(top.rj, margin=FALSE, col.regions = relevo.col(101),
                 colorkey = list(space = "right", height = 0.8, width = 1.7),
                 cuts=100, maxpixels = 1e5,
                 main="Modelo Digital de Terreno do Rio de Janeiro")
plot(plotagem)

NA
NA