Introdução à Linguagem R

class: center, middle, inverse, title-slide

# Introdução à Linguagem R
## para Cientistas Ambientais
### Beatriz Milz
### SENACAMB - Semana Nacional de Ciências Ambientais
### Novembro de 2021

---

class: middle

.pull-left[

## Beatriz Milz

- 2019 - * - Doutoranda em Ciência Ambiental - PROCAM/IEE/USP

- 2016-2018 - Mestrado em Ciências - Programa de Pós-Graduação em Análise Ambiental Integrada - UNIFESP

- 2012-2015 - Bacharelado em Gestão Ambiental - EACH/USP 
]

.pull-right[
<BR>
<center>
<img src="https://avatars.githubusercontent.com/u/42153618?v=4" alt="Avatar" style="border-radius: 50%; max-width: 50%; "></center>

]
---
### R: Comunidades, eventos, pacotes, livros..
<center>

---

## Cronograma

.pull-left[

### Dia 1

- Mais teórico!

]

.pull-right[

### Dia 2

- Mais prático!

<img src="https://i.giphy.com/media/aNqEFrYVnsS52/giphy.webp" width="90%" style="display: block; margin: auto;" />
]

---

## Página do curso

<div class="shareagain" style="min-width:300px;margin:1em auto;max-width:70%;">
<iframe src="https://beatrizmilz.github.io/2021-senacamb-intro-R/" width="1600" height="900" style="border:2px solid currentColor;" loading="lazy" allowfullscreen></iframe>
<script>fitvids('.shareagain', {players: 'iframe'});</script>
</div>

https://beatrizmilz.github.io/2021-senacamb-intro-R/

---
## O que é o R?

> "R é um ambiente de software livre para computação estatística e gráficos". (https://www.r-project.org/)

- **Por que usar o R**?

- É uma linguagem de programação que possui muitas ferramentas para análise de dados

- É _código aberto_ (open source)

- Possui uma comunidade ativa de pessoas desenvolvedoras

- É flexível, permite desenvolver funções e pacotes para facilitar o trabalho

- Está disponível, gratuitamente, em diferentes plataformas: Windows, Linux e Mac
    
  - Mantido pela [R Development Core Team](https://cran.r-project.org/)

---
class: middle, center

# As vantagens de analisar dados usando linguagens de programação

.footnote[Slide da [Curso-R](https://curso-r.com/)]
---
class: middle, center

### As principais linguagens de programação para ciência de dados são
## Código Aberto

.footnote[Slide da [Curso-R](https://curso-r.com/)]

---
## O que significa ser código aberto?

<br>

1. Acesso gratuito.

2. Todos podem usar as melhores ferramentas independentemente do poder financeiro.

3. Estudantes podem usar as mesmas ferramentas que profissionais.

4. Você pode corrigir problemas e aprimorar a linguagem.

5. Você pode desenvolver suas próprias ferramentas.

6. Possibilita a existência de uma comunidade ativa.

.footnote[Slide da [Curso-R](https://curso-r.com/)]

---
class: middle, center
## O código é uma linguagem

.footnote[Slide da [Curso-R](https://curso-r.com/)]

---
- Podemos documentar a nossa análise
Slide da [Curso-R](https://curso-r.com/)

```r
image_read("https://jeroen.github.io/images/frink.png") %>%
  image_rotate(270) %>%
  image_background("blue", flatten = TRUE) %>%
  image_border("red", "10x10") %>%
  image_annotate("Linguagens de programação ainda\nsão linguagens!",
                 color = "white", size = 30)
```

.pull-left[
#### Entrada
<img src = "https://jeroen.github.io/images/frink.png" style="width:25%">
]

.pull-right[
#### Saída
<img src="index_files/figure-html/frink-out-1.png" width="100%" style="display: block; margin: auto;" />

]

---
class: middle, center
## O código é texto

.footnote[Slide da [Curso-R](https://curso-r.com/)]

---
## Podemos copiar e colar

.footnote[Slide da [Curso-R](https://curso-r.com/)]

---
class: middle, center

## Por que o R?

.footnote[Slide da [Curso-R](https://curso-r.com/)]

---

## O ciclo da ciência de dados

.footnote[Slide da [Curso-R](https://curso-r.com/)]

---
class: inverse, middle, center

# Como aprender R tem sido importante para mim?

---

## Reprodutibilidade

<div class="figure" style="text-align: center">
<img src="https://github.com/allisonhorst/stats-illustrations/raw/master/rstats-artwork/reproducibility_court.png" alt="Ilustração por &lt;a href='https://twitter.com/allison_horst'&gt;Allison Horst&lt;/a&gt;" width="55%" />
<p class="caption">Ilustração por <a href='https://twitter.com/allison_horst'>Allison Horst</a></p>
</div>

---
## Ferramentas antes de R

.pull-left[

- Relatórios e mapas mensais com:

]
.pull-right[

- Sem reprodutibilidade
  
- Demorado
  
- Muito trabalho repetitivo!

]

---

.pull-left[

## Ferramentas com R

<img src="img/rstats.jpeg" width="60%" style="display: block; margin: auto;" /><img src="img/rstudio.png" width="60%" style="display: block; margin: auto;" />
]

.pull-right[
<img src="img/tidyverse.png" width="55%" style="display: block; margin: auto;" /><img src="img/sf.gif" width="55%" style="display: block; margin: auto;" />
]

---
## Exemplo: pacote Mananciais

- Preciso dos dados do Portal de Mananciais da SABESP"https://mananciais.sabesp.com.br/Situacao

- Desenvolvi o pacote mananciais para facilitar o acesso à esses dados: https://beatrizmilz.github.io/mananciais/

- Existe uma apresentação específica nesse tema: https://beatrizmilz.com/talk/2021-ser-uff/

---

<div class="shareagain" style="min-width:300px;margin:1em auto;max-width:100%;">
<iframe src="https://beatrizmilz.github.io/mananciais/" width="1600" height="900" style="border:2px solid currentColor;" loading="lazy" allowfullscreen></iframe>
<script>fitvids('.shareagain', {players: 'iframe'});</script>
</div>

---
class: middle, center

<div id="uojlikqlym" style="overflow-x:auto;overflow-y:auto;width:auto;height:auto;">
<style>html {
  font-family: -apple-system, BlinkMacSystemFont, 'Segoe UI', Roboto, Oxygen, Ubuntu, Cantarell, 'Helvetica Neue', 'Fira Sans', 'Droid Sans', Arial, sans-serif;
}

#uojlikqlym .gt_table {
  display: table;
  border-collapse: collapse;
  margin-left: auto;
  margin-right: auto;
  color: #333333;
  font-size: 16px;
  font-weight: normal;
  font-style: normal;
  background-color: #FFFFFF;
  width: auto;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #A8A8A8;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #A8A8A8;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
}

#uojlikqlym .gt_heading {
  background-color: #FFFFFF;
  text-align: center;
  border-bottom-color: #FFFFFF;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
}

#uojlikqlym .gt_title {
  color: #333333;
  font-size: 125%;
  font-weight: initial;
  padding-top: 4px;
  padding-bottom: 4px;
  border-bottom-color: #FFFFFF;
  border-bottom-width: 0;
}

#uojlikqlym .gt_subtitle {
  color: #333333;
  font-size: 85%;
  font-weight: initial;
  padding-top: 0;
  padding-bottom: 6px;
  border-top-color: #FFFFFF;
  border-top-width: 0;
}

#uojlikqlym .gt_bottom_border {
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#uojlikqlym .gt_col_headings {
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
}

#uojlikqlym .gt_col_heading {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: normal;
  text-transform: inherit;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: bottom;
  padding-top: 5px;
  padding-bottom: 6px;
  padding-left: 5px;
  padding-right: 5px;
  overflow-x: hidden;
}

#uojlikqlym .gt_column_spanner_outer {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: normal;
  text-transform: inherit;
  padding-top: 0;
  padding-bottom: 0;
  padding-left: 4px;
  padding-right: 4px;
}

#uojlikqlym .gt_column_spanner_outer:first-child {
  padding-left: 0;
}

#uojlikqlym .gt_column_spanner_outer:last-child {
  padding-right: 0;
}

#uojlikqlym .gt_column_spanner {
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  vertical-align: bottom;
  padding-top: 5px;
  padding-bottom: 5px;
  overflow-x: hidden;
  display: inline-block;
  width: 100%;
}

#uojlikqlym .gt_group_heading {
  padding: 8px;
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: middle;
}

#uojlikqlym .gt_empty_group_heading {
  padding: 0.5px;
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  vertical-align: middle;
}

#uojlikqlym .gt_from_md > :first-child {
  margin-top: 0;
}

#uojlikqlym .gt_from_md > :last-child {
  margin-bottom: 0;
}

#uojlikqlym .gt_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  margin: 10px;
  border-top-style: solid;
  border-top-width: 1px;
  border-top-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: middle;
  overflow-x: hidden;
}

#uojlikqlym .gt_stub {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-right-style: solid;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  padding-left: 12px;
}

#uojlikqlym .gt_summary_row {
  color: #333333;
  background-color: #FFFFFF;
  text-transform: inherit;
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
}

#uojlikqlym .gt_first_summary_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
}

#uojlikqlym .gt_grand_summary_row {
  color: #333333;
  background-color: #FFFFFF;
  text-transform: inherit;
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
}

#uojlikqlym .gt_first_grand_summary_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-top-style: double;
  border-top-width: 6px;
  border-top-color: #D3D3D3;
}

#uojlikqlym .gt_striped {
  background-color: rgba(128, 128, 128, 0.05);
}

#uojlikqlym .gt_table_body {
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#uojlikqlym .gt_footnotes {
  color: #333333;
  background-color: #FFFFFF;
  border-bottom-style: none;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
}

#uojlikqlym .gt_footnote {
  margin: 0px;
  font-size: 90%;
  padding: 4px;
}

#uojlikqlym .gt_sourcenotes {
  color: #333333;
  background-color: #FFFFFF;
  border-bottom-style: none;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
}

#uojlikqlym .gt_sourcenote {
  font-size: 90%;
  padding: 4px;
}

#uojlikqlym .gt_left {
  text-align: left;
}

#uojlikqlym .gt_center {
  text-align: center;
}

#uojlikqlym .gt_right {
  text-align: right;
  font-variant-numeric: tabular-nums;
}

#uojlikqlym .gt_font_normal {
  font-weight: normal;
}

#uojlikqlym .gt_font_bold {
  font-weight: bold;
}

#uojlikqlym .gt_font_italic {
  font-style: italic;
}

#uojlikqlym .gt_super {
  font-size: 65%;
}

#uojlikqlym .gt_footnote_marks {
  font-style: italic;
  font-weight: normal;
  font-size: 65%;
}
</style>
<table class="gt_table">
  
  <thead class="gt_col_headings">
    <tr>
      <th class="gt_col_heading gt_columns_bottom_border gt_left" rowspan="1" colspan="1">data</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_left" rowspan="1" colspan="1">sistema</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1">volume_porcentagem</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1">volume_variacao</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1">volume_operacional</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1">pluviometria_dia</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1">pluviometria_mensal</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1">pluviometria_hist</th>
    </tr>
  </thead>
  <tbody class="gt_table_body">
    <tr><td class="gt_row gt_left">2021-11-08</td>
<td class="gt_row gt_left">Cantareira</td>
<td class="gt_row gt_right">28.0</td>
<td class="gt_row gt_right">-0.2</td>
<td class="gt_row gt_right">275.18121</td>
<td class="gt_row gt_right">0</td>
<td class="gt_row gt_right">28.6</td>
<td class="gt_row gt_right">149.0</td></tr>
    <tr><td class="gt_row gt_left">2021-11-08</td>
<td class="gt_row gt_left">Alto Tietê</td>
<td class="gt_row gt_right">39.4</td>
<td class="gt_row gt_right">-0.1</td>
<td class="gt_row gt_right">220.59076</td>
<td class="gt_row gt_right">0</td>
<td class="gt_row gt_right">17.1</td>
<td class="gt_row gt_right">130.1</td></tr>
    <tr><td class="gt_row gt_left">2021-11-08</td>
<td class="gt_row gt_left">Guarapiranga</td>
<td class="gt_row gt_right">50.7</td>
<td class="gt_row gt_right">-0.1</td>
<td class="gt_row gt_right">86.81134</td>
<td class="gt_row gt_right">0</td>
<td class="gt_row gt_right">9.0</td>
<td class="gt_row gt_right">124.0</td></tr>
    <tr><td class="gt_row gt_left">2021-11-08</td>
<td class="gt_row gt_left">Cotia</td>
<td class="gt_row gt_right">44.3</td>
<td class="gt_row gt_right">-0.4</td>
<td class="gt_row gt_right">7.30442</td>
<td class="gt_row gt_right">0</td>
<td class="gt_row gt_right">8.2</td>
<td class="gt_row gt_right">126.1</td></tr>
    <tr><td class="gt_row gt_left">2021-11-08</td>
<td class="gt_row gt_left">Rio Grande</td>
<td class="gt_row gt_right">82.8</td>
<td class="gt_row gt_right">-0.3</td>
<td class="gt_row gt_right">92.88120</td>
<td class="gt_row gt_right">0</td>
<td class="gt_row gt_right">16.4</td>
<td class="gt_row gt_right">140.2</td></tr>
    <tr><td class="gt_row gt_left">2021-11-08</td>
<td class="gt_row gt_left">Rio Claro</td>
<td class="gt_row gt_right">44.6</td>
<td class="gt_row gt_right">0.0</td>
<td class="gt_row gt_right">6.09068</td>
<td class="gt_row gt_right">0</td>
<td class="gt_row gt_right">33.8</td>
<td class="gt_row gt_right">195.5</td></tr>
    <tr><td class="gt_row gt_left">2021-11-08</td>
<td class="gt_row gt_left">São Lourenço</td>
<td class="gt_row gt_right">68.6</td>
<td class="gt_row gt_right">-0.1</td>
<td class="gt_row gt_right">60.96625</td>
<td class="gt_row gt_right">0</td>
<td class="gt_row gt_right">7.2</td>
<td class="gt_row gt_right">154.6</td></tr>
  </tbody>
  
  
</table>
</div>

---

---
class: inverse, middle, center

# RStudio

---

## RStudio

**RStudio** é uma IDE (_integrated development environment_) da Linguagem R, ou seja, um ambiente de desenvolvimento que utilizamos para editar e executar os códigos em R.

---
## RStudio