STRANGE-R METHODOLOGIES

.title[
# STRANGE-R METHODOLOGIES
]
.subtitle[
## Ensinando R de trás-pra-frente
]
.author[
### Carolina Musso
]
.institute[
### Latin R 2022
]
.date[
### 12-14 de outubro
]

---

# UMA BREVE APRESENTAÇÃO DOS AUTORES ...
---
layout: true

---

#### Carolina Musso
<center><img src="img/carol.png" height="150px" /></center>

*  Bióloga, Dra em Ecologia
*  Estudante de Estatística
*  Pesquisadora Colaboradora
  - Dep. Saúde Coletiva  - UnB
* Servidora Púplica
  - Secretaria da Saúde, Distrito Federal
* Consultora
  - Ministério da Saúde
* [<svg aria-hidden="true" role="img" viewBox="0 0 448 512" style="height:1em;width:0,88em;vertical-align:-0.125em;margin-left:auto;margin-right:auto;font-size:inherit;fill:currentColor;overflow:visible;position:relative;"><path d="M416 32H31.9C14.3 32 0 46.5 0 64.3v383.4C0 465.5 14.3 480 31.9 480H416c17.6 0 32-14.5 32-32.3V64.3c0-17.8-14.4-32.3-32-32.3zM135.4 416H69V202.2h66.5V416zm-33.2-243c-21.3 0-38.5-17.3-38.5-38.5S80.9 96 102.2 96c21.2 0 38.5 17.3 38.5 38.5 0 21.3-17.2 38.5-38.5 38.5zm282.1 243h-66.4V312c0-24.8-.5-56.7-34.5-56.7-34.6 0-39.9 27-39.9 54.9V416h-66.4V202.2h63.7v29.2h.9c8.9-16.8 30.6-34.5 62.9-34.5 67.2 0 79.7 44.3 79.7 101.9V416z"/></svg>](<https://www.linkedin.com/in/carolina-musso-29b627128/>) [<svg aria-hidden="true" role="img" viewBox="0 0 496 512" style="height:1em;width:0,97em;vertical-align:-0.125em;margin-left:auto;margin-right:auto;font-size:inherit;fill:currentColor;overflow:visible;position:relative;"><path d="M165.9 397.4c0 2-2.3 3.6-5.2 3.6-3.3 .3-5.6-1.3-5.6-3.6 0-2 2.3-3.6 5.2-3.6 3-.3 5.6 1.3 5.6 3.6zm-31.1-4.5c-.7 2 1.3 4.3 4.3 4.9 2.6 1 5.6 0 6.2-2s-1.3-4.3-4.3-5.2c-2.6-.7-5.5 .3-6.2 2.3zm44.2-1.7c-2.9 .7-4.9 2.6-4.6 4.9 .3 2 2.9 3.3 5.9 2.6 2.9-.7 4.9-2.6 4.6-4.6-.3-1.9-3-3.2-5.9-2.9zM244.8 8C106.1 8 0 113.3 0 252c0 110.9 69.8 205.8 169.5 239.2 12.8 2.3 17.3-5.6 17.3-12.1 0-6.2-.3-40.4-.3-61.4 0 0-70 15-84.7-29.8 0 0-11.4-29.1-27.8-36.6 0 0-22.9-15.7 1.6-15.4 0 0 24.9 2 38.6 25.8 21.9 38.6 58.6 27.5 72.9 20.9 2.3-16 8.8-27.1 16-33.7-55.9-6.2-112.3-14.3-112.3-110.5 0-27.5 7.6-41.3 23.6-58.9-2.6-6.5-11.1-33.3 2.6-67.9 20.9-6.5 69 27 69 27 20-5.6 41.5-8.5 62.8-8.5s42.8 2.9 62.8 8.5c0 0 48.1-33.6 69-27 13.7 34.7 5.2 61.4 2.6 67.9 16 17.7 25.8 31.5 25.8 58.9 0 96.5-58.9 104.2-114.8 110.5 9.2 7.9 17 22.9 17 46.4 0 33.7-.3 75.4-.3 83.6 0 6.5 4.6 14.4 17.3 12.1C428.2 457.8 496 362.9 496 252 496 113.3 383.5 8 244.8 8zM97.2 352.9c-1.3 1-1 3.3 .7 5.2 1.6 1.6 3.9 2.3 5.2 1 1.3-1 1-3.3-.7-5.2-1.6-1.6-3.9-2.3-5.2-1zm-10.8-8.1c-.7 1.3 .3 2.9 2.3 3.9 1.6 1 3.6 .7 4.3-.7 .7-1.3-.3-2.9-2.3-3.9-2-.6-3.6-.3-4.3 .7zm32.4 35.6c-1.6 1.3-1 4.3 1.3 6.2 2.3 2.3 5.2 2.6 6.5 1 1.3-1.3 .7-4.3-1.3-6.2-2.2-2.3-5.2-2.6-6.5-1zm-11.4-14.7c-1.6 1-1.6 3.6 0 5.9 1.6 2.3 4.3 3.3 5.6 2.3 1.6-1.3 1.6-3.9 0-6.2-1.4-2.3-4-3.3-5.6-2z"/></svg>](<https://github.com/cmusso86>) <svg aria-hidden="true" role="img" viewBox="0 0 512 512" style="height:1em;width:1em;vertical-align:-0.125em;margin-left:auto;margin-right:auto;font-size:inherit;fill:currentColor;overflow:visible;position:relative;"><path d="M464 64C490.5 64 512 85.49 512 112C512 127.1 504.9 141.3 492.8 150.4L275.2 313.6C263.8 322.1 248.2 322.1 236.8 313.6L19.2 150.4C7.113 141.3 0 127.1 0 112C0 85.49 21.49 64 48 64H464zM217.6 339.2C240.4 356.3 271.6 356.3 294.4 339.2L512 176V384C512 419.3 483.3 448 448 448H64C28.65 448 0 419.3 0 384V176L217.6 339.2z"/></svg> cmusso86@gmail.com
  
---

*   Biólogo
*   Mestrando em Ecologia (Unicamp)
*   Consultor OPAS
  - PROFESP - Dep. EMSP
  - Ministério da Saúde
  
]

#### Paola Freitas
<center><img src="img/pagu.jpeg" height="150px" /></center>

* Estudante de biologia
* Bolsista UnB Cerrado
* Bolsista Fiocruz
   PROFESP - Dep. EMSP
  - Ministério da Saúde
]

---
.pull-left[
#### Taynná Almeida
<center><img src="img/tayna.png" height="150px" /></center>

* Dra em Biotecnologia
* Pós-doutora em Ciências da Saúde
* Especialista em Epidemiologia
* Gerente de Projeto
  - Dep. EMSP 
  - Ministério da Saúde

]

* Bióloga, Dra em Saúde Coletiva
* Especialista em Epidemiologia
* Coordenadora Geral  
  - CIEVS-Dep. EMSP
  - Minstério da Saúde
]

---
class: center middle

# INTRODUÇÃO

---

### O Ensino de R para Profissionais de Saúde

- **Necessidade** de dominar ferramentas poderosas.

- No entanto,há o **desafio** pouco tempo para aprender ...

---

# Vigilância a Saúde

*"Processo contínuo e sistemático de coleta, consolidação, análise de dados e disseminação de informações sobre eventos relacionados à saúde, visando o planejamento e a implementação de medidas de saúde pública, incluindo a regulação, intervenção e atuação em condicionantes e e determinantes da saúde, para a proteção e promoção da saúde da população, prevenção e controle de riscos, agravos e doenças"*

---
## Muitas analises

### Pouco tempo de analisalas

* Muito tempo + softwares + profissionais

- Maior possibilidade de erro
---

# Hello World!

---
# Jornada do Heroi

---

## OBJETIVOS

* Capacitar os proficionais a utilizar o R

- Tornando-os autossuficientes

* Possibilitar a produção de seus primeiros documentos automatizados em Rmarkdown

---
## Bibliografia Principal

+ [The Epi-R Handbook](<https://epirhandbook.com/en/>)  
  
  
  + [R4DS](<https://r4ds.had.co.nz/data-visualisation.html>)  
  
  
  + [Curso-R](<https://livro.curso-r.com>)

---
## IDEIA DO CURSO

* **De Trás-prá-frente**

- Apresentar as **potencialidades**
  
  - Manipular o código de forma mais **intuitiva**
  
  - Apresentar os conceitos formalmente **posteriormente**
  
  - Ensinar a "se virar"
  
  - Foco na resolução do problema, e não em ser um programador
  
---

- 7 modulos

- Aula expositiva **síncrona**

- Exercício durante a aula
  - Kahoot ao fim da aula

- Exercícios extraclasse

- Fim do modulo com tutoria individual

---
## Módulo 1

**"Como rodar aquele código que alguém fez pra mim"**

- Executar rotinas já estabelecidas.

- Compreender e identificar possíveis erros e como corrigi-los.

- Introdução ao RMarkdown.

- Conceitos básicos (objetos, vetores, console, data frame) abordados de forma "imersiva".
---
# COMO ERA UM EXERCÍCIO

```r
rm(list=ls()) 
# PACOTES ----
if (!require(pacman)) install.packages("pacman")
  pacman::p_load(tidyverse, data.table)
  
# BANCO 
  who_data <- fread("https://covid19.who.int/WHO-COVID-19-global-data.csv")
  
# MANIPULAÇÕES ----
  who_trat <- who_data %>% 
  group_by(Country) %>% 
  summarise(Acumulado=max(Cumulative_cases,
                          na.rm=T)) %>% 
  filter (Acumulado > 10000000) 
```

---
# COMO ERA UM EXERCÍCIO

```r
ggplot(who_trat)+
  geom_col(aes(x=Country, y=Acumulado), 
            color="black", fill="orange")+
  coord_flip()+
  theme_classic()
```

---
# Módulo 2

**"Mas é que eu queria esse gráfico de outra cor"**

---

## Módulo 3

**"Às vezes devemos dar um passo para trás antes de continuar"**

---

## Módulo 4

**“Nada se cria, tudo se transforma”**

---

## Módulo 5

**"Servidor público adora uma tabela"**

---

## Módulo 6 
**"Tópicos avançados"**

---
## Módulo 7

**“Tudo junto misturado: Trabalho final”**

---

### Exemplo 1: A acompanhamento do pré-natal

---

### Exemplo 2: Qualidade do Banco de covid-19

---
## Obrigada!