Skip to contents

eprdados

Conjuntos de dados para o ensino de Ecologia de Paisagens.

Datasets for teaching landscape Ecology.

Installation

You can install the development version of eprdados from GitHub with:

Você pode instalar o pacote eprdados através do comando:

# install.packages("remotes")
remotes::install_github("darrennorris/eprdados")

Example

This is a basic example which shows you how to make a map with the data in the package:

library(eprdados)
library(tmap)
mapbiomas_2020 <- rast(utm_cover_AP_rio_2020)

# Reclassificação - 
# Criar uma nova camada de floresta (novo objeto de raster copiando mapbiomas_2020, 
# assim para ter os mesmos coordenados, resolução e extensão)
floresta_2020 <- mapbiomas_2020
# Todos os pixels com valor de 0
values(floresta_2020) <- 0
# Atualizar com valor de 1 quando pixels originais são de floresta (classe 3 e 4)
floresta_2020[mapbiomas_2020==3 | mapbiomas_2020==4] <- 1 
# Passo necessario para agilizar o processamento
floresta_2020_modal <- aggregate(floresta_2020, 
                                 fact=10, 
                                 fun="modal")
# pontos cada 5 km
rio_pontos_31976 <- rio_pontos |> 
  st_transform(31976) 
# linha central de rios
rio_linhacentral_31976 <- rio_linhacentral |> 
  st_transform(31976)

# Mapa com tmap v4
tm_shape(floresta_2020_modal) +
  tm_raster(col.scale = tm_scale_categorical(values = c("0" = "#E974ED", "1" ="#129912"), 
                                             labels = c("Não-floresta", "Floresta")), 
            col.legend = tm_legend(
      title = "Classe",
      position = tm_pos_in("right", "top"),
      bg.color = "white",
      frame = TRUE
    )
              ) + 
tm_shape(rio_linhacentral_31976) + 
  tm_lines(col="blue") + 
tm_shape(rio_pontos_31976) + 
  tm_dots(size = 0.2, fill = "yellow") + 
tm_layout(legend.outside = FALSE)

Package developed and built using the following guides: