Semillero R

class: center, middle, inverse, title-slide

.title[
# Semillero R
]
.subtitle[
## Sesión 2: Tidyverse y bibliotecas auxiliares
]
.institute[
### Universidad Nacional - Universidad de Antioquia
]
.date[
### 2021-03-29
]

---

# Objetos básicos en R

---

# Objetos estructurados en R

---
background-image: url(https://www.tidyverse.org/images/tidyverse-default.png)
background-position: 50% 50%
class: center, bottom, inverse

---
class: center, middle

# Proceso de análisis de datos

---

# Procesos comunes en manipulación de datos

## 1. Coercionar una variable
## 2. Seleccionar una o más variables
## 3. Filtrar filas basado en alguna condición
## 4. Editar nombres de variables
## 5. Calcular métricas estadísticas

---

# R "convencional" vs `tidyverse`

## Ejemplo 1: coercionar una variable

.pull-left[

### R "convencional"

```r
ejemplo <- iris
class(ejemplo$Species)
```

```
## [1] "factor"
```

```r
ejemplo$Species <- as.character(ejemplo$Species)
class(ejemplo$Species)
```

```
## [1] "character"
```

]

.pull-right[

### `tidyverse`

```r
library(tidyverse)
ejemplo <- ejemplo %>% 
  mutate(Species = as.character(Species))
```

]

---

# R "convencional" vs `tidyverse`

## Ejemplo 2: seleccionar una o más variables

.pull-left[

### R "convencional"

```r
# Primera forma
forma1 <- iris[, c(2, 3)]

# Segunda forma
forma2 <- iris[, c("Sepal.Width", "Petal.Length")]

# Tercera forma
forma3 <- subset(iris,
                 select = c(Sepal.Width, Petal.Length))
```

]

.pull-right[

### `tidyverse`

```r
library(tidyverse)
forma_tidy <- iris %>% 
  select(Sepal.Width, Petal.Length)
```

]

---

# R "convencional" vs `tidyverse`

## Ejemplo 3: filtrar observaciones

.pull-left[

### R "convencional"

```r
# Filtro 1 (mayor que)
filtro1 <- iris[iris$Sepal.Length > 6, ]

# Filtro 2 (igual a)
filtro2 <- iris[iris$Species == "versicolor", ]

# Filtro 3
filtro3 <- subset(iris, Sepal.Length > 6)
```

]

.pull-right[

### `tidyverse`

```r
library(tidyverse)
filtro_tidy1 <- iris %>% 
  filter(Sepal.Length > 6)

filtro_tidy2 <- iris %>% 
  filter(Sepal.Length > 6 & Species == "versicolor")
```

]

---

# R "convencional" vs `tidyverse`

## Ejemplo 4: editar nombres de variables

.pull-left[

### R "convencional"

```r
# Forma 1
names(iris) <- c("v1", "v2", "v3", "v4", "v5")

# Forma 2
setNames(ejemplo, nm = c("v1", "v2", "v3", "v4", "v5"))
```

]

.pull-right[

### `tidyverse`

```r
# Todos los nombres
library(tidyverse)
nombres_tidy1 <- iris %>% 
  set_names(c("v1", "v2", "v3", "v4", "v5"))

# Nombres individuales
nombres_tidy2 <- iris %>% 
  rename(nuevo_nombre = Sepal.Length)
```

]

---

# R "convencional" vs `tidyverse`

## Ejemplo 5: calcular la media de una variable

.pull-left[

### R "convencional"

```r
mean(iris$Sepal.Length)
```

```
## [1] 5.843333
```

]

.pull-right[

### `tidyverse`

```r
iris %>% 
  pull(Sepal.Length) %>% 
  mean()
```

```
## [1] 5.843333
```

]

---
class: inverse, center, middle

# Bibliotecas [`tidyverse`](https://www.tidyverse.org/)

.pull-left[

]

.pull-right[

]

.pull-right[

.pull-left[
<center>
<img src = "https://d33wubrfki0l68.cloudfront.net/45fd04ad9cdb2159fea08d07dbc11e742d68e4e3/df327/css/images/hex/stringr.png" width = 85 />
</center>

]

.pull-right[

]

---
class: inverse, center, middle

# Ejemplo [AlimenTro](https://alimentro.agrosavia.co/Home/Index?ReturnUrl=%2f)

---
class: inverse, center, middle

## Descargar datos [aquí](/Actividades/2021_01/data/Alimentos_del_tr_pico_para_alimentaci_n_animal_-_AlimenTro.csv)

## Consultar [datos abiertos AlimenTro](https://www.datos.gov.co/Agricultura-y-Desarrollo-Rural/Alimentos-del-tr-pico-para-alimentaci-n-animal-Ali/6arb-d547)

---
class: inverse, center, middle

# Pasos a seguir

### 1. Limpiar nombres

### 2. Transformación de variables

### 3. Seleccionar variables de interés

### 4. Obtener métricas descriptivas

### 5. Construir visualizaciones

---
class: inverse, center, middle

# Ejemplos datos desordenados

> *“Todos los set de datos ordenados se parecen unos a otros, pero cada set de datos desordenado lo es a su manera”* — Hadley Wickham

---
class: inverse, center, middle

# Ejemplo 1: Homicidios en Quindío

## Descargar datos [aquí](/Actividades/2021_01/data/Tasas_de_homicidios_seg_n_municipios_por_cien_mil_habitantes._A_os_1990_-_2017.csv)

## Consultar [datos abiertos *homicidios departamento del Quindío 1990-2017*](https://www.datos.gov.co/Estad-sticas-Nacionales/Tasas-de-homicidios-seg-n-municipios-por-cien-mil-/7n7b-qavj)

---
class: inverse, center, middle

# Ejemplo 2: Caudal río Chinchiná 2016

## Descargar datos [aquí](/Actividades/2021_01/data/Caudal_Rio_Chinchina_2016.csv)

## Consultar [datos abiertos *caudal río Chinchiná 2016*](https://www.datos.gov.co/Ambiente-y-Desarrollo-Sostenible/Caudal-Rio-Chinchina-2016/ng69-pr5i)

---
class: inverse, center, middle

# Ejemplo 3: Accidentes de tránsito Florencia 2011

## Descargar datos [aquí](/Actividades/2021_01/data/Accidentes_de_transporte__tasas_de_lesiones_por_100.000_habitantes__seg_n_edad_y_sexo__Colombia__2011.csv)

## Consultar [datos abiertos *accidentes de tránsito Florencia, Caquetá - 2011*](https://www.datos.gov.co/Estad-sticas-Nacionales/Accidentes-de-transporte-tasas-de-lesiones-por-100/6fck-pt5v)

---
class: inverse, center, middle

# Ejemplo 4: Raíces, bulbos y tubérculos en el Valle del Cauca

## Descargar datos [aquí](/Actividades/2021_01/data/data_cultivos_valle.zip)

### Consultar [datos abiertos *superficie sembrada raíces, bulbos y tubérculos*](https://www.datos.gov.co/Agricultura-y-Desarrollo-Rural/Superficie-Sembrada-con-Ra-ces-Bulbos-y-Tub-rculos/h7vs-gf6t)

### Consultar [datos abiertos *superficie cosechada raíces, bulbos y tubérculos*](https://www.datos.gov.co/Agricultura-y-Desarrollo-Rural/Superficie-Cosechada-con-Ra-ces-Bulbos-y-Tub-rculo/2uev-8vbt)

### Consultar [datos abiertos *producción raíces, bulbos y tubérculos*](https://www.datos.gov.co/Agricultura-y-Desarrollo-Rural/Producci-n-en-Toneladas-por-Hect-reas-de-Ra-ces-Bu/hg7h-itmt)

### Consultar [datos abiertos *rendimiento raíces, bulbos y tubérculos*](https://www.datos.gov.co/Agricultura-y-Desarrollo-Rural/Rendimiento-en-toneladas-por-hect-reas-en-Cultivos/239z-ikj9)

---
class: inverse, center, middle

# [*R para Ciencia de Datos*](https://es.r4ds.hadley.nz/)

---
class: inverse, center, middle

# [*Libro Vivo de Ciencia de Datos*](https://librovivodecienciadedatos.ai/)

---
class: inverse, center, middle