Introdução à elaboração de Mapas com o ggplot2

class: center, middle, inverse, title-slide

.title[
# Introdução à elaboração de Mapas com o ggplot2
]
.subtitle[
## Exemplo Tinamidae
]
.author[
### Gabriel Santos
]

---

class: middle, center

<style type="text/css">
# DETERMINA O TAMANHO DOS CÓDIGOS
.remark-code{line-height: .8; font-size: 65%}

.remark-slide-scaler {overflow-y: auto;}    #Adiciona barra de rolagem
</style>

## Exemplo da vez

<img src="data:image/png;base64,#ExemploTinamidae.svg" width="100%" />

---

## Apresentando os dados

``` r
# Carrega os dados
dados<-read.xlsx(file.choose())   #Dados de ocorrência Tinamidae.xlsx
MunicipioES<-st_read(file.choose()) #Shapefile Municipio.ES
EstadoES<-st_read(file.choose())#Shapefile ES.shp
UC<-st_read(file.choose())   #Shapefile UC.shp

# Apresenta os dados
par(mfrow=c(1,3))
plot(MunicipioES[1])
plot(EstadoES[1])
plot(UC[1])
```

<img src="data:image/png;base64,#Mapas-com-o-ggplot2_files/figure-html/unnamed-chunk-5-1.png" width="30%" /><img src="data:image/png;base64,#Mapas-com-o-ggplot2_files/figure-html/unnamed-chunk-5-2.png" width="30%" /><img src="data:image/png;base64,#Mapas-com-o-ggplot2_files/figure-html/unnamed-chunk-5-3.png" width="30%" />

---

count: false
 
Exemplo de mapa no ggplot2
.panel1-ExemploMapa-auto[

``` r
*ggplot()
```
]
 
.panel2-ExemploMapa-auto[
![](data:image/png;base64,#Mapas-com-o-ggplot2_files/figure-html/ExemploMapa_auto_01_output-1.png)
]

---
count: false
 
Exemplo de mapa no ggplot2
.panel1-ExemploMapa-auto[

``` r
ggplot()+
*geom_sf(data=MunicipioES,
*       fill="grey98",
*       color="grey80")
```
]
 
.panel2-ExemploMapa-auto[
![](data:image/png;base64,#Mapas-com-o-ggplot2_files/figure-html/ExemploMapa_auto_02_output-1.png)
]

---
count: false
 
Exemplo de mapa no ggplot2
.panel1-ExemploMapa-auto[

``` r
ggplot()+
geom_sf(data=MunicipioES,
        fill="grey98",
        color="grey80")+
*geom_sf(data=EstadoES,
*       color="black",
*       fill=NA)
```
]
 
.panel2-ExemploMapa-auto[
![](data:image/png;base64,#Mapas-com-o-ggplot2_files/figure-html/ExemploMapa_auto_03_output-1.png)
]

---
count: false
 
Exemplo de mapa no ggplot2
.panel1-ExemploMapa-auto[

``` r
ggplot()+
geom_sf(data=MunicipioES,
        fill="grey98",
        color="grey80")+
geom_sf(data=EstadoES,
        color="black",
        fill=NA)+
*geom_sf(data=UC,
*   aes(fill=Riqueza))
```
]
 
.panel2-ExemploMapa-auto[
![](data:image/png;base64,#Mapas-com-o-ggplot2_files/figure-html/ExemploMapa_auto_04_output-1.png)
]

---
count: false
 
Exemplo de mapa no ggplot2
.panel1-ExemploMapa-auto[

``` r
ggplot()+
geom_sf(data=MunicipioES,
        fill="grey98",
        color="grey80")+
geom_sf(data=EstadoES,
        color="black",
        fill=NA)+
geom_sf(data=UC,
    aes(fill=Riqueza))+
*geom_point(data=dados,
*aes(y=decimalLatitude,
*	x=decimalLongitude,
*	color=specificEpithet))
```
]
 
.panel2-ExemploMapa-auto[
![](data:image/png;base64,#Mapas-com-o-ggplot2_files/figure-html/ExemploMapa_auto_05_output-1.png)
]

---
count: false
 
Exemplo de mapa no ggplot2
.panel1-ExemploMapa-auto[

``` r
ggplot()+
geom_sf(data=MunicipioES,
        fill="grey98",
        color="grey80")+
geom_sf(data=EstadoES,
        color="black",
        fill=NA)+
geom_sf(data=UC,
    aes(fill=Riqueza))+
geom_point(data=dados,
	aes(y=decimalLatitude,
		x=decimalLongitude,
		color=specificEpithet))+
*viridis::scale_fill_viridis(
* option="magma",
* direction=-1)
```
]
 
.panel2-ExemploMapa-auto[
![](data:image/png;base64,#Mapas-com-o-ggplot2_files/figure-html/ExemploMapa_auto_06_output-1.png)
]

---
count: false
 
Exemplo de mapa no ggplot2
.panel1-ExemploMapa-auto[

``` r
ggplot()+
geom_sf(data=MunicipioES,
        fill="grey98",
        color="grey80")+
geom_sf(data=EstadoES,
        color="black",
        fill=NA)+
geom_sf(data=UC,
    aes(fill=Riqueza))+
geom_point(data=dados,
	aes(y=decimalLatitude,
		x=decimalLongitude,
		color=specificEpithet))+
viridis::scale_fill_viridis(
  option="magma",
  direction=-1)+
*scale_x_continuous(
* breaks = seq(-45, -38, 1))
```
]
 
.panel2-ExemploMapa-auto[
![](data:image/png;base64,#Mapas-com-o-ggplot2_files/figure-html/ExemploMapa_auto_07_output-1.png)
]

---
count: false
 
Exemplo de mapa no ggplot2
.panel1-ExemploMapa-auto[

``` r
ggplot()+
geom_sf(data=MunicipioES,
        fill="grey98",
        color="grey80")+
geom_sf(data=EstadoES,
        color="black",
        fill=NA)+
geom_sf(data=UC,
    aes(fill=Riqueza))+
geom_point(data=dados,
	aes(y=decimalLatitude,
		x=decimalLongitude,
		color=specificEpithet))+
viridis::scale_fill_viridis(
  option="magma",
  direction=-1)+
scale_x_continuous(
  breaks = seq(-45, -38, 1))+
*scale_y_continuous(
* breaks = seq(-22, -17, 1))
```
]
 
.panel2-ExemploMapa-auto[
![](data:image/png;base64,#Mapas-com-o-ggplot2_files/figure-html/ExemploMapa_auto_08_output-1.png)
]

---
count: false
 
Exemplo de mapa no ggplot2
.panel1-ExemploMapa-auto[

``` r
ggplot()+
geom_sf(data=MunicipioES,
        fill="grey98",
        color="grey80")+
geom_sf(data=EstadoES,
        color="black",
        fill=NA)+
geom_sf(data=UC,
    aes(fill=Riqueza))+
geom_point(data=dados,
	aes(y=decimalLatitude,
		x=decimalLongitude,
		color=specificEpithet))+
viridis::scale_fill_viridis(
  option="magma",
  direction=-1)+
scale_x_continuous(
  breaks = seq(-45, -38, 1))+
scale_y_continuous(
  breaks = seq(-22, -17, 1))+
* labs(
*   title = "Distribuição da família Tinamidae no ES",
*      x = NULL,
*      y = NULL,
*      color = "Espécies",
*      fill = "Riqueza")
```
]
 
.panel2-ExemploMapa-auto[
![](data:image/png;base64,#Mapas-com-o-ggplot2_files/figure-html/ExemploMapa_auto_09_output-1.png)
]

---
count: false
 
Exemplo de mapa no ggplot2
.panel1-ExemploMapa-auto[

``` r
ggplot()+
geom_sf(data=MunicipioES,
        fill="grey98",
        color="grey80")+
geom_sf(data=EstadoES,
        color="black",
        fill=NA)+
geom_sf(data=UC,
    aes(fill=Riqueza))+
geom_point(data=dados,
	aes(y=decimalLatitude,
		x=decimalLongitude,
		color=specificEpithet))+
viridis::scale_fill_viridis(
  option="magma",
  direction=-1)+
scale_x_continuous(
  breaks = seq(-45, -38, 1))+
scale_y_continuous(
  breaks = seq(-22, -17, 1))+
  labs(
    title = "Distribuição da família Tinamidae no ES",
       x = NULL,
       y = NULL,
       color = "Espécies",
       fill = "Riqueza") +
*theme_minimal(base_size=16)
```
]
 
.panel2-ExemploMapa-auto[
![](data:image/png;base64,#Mapas-com-o-ggplot2_files/figure-html/ExemploMapa_auto_10_output-1.png)
]

---
count: false
 
Exemplo de mapa no ggplot2
.panel1-ExemploMapa-auto[

``` r
ggplot()+
geom_sf(data=MunicipioES,
        fill="grey98",
        color="grey80")+
geom_sf(data=EstadoES,
        color="black",
        fill=NA)+
geom_sf(data=UC,
    aes(fill=Riqueza))+
geom_point(data=dados,
	aes(y=decimalLatitude,
		x=decimalLongitude,
		color=specificEpithet))+
viridis::scale_fill_viridis(
  option="magma",
  direction=-1)+
scale_x_continuous(
  breaks = seq(-45, -38, 1))+
scale_y_continuous(
  breaks = seq(-22, -17, 1))+
  labs(
    title = "Distribuição da família Tinamidae no ES",
       x = NULL,
       y = NULL,
       color = "Espécies",
       fill = "Riqueza") +
theme_minimal(base_size=16)+
*theme(
* legend.position="right")
```
]
 
.panel2-ExemploMapa-auto[
![](data:image/png;base64,#Mapas-com-o-ggplot2_files/figure-html/ExemploMapa_auto_11_output-1.png)
]

<style>
.panel1-ExemploMapa-auto {
  color: black;
  width: 38.6060606060606%;
  hight: 32%;
  float: left;
  padding-left: 1%;
  font-size: 80%
}
.panel2-ExemploMapa-auto {
  color: black;
  width: 59.3939393939394%;
  hight: 32%;
  float: left;
  padding-left: 1%;
  font-size: 80%
}
.panel3-ExemploMapa-auto {
  color: black;
  width: NA%;
  hight: 33%;
  float: left;
  padding-left: 1%;
  font-size: 80%
}
</style>

---
class: inverse, middle, center

# Composição de mapas no ggplot2

---

## Parte 1 - Criar o objeto ggplot2

``` r
MyPlot<-ggplot()+
  ...

MyPlot
```

<img src="data:image/png;base64,#Mapas-com-o-ggplot2_files/figure-html/unnamed-chunk-8-1.png" width="50%" />

---

## Parte 2 - Elaborar o painel com o cowplot

``` r
plot_grid(ncol=2, MyPlot,
MyPlot+ facet_wrap(.~specificEpithet)+
        theme(legend.position="none"))
```

<img src="data:image/png;base64,#Mapas-com-o-ggplot2_files/figure-html/figures-side-1.png" width="40%" /><img src="data:image/png;base64,#Mapas-com-o-ggplot2_files/figure-html/figures-side-2.png" width="40%" />

---
class: middle, center

## Parte 3 - Salvar o gráfico

``` r
ggsave("Meu gráfico.png",dpi=800)
```