library(gsheet)
cr <- gsheet2tbl("https://docs.google.com/spreadsheets/d/1bq2N19DcZdtax2fQW9OHSGMR0X2__Z9T/edit?gid=1871397229#gid=1871397229")Construção de Mapas
A construção de mapas no R é uma ferramenta poderosa para a visualização e análise espacial de dados. Utilizada em diversas áreas como geografia, ecologia, saúde pública e ciências agrárias, essa prática permite representar informações georreferenciadas de forma clara e interpretável. Com o auxílio de pacotes como sf (Simple Features), ggplot2, tmap e leaflet, é possível criar desde mapas simples com pontos e polígonos até mapas temáticos e interativos. O pacote sf possibilita o trabalho com dados vetoriais (como limites municipais, localização de amostras ou redes hidrográficas), enquanto ggplot2 permite estilizar os mapas com a mesma gramática de gráficos amplamente usada no R. Para mapas interativos, o pacote leaflet é uma excelente opção, facilitando a navegação, zoom e interações com o usuário. Já o tmap é voltado para a criação de mapas temáticos, como distribuição de espécies, indicadores socioeconômicos ou zonas agroecológicas. A construção de mapas geralmente segue um fluxo que inclui a importação de dados espaciais (arquivos .shp, .geojson, .kml, entre outros), o processamento ou filtragem desses dados (como seleção de áreas ou conversão de projeções), e por fim, a visualização gráfica. Além disso, é possível combinar dados espaciais com dados tabulares (como planilhas do Excel) para enriquecer os mapas com variáveis quantitativas e qualitativas.
Função datatable() do pacote [DT] para a visualização dos dados
library(DT)
datatable(cr)O pacote rnaturalearthhires é instalado via GitHub para obter fronteiras de países com mais detalhe.
sf cria um objeto geográfico com os limites dos estados (ou províncias) da Etiópia.
library(tidyverse)
cr |>
ggplot(aes(lon, lat)) +
geom_point()
library(rnaturalearth)
library(rnaturalearthhires)
remotes::install_github("ropensci/rnaturalearthhires")── R CMD build ─────────────────────────────────────────────────────────────────* checking for file 'C:\Users\Dirceu\AppData\Local\Temp\RtmpWuDgAB\remotes698c2cf37bf3\ropensci-rnaturalearthhires-e4736f6/DESCRIPTION' ... OK
* preparing 'rnaturalearthhires':
* checking DESCRIPTION meta-information ... OK
* checking for LF line-endings in source and make files and shell scripts
* checking for empty or unneeded directories
* building 'rnaturalearthhires_1.0.0.9000.tar.gz'
ETH <- ne_states(country = "Ethiopia",
returnclass = "sf")Construção do mapa
library(tidyverse)
library(ggspatial)
ETH|>
ggplot()+
geom_sf(fill = "white") +
geom_point(data=cr,aes(lon,lat, color=inc))+
scale_color_viridis_c()+
theme_minimal() +
annotation_scale(location = "tl") +
annotation_north_arrow(location = "br", which_north= "true")+
labs(title= "Ferrugem do Café na Etiópia", x="Longitude", y="Latitude", subtitle= "Levantamento em fazendas", caption= "Fonte: Rodrigues et al. (2025)", Color = "Incidência(%)")
ggsave("mapa_ethiopia.png", bg = "white", width = 10)