Presentaciones dinámicas con Rmarkdown

# Presentaciones dinámicas con Rmarkdown
## Rmarkdown para reportes y visualización de datos
### ixpantia
### miércoles 02 de diciembre 2020

---

background-image: url(img/microfono.jpg)
background-size: cover
# Estamos grabando

---
class: middle

# Agenda hoy

#ianwtztzbl .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;
}

#ianwtztzbl .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;
}

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

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

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

#ianwtztzbl .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;
}

#ianwtztzbl .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;
}

#ianwtztzbl .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;
}

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

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

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

#ianwtztzbl .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;
}

#ianwtztzbl .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;
}

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

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

#ianwtztzbl .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;
}

#ianwtztzbl .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;
}

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

#ianwtztzbl .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;
}

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

#ianwtztzbl .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;
}

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

#ianwtztzbl .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;
}

#ianwtztzbl .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;
}

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

#ianwtztzbl .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;
}

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

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

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

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

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

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

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

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

#ianwtztzbl .gt_footnote_marks {
 font-style: italic;
 font-size: 65%;
}
</style>
<div id="ianwtztzbl" style="overflow-x:auto;overflow-y:auto;width:auto;height:auto;"><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"> </th>
 <th class="gt_col_heading gt_columns_bottom_border gt_left" rowspan="1" colspan="1"> </th>
 <th class="gt_col_heading gt_columns_bottom_border gt_left" rowspan="1" colspan="1"> </th>
 </tr>
 </thead>
 <tbody class="gt_table_body">
 <tr>
 <td class="gt_row gt_left">14:00</td>
 <td class="gt_row gt_left">14:10</td>
 <td class="gt_row gt_left">Introducción</td>
 </tr>
 <tr>
 <td class="gt_row gt_left">14:10</td>
 <td class="gt_row gt_left">15:00</td>
 <td class="gt_row gt_left">Dudas</td>
 </tr>
 <tr>
 <td class="gt_row gt_left">15:00</td>
 <td class="gt_row gt_left">15:10</td>
 <td class="gt_row gt_left">Café</td>
 </tr>
 <tr>
 <td class="gt_row gt_left">15:10</td>
 <td class="gt_row gt_left">15:50</td>
 <td class="gt_row gt_left">Pesentaciones: paso a paso</td>
 </tr>
 <tr>
 <td class="gt_row gt_left">15:50</td>
 <td class="gt_row gt_left">16:00</td>
 <td class="gt_row gt_left">Preguntas y discusión</td>
 </tr>
 </tbody>
 
 
</table></div>

---
background-image: url(img/actualizar0.png)
background-size: contain
---
background-image: url(img/actualizar1.png)
background-size: contain
---
background-image: url(img/actualizar2.png)
background-size: cover
---
background-image: url(img/actualizar3.png)
background-size: cover
---
background-image: url(img/actualizar4.png)
background-size: cover
---
name: xaringan-title
class: center, middle

# xaringan

### Presentaciones en R Markdown

---

# .center[¿Qué es xaringan?]

.center[
<img src="https://pluralsight.imgix.net/paths/path-icons/javascript-36f5949a45.png" width="25%"/>

<img src="https://raw.githubusercontent.com/rstudio/hex-stickers/master/PNG/rmarkdown.png" width="20%" />
]

]

Una librería de R para crear presentaciones HTML con remark.js usando R Markdown
.center[
<img src= img/xaringan-logo.png
width= 40%>
]

]
---
# ¿Por qué xaringan?

- Reproducibilidad: Igual que los reportes de Rmarkdown
 - Puedes reutilizar el código del reporte y convertirlo en una presentación
 - Puedes publicarlo en la web
 - Puedes hacer un machote con un estilo de presentación de la organización
 
---
# El paquete

```r
# install.packages("xaringan")
library(xaringan)
```

---

# El formato de salida

```yaml
---
output: xaringan::moon_reader
---
```

---

# Una nueva lámina

- 3 guiones en una fila por si mismos: `---` marcan la división de una nueva lámina 
]

Hola! Soy la lámina 1

---

Y yo soy la lámina 2

```
]

---

# Usamos markdown

+ encabezados (`#`, etc.)

+ `**negritas**`

+ `*itálicas*`

+ listas (¡como esta!)

]

# Introducción

¡Hola! Yo soy la **lamina** 1

---

# Acerca de *mi*

Y yo la lámina 2

```
]

---

# Cada lamina tiene su propio YAML

.pull-left[
Las propiedades de la lámina se cambian usando `class`:
#### Vertical
+ top *(arriba)*
+ bottom *(abajo)*
+ middle *(medio)*

<hr>
#### Horizontal
+ left *(izquierda)*
+ right *(derecha)*
+ center *(centrada)*

<hr>
+ inverse *(inverso)*

]

# Introducción

¡Hola! Yo soy la **lamina** 1

---
class: bottom, right

# Acerca de *mi*

Y yo la lámina 2

```
]
---
name: textalign-demo

# Alinear solo algún texto

```
.left[texto]

```r
---

# Lamina con texto alineado

Me gusta el pan. También el queso y el ...

*.left[vino]

---
```
]

---

# Lamina con texto alineado

Me gusta el pan. También el queso y el ...

---

```r
---

# ¿Y las imágenes?

Me gusta el pan. También el queso, el vino y  ...
![Logo xarigan](img/xaringan-logo.png)

---
```

]

Me gusta el pan. También el queso, el vino y  ...

#![Logo xaringan](img/xaringan-logo.png)

]]

]

---
# Revelar parcialmente
.left-column[

```
# Hola

Me gusta el pan,

el queso,

el vino

y xaringan
```
]

### Hola

Me gusta el pan,
{{content}}

]

el queso,
{{content}}

el vino
{{content}}

y xaringan

---
# ¿Y el código?

Simplemente se incluye el chunk

```r
distribucion %>%
  group_by(curso_lectivo) %>% 
  count()
```

```
## # A tibble: 11 x 2
## # Groups: curso_lectivo [11]
## curso_lectivo n
## <dbl> <int>
## 1 2009 7452
## 2 2010 7560
## 3 2011 7836
## 4 2012 8328
## 5 2013 8796
## 6 2014 8916
## 7 2015 8832
## 8 2016 8880
## 9 2017 7836
## 10 2018 7848
## 11 2019 8940
```
---
## Dos columnas
#### Por ejemplo, código primero, luego el gráfico

````
.pull-left[
```{r plot-last, fig.show = 'hide'}
El código va aquí
```
]
.pull-right[
```{r ref.label = 'plot-last', echo = FALSE}
```
]
````
]

```r
grafico <- distribucion %>% 
 group_by(provincia, curso_lectivo) %>% 
 count() %>% 
 ggplot(aes(x = as.factor(curso_lectivo), y = n, fill = provincia)) +
 geom_bar(stat = "identity") +
 scale_fill_viridis_d() +
 theme_light() +
 labs(x = "Año curso lectivo",
 y = "Total de registros",
 fill = "Provincia")
grafico
```
]

.pull-right[
<img src="08_presentaciones_rmarkdown_files/figure-html/unnamed-chunk-7-1.png" width="80%" />
]
]
]
---

# Tablas

```r
head(iris) %>% 
  gt()
```

#zrbylmofrm .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;
}

#zrbylmofrm .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;
}

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

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

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

#zrbylmofrm .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;
}

#zrbylmofrm .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;
}

#zrbylmofrm .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;
}

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

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

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

#zrbylmofrm .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;
}

#zrbylmofrm .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;
}

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

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

#zrbylmofrm .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;
}

#zrbylmofrm .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;
}

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

#zrbylmofrm .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;
}

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

#zrbylmofrm .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;
}

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

#zrbylmofrm .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;
}

#zrbylmofrm .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;
}

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

#zrbylmofrm .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;
}

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

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

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

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

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

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

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

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

#zrbylmofrm .gt_footnote_marks {
 font-style: italic;
 font-size: 65%;
}
</style>
<div id="zrbylmofrm" style="overflow-x:auto;overflow-y:auto;width:auto;height:auto;"><table class="gt_table">
 
 <thead class="gt_col_headings">
 <tr>
 <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1">Sepal.Length</th>
 <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1">Sepal.Width</th>
 <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1">Petal.Length</th>
 <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1">Petal.Width</th>
 <th class="gt_col_heading gt_columns_bottom_border gt_center" rowspan="1" colspan="1">Species</th>
 </tr>
 </thead>
 <tbody class="gt_table_body">
 <tr>
 <td class="gt_row gt_right">5.1</td>
 <td class="gt_row gt_right">3.5</td>
 <td class="gt_row gt_right">1.4</td>
 <td class="gt_row gt_right">0.2</td>
 <td class="gt_row gt_center">setosa</td>
 </tr>
 <tr>
 <td class="gt_row gt_right">4.9</td>
 <td class="gt_row gt_right">3.0</td>
 <td class="gt_row gt_right">1.4</td>
 <td class="gt_row gt_right">0.2</td>
 <td class="gt_row gt_center">setosa</td>
 </tr>
 <tr>
 <td class="gt_row gt_right">4.7</td>
 <td class="gt_row gt_right">3.2</td>
 <td class="gt_row gt_right">1.3</td>
 <td class="gt_row gt_right">0.2</td>
 <td class="gt_row gt_center">setosa</td>
 </tr>
 <tr>
 <td class="gt_row gt_right">4.6</td>
 <td class="gt_row gt_right">3.1</td>
 <td class="gt_row gt_right">1.5</td>
 <td class="gt_row gt_right">0.2</td>
 <td class="gt_row gt_center">setosa</td>
 </tr>
 <tr>
 <td class="gt_row gt_right">5.0</td>
 <td class="gt_row gt_right">3.6</td>
 <td class="gt_row gt_right">1.4</td>
 <td class="gt_row gt_right">0.2</td>
 <td class="gt_row gt_center">setosa</td>
 </tr>
 <tr>
 <td class="gt_row gt_right">5.4</td>
 <td class="gt_row gt_right">3.9</td>
 <td class="gt_row gt_right">1.7</td>
 <td class="gt_row gt_right">0.4</td>
 <td class="gt_row gt_center">setosa</td>
 </tr>
 </tbody>
 
 
</table></div>

---

# Tablas: no código

<table>
 <thead>
 <tr>
 <th style="text-align:right;"> Sepal.Length </th>
 <th style="text-align:right;"> Sepal.Width </th>
 <th style="text-align:right;"> Petal.Length </th>
 <th style="text-align:right;"> Petal.Width </th>
 <th style="text-align:left;"> Species </th>
 </tr>
 </thead>
<tbody>
 <tr>
 <td style="text-align:right;"> 5.1 </td>
 <td style="text-align:right;"> 3.5 </td>
 <td style="text-align:right;"> 1.4 </td>
 <td style="text-align:right;"> 0.2 </td>
 <td style="text-align:left;"> setosa </td>
 </tr>
 <tr>
 <td style="text-align:right;"> 4.9 </td>
 <td style="text-align:right;"> 3.0 </td>
 <td style="text-align:right;"> 1.4 </td>
 <td style="text-align:right;"> 0.2 </td>
 <td style="text-align:left;"> setosa </td>
 </tr>
 <tr>
 <td style="text-align:right;"> 4.7 </td>
 <td style="text-align:right;"> 3.2 </td>
 <td style="text-align:right;"> 1.3 </td>
 <td style="text-align:right;"> 0.2 </td>
 <td style="text-align:left;"> setosa </td>
 </tr>
 <tr>
 <td style="text-align:right;"> 4.6 </td>
 <td style="text-align:right;"> 3.1 </td>
 <td style="text-align:right;"> 1.5 </td>
 <td style="text-align:right;"> 0.2 </td>
 <td style="text-align:left;"> setosa </td>
 </tr>
 <tr>
 <td style="text-align:right;"> 5.0 </td>
 <td style="text-align:right;"> 3.6 </td>
 <td style="text-align:right;"> 1.4 </td>
 <td style="text-align:right;"> 0.2 </td>
 <td style="text-align:left;"> setosa </td>
 </tr>
 <tr>
 <td style="text-align:right;"> 5.4 </td>
 <td style="text-align:right;"> 3.9 </td>
 <td style="text-align:right;"> 1.7 </td>
 <td style="text-align:right;"> 0.4 </td>
 <td style="text-align:left;"> setosa </td>
 </tr>
</tbody>
</table>
---
# Visualizaciones interactivas

<div id="htmlwidget-ffba27d751b2f4ce0ec6" style="width:504px;height:504px;" class="plotly html-widget"></div>
<script type="application/json" data-for="htmlwidget-ffba27d751b2f4ce0ec6">{"x":{"data":[{"orientation":"v","width":[0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.899999999999999,0.899999999999999,0.899999999999999,0.899999999999999],"base":[5820,5928,6132,6528,6936,7020,6936,6996,6168,6180,7044],"x":[1,2,3,4,5,6,7,8,9,10,11],"y":[1632,1632,1704,1800,1860,1896,1896,1884,1668,1668,1896],"text":["as.factor(curso_lectivo): 2009 n: 1632 provincia: ALAJUELA","as.factor(curso_lectivo): 2010 n: 1632 provincia: ALAJUELA","as.factor(curso_lectivo): 2011 n: 1704 provincia: ALAJUELA","as.factor(curso_lectivo): 2012 n: 1800 provincia: ALAJUELA","as.factor(curso_lectivo): 2013 n: 1860 provincia: ALAJUELA","as.factor(curso_lectivo): 2014 n: 1896 provincia: ALAJUELA","as.factor(curso_lectivo): 2015 n: 1896 provincia: ALAJUELA","as.factor(curso_lectivo): 2016 n: 1884 provincia: ALAJUELA","as.factor(curso_lectivo): 2017 n: 1668 provincia: ALAJUELA","as.factor(curso_lectivo): 2018 n: 1668 provincia: ALAJUELA","as.factor(curso_lectivo): 2019 n: 1896 provincia: ALAJUELA"],"type":"bar","marker":{"autocolorscale":false,"color":"rgba(68,1,84,1)","line":{"width":1.88976377952756,"color":"transparent"}},"name":"ALAJUELA","legendgroup":"ALAJUELA","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","frame":null},{"orientation":"v","width":[0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.899999999999999,0.899999999999999,0.899999999999999,0.899999999999999],"base":[5112,5208,5400,5760,6144,6252,6180,6228,5484,5484,6264],"x":[1,2,3,4,5,6,7,8,9,10,11],"y":[708,720,732,768,792,768,756,768,684,696,780],"text":["as.factor(curso_lectivo): 2009 n: 708 provincia: CARTAGO","as.factor(curso_lectivo): 2010 n: 720 provincia: CARTAGO","as.factor(curso_lectivo): 2011 n: 732 provincia: CARTAGO","as.factor(curso_lectivo): 2012 n: 768 provincia: CARTAGO","as.factor(curso_lectivo): 2013 n: 792 provincia: CARTAGO","as.factor(curso_lectivo): 2014 n: 768 provincia: CARTAGO","as.factor(curso_lectivo): 2015 n: 756 provincia: CARTAGO","as.factor(curso_lectivo): 2016 n: 768 provincia: CARTAGO","as.factor(curso_lectivo): 2017 n: 684 provincia: CARTAGO","as.factor(curso_lectivo): 2018 n: 696 provincia: CARTAGO","as.factor(curso_lectivo): 2019 n: 780 provincia: CARTAGO"],"type":"bar","marker":{"autocolorscale":false,"color":"rgba(68,58,131,1)","line":{"width":1.88976377952756,"color":"transparent"}},"name":"CARTAGO","legendgroup":"CARTAGO","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","frame":null},{"orientation":"v","width":[0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.899999999999999,0.899999999999999,0.899999999999999,0.899999999999999],"base":[4308,4380,4560,4812,5124,5244,5184,5256,4668,4668,5280],"x":[1,2,3,4,5,6,7,8,9,10,11],"y":[804,828,840,948,1020,1008,996,972,816,816,984],"text":["as.factor(curso_lectivo): 2009 n: 804 provincia: GUANACASTE","as.factor(curso_lectivo): 2010 n: 828 provincia: GUANACASTE","as.factor(curso_lectivo): 2011 n: 840 provincia: GUANACASTE","as.factor(curso_lectivo): 2012 n: 948 provincia: GUANACASTE","as.factor(curso_lectivo): 2013 n: 1020 provincia: GUANACASTE","as.factor(curso_lectivo): 2014 n: 1008 provincia: GUANACASTE","as.factor(curso_lectivo): 2015 n: 996 provincia: GUANACASTE","as.factor(curso_lectivo): 2016 n: 972 provincia: GUANACASTE","as.factor(curso_lectivo): 2017 n: 816 provincia: GUANACASTE","as.factor(curso_lectivo): 2018 n: 816 provincia: GUANACASTE","as.factor(curso_lectivo): 2019 n: 984 provincia: GUANACASTE"],"type":"bar","marker":{"autocolorscale":false,"color":"rgba(49,104,142,1)","line":{"width":1.88976377952756,"color":"transparent"}},"name":"GUANACASTE","legendgroup":"GUANACASTE","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","frame":null},{"orientation":"v","width":[0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.899999999999999,0.899999999999999,0.899999999999999,0.899999999999999],"base":[3756,3816,3984,4188,4512,4584,4524,4572,4032,4032,4584],"x":[1,2,3,4,5,6,7,8,9,10,11],"y":[552,564,576,624,612,660,660,684,636,636,696],"text":["as.factor(curso_lectivo): 2009 n: 552 provincia: HEREDIA","as.factor(curso_lectivo): 2010 n: 564 provincia: HEREDIA","as.factor(curso_lectivo): 2011 n: 576 provincia: HEREDIA","as.factor(curso_lectivo): 2012 n: 624 provincia: HEREDIA","as.factor(curso_lectivo): 2013 n: 612 provincia: HEREDIA","as.factor(curso_lectivo): 2014 n: 660 provincia: HEREDIA","as.factor(curso_lectivo): 2015 n: 660 provincia: HEREDIA","as.factor(curso_lectivo): 2016 n: 684 provincia: HEREDIA","as.factor(curso_lectivo): 2017 n: 636 provincia: HEREDIA","as.factor(curso_lectivo): 2018 n: 636 provincia: HEREDIA","as.factor(curso_lectivo): 2019 n: 696 provincia: HEREDIA"],"type":"bar","marker":{"autocolorscale":false,"color":"rgba(33,144,140,1)","line":{"width":1.88976377952756,"color":"transparent"}},"name":"HEREDIA","legendgroup":"HEREDIA","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","frame":null},{"orientation":"v","width":[0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.899999999999999,0.899999999999999,0.899999999999999,0.899999999999999],"base":[2940,2976,3108,3276,3504,3528,3492,3528,3072,3060,3540],"x":[1,2,3,4,5,6,7,8,9,10,11],"y":[816,840,876,912,1008,1056,1032,1044,960,972,1044],"text":["as.factor(curso_lectivo): 2009 n: 816 provincia: LIMON","as.factor(curso_lectivo): 2010 n: 840 provincia: LIMON","as.factor(curso_lectivo): 2011 n: 876 provincia: LIMON","as.factor(curso_lectivo): 2012 n: 912 provincia: LIMON","as.factor(curso_lectivo): 2013 n: 1008 provincia: LIMON","as.factor(curso_lectivo): 2014 n: 1056 provincia: LIMON","as.factor(curso_lectivo): 2015 n: 1032 provincia: LIMON","as.factor(curso_lectivo): 2016 n: 1044 provincia: LIMON","as.factor(curso_lectivo): 2017 n: 960 provincia: LIMON","as.factor(curso_lectivo): 2018 n: 972 provincia: LIMON","as.factor(curso_lectivo): 2019 n: 1044 provincia: LIMON"],"type":"bar","marker":{"autocolorscale":false,"color":"rgba(53,183,121,1)","line":{"width":1.88976377952756,"color":"transparent"}},"name":"LIMON","legendgroup":"LIMON","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","frame":null},{"orientation":"v","width":[0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.899999999999999,0.899999999999999,0.899999999999999,0.899999999999999],"base":[1836,1848,1932,2040,2172,2148,2112,2160,1872,1860,2172],"x":[1,2,3,4,5,6,7,8,9,10,11],"y":[1104,1128,1176,1236,1332,1380,1380,1368,1200,1200,1368],"text":["as.factor(curso_lectivo): 2009 n: 1104 provincia: PUNTARENAS","as.factor(curso_lectivo): 2010 n: 1128 provincia: PUNTARENAS","as.factor(curso_lectivo): 2011 n: 1176 provincia: PUNTARENAS","as.factor(curso_lectivo): 2012 n: 1236 provincia: PUNTARENAS","as.factor(curso_lectivo): 2013 n: 1332 provincia: PUNTARENAS","as.factor(curso_lectivo): 2014 n: 1380 provincia: PUNTARENAS","as.factor(curso_lectivo): 2015 n: 1380 provincia: PUNTARENAS","as.factor(curso_lectivo): 2016 n: 1368 provincia: PUNTARENAS","as.factor(curso_lectivo): 2017 n: 1200 provincia: PUNTARENAS","as.factor(curso_lectivo): 2018 n: 1200 provincia: PUNTARENAS","as.factor(curso_lectivo): 2019 n: 1368 provincia: PUNTARENAS"],"type":"bar","marker":{"autocolorscale":false,"color":"rgba(143,215,68,1)","line":{"width":1.88976377952756,"color":"transparent"}},"name":"PUNTARENAS","legendgroup":"PUNTARENAS","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","frame":null},{"orientation":"v","width":[0.9,0.9,0.9,0.9,0.9,0.9,0.9,0.899999999999999,0.899999999999999,0.899999999999999,0.899999999999999],"base":[0,0,0,0,0,0,0,0,0,0,0],"x":[1,2,3,4,5,6,7,8,9,10,11],"y":[1836,1848,1932,2040,2172,2148,2112,2160,1872,1860,2172],"text":["as.factor(curso_lectivo): 2009 n: 1836 provincia: SAN JOSE","as.factor(curso_lectivo): 2010 n: 1848 provincia: SAN JOSE","as.factor(curso_lectivo): 2011 n: 1932 provincia: SAN JOSE","as.factor(curso_lectivo): 2012 n: 2040 provincia: SAN JOSE","as.factor(curso_lectivo): 2013 n: 2172 provincia: SAN JOSE","as.factor(curso_lectivo): 2014 n: 2148 provincia: SAN JOSE","as.factor(curso_lectivo): 2015 n: 2112 provincia: SAN JOSE","as.factor(curso_lectivo): 2016 n: 2160 provincia: SAN JOSE","as.factor(curso_lectivo): 2017 n: 1872 provincia: SAN JOSE","as.factor(curso_lectivo): 2018 n: 1860 provincia: SAN JOSE","as.factor(curso_lectivo): 2019 n: 2172 provincia: SAN JOSE"],"type":"bar","marker":{"autocolorscale":false,"color":"rgba(253,231,37,1)","line":{"width":1.88976377952756,"color":"transparent"}},"name":"SAN JOSE","legendgroup":"SAN JOSE","showlegend":true,"xaxis":"x","yaxis":"y","hoverinfo":"text","frame":null}],"layout":{"margin":{"t":23.3059360730594,"r":7.30593607305936,"b":37.2602739726027,"l":48.9497716894977},"plot_bgcolor":"rgba(255,255,255,1)","paper_bgcolor":"rgba(255,255,255,1)","font":{"color":"rgba(0,0,0,1)","family":"","size":14.6118721461187},"xaxis":{"domain":[0,1],"automargin":true,"type":"linear","autorange":false,"range":[0.4,11.6],"tickmode":"array","ticktext":["2009","2010","2011","2012","2013","2014","2015","2016","2017","2018","2019"],"tickvals":[1,2,3,4,5,6,7,8,9,10,11],"categoryorder":"array","categoryarray":["2009","2010","2011","2012","2013","2014","2015","2016","2017","2018","2019"],"nticks":null,"ticks":"outside","tickcolor":"rgba(179,179,179,1)","ticklen":3.65296803652968,"tickwidth":0.33208800332088,"showticklabels":true,"tickfont":{"color":"rgba(77,77,77,1)","family":"","size":11.689497716895},"tickangle":-0,"showline":false,"linecolor":null,"linewidth":0,"showgrid":true,"gridcolor":"rgba(222,222,222,1)","gridwidth":0.33208800332088,"zeroline":false,"anchor":"y","title":{"text":"Año curso lectivo","font":{"color":"rgba(0,0,0,1)","family":"","size":14.6118721461187}},"hoverformat":".2f"},"yaxis":{"domain":[0,1],"automargin":true,"type":"linear","autorange":false,"range":[-447,9387],"tickmode":"array","ticktext":["0","2500","5000","7500"],"tickvals":[0,2500,5000,7500],"categoryorder":"array","categoryarray":["0","2500","5000","7500"],"nticks":null,"ticks":"outside","tickcolor":"rgba(179,179,179,1)","ticklen":3.65296803652968,"tickwidth":0.33208800332088,"showticklabels":true,"tickfont":{"color":"rgba(77,77,77,1)","family":"","size":11.689497716895},"tickangle":-0,"showline":false,"linecolor":null,"linewidth":0,"showgrid":true,"gridcolor":"rgba(222,222,222,1)","gridwidth":0.33208800332088,"zeroline":false,"anchor":"x","title":{"text":"Total de registros","font":{"color":"rgba(0,0,0,1)","family":"","size":14.6118721461187}},"hoverformat":".2f"},"shapes":[{"type":"rect","fillcolor":"transparent","line":{"color":"rgba(179,179,179,1)","width":0.66417600664176,"linetype":"solid"},"yref":"paper","xref":"paper","x0":0,"x1":1,"y0":0,"y1":1}],"showlegend":true,"legend":{"bgcolor":"rgba(255,255,255,1)","bordercolor":"transparent","borderwidth":1.88976377952756,"font":{"color":"rgba(0,0,0,1)","family":"","size":11.689497716895},"y":0.938132733408324},"annotations":[{"text":"Provincia","x":1.02,"y":1,"showarrow":false,"ax":0,"ay":0,"font":{"color":"rgba(0,0,0,1)","family":"","size":14.6118721461187},"xref":"paper","yref":"paper","textangle":-0,"xanchor":"left","yanchor":"bottom","legendTitle":true}],"hovermode":"closest","barmode":"relative"},"config":{"doubleClick":"reset","showSendToCloud":false},"source":"A","attrs":{"422346ee8216":{"x":{},"y":{},"fill":{},"type":"bar"}},"cur_data":"422346ee8216","visdat":{"422346ee8216":["function (y) ","x"]},"highlight":{"on":"plotly_click","persistent":false,"dynamic":false,"selectize":false,"opacityDim":0.2,"selected":{"opacity":1},"debounce":0},"shinyEvents":["plotly_hover","plotly_click","plotly_selected","plotly_relayout","plotly_brushed","plotly_brushing","plotly_clickannotation","plotly_doubleclick","plotly_deselect","plotly_afterplot","plotly_sunburstclick"],"base_url":"https://plot.ly"},"evals":[],"jsHooks":[]}</script>

---
class: center, middle, inverse

# Fin

---
background-image: url(img/gracias.png)
background-size: cover