class: center, middle, inverse, title-slide

# Herramientas Cuantitativas para el Análisis Político
## [CP44] Maestría en Ciencia Política
### Juan Pablo Ruiz Nicolini
### Universidad Torcuato Di Tella
### 27/10/2020

---

exclude: true

---

class: middle, center

## SESIÓN 7
### Data Viz (II)

#### Las muchas capas de `ggplot2 +` extensiones

#### [<i class="fas  fa-globe "></i>/MetodosCiPol/](https://tuqmano.github.io/MetodosCiPol/)

#### [<i class="fab  fa-github "></i>/MetodosCiPol/](https://github.com/TuQmano/MetodosCiPol)

---
class: inverse, center, middle

# Sus primeros gráficos

---

background-image: url(https://github.com/electorArg/polAr/blob/master/hex/hex-polAr.png?raw=true)
background-position: 95% 5%
background-size: 10%

# Composición de gráficos

<img src="Clase7_files/figure-html/unnamed-chunk-1-1.png" width="65%" />

---

background-image: url(https://patchwork.data-imaginist.com/reference/figures/logo.png) 
background-position: 95% 5%
background-size: 10%

# Composición de gráficos

[<i class="fas  fa-link "></i>`{patchwork}`](https://patchwork.data-imaginist.com/)

```r

library(ggplot2)
*library(patchwork)

p1 <- ggplot(mtcars) + geom_point(aes(mpg, disp))
p2 <- ggplot(mtcars) + geom_boxplot(aes(gear, disp, group = gear))

*p1 + p2
```

<img src="Clase7_files/figure-html/unnamed-chunk-2-1.png" width="300" />

---

background-image: url(https://patchwork.data-imaginist.com/reference/figures/logo.png) 
background-position: 95% 5%
background-size: 10%

# Composición de gráficos

[<i class="fas  fa-link "></i>`{patchwork}`](https://patchwork.data-imaginist.com/)

```r

p3 <- ggplot(mtcars) + geom_smooth(aes(disp, qsec))
p4 <- ggplot(mtcars) + geom_bar(aes(carb))

*(p1 | p2 | p3) /
*     p4
```

<img src="Clase7_files/figure-html/unnamed-chunk-3-1.png" width="300" />

---

background-image: url(https://wilkelab.org/cowplot/reference/figures/logo.png) 
background-position: 95% 5%
background-size: 10%

## Composición de gráficos

[<i class="fas  fa-link "></i>`{cowplot}`](https://wilkelab.org/cowplot/index.html)

```r
library(cowplot)

logo_file <- "https://github.com/electorArg/polAr/blob/master/hex/hex-polAr.png?raw=true"

ggdraw(cow_plot) +
  draw_label(label = "HECHO CON", color = "blue", size = 40, angle = 45 , alpha = .5) +
  draw_image(logo_file, x = 1, y = 1.1, hjust = 1, vjust = 1, width = 0.15)
```

<img src="Clase7_files/figure-html/unnamed-chunk-5-1.png" width="300" />

---

background-image: url(https://github.com/RobWHickman/ggparliament/raw/master/man/figures/HexSticker.png) 
background-position: 95% 5%
background-size: 10%

# Dibujar legislaturas

<img src="https://www.tuqmano.com/post/2020-03-15-dibujar-legislaturas_files/figure-html/plot-1.png" width="50%" />

[<i class="fas  fa-link "></i>`{ggparliament}`](https://patchwork.data-imaginist.com/) | [<i class="fas  fa-link "></i> blogpost](https://www.tuqmano.com/2020/03/15/dibujar-legislaturas/)

---

background-image: url(https://ggforce.data-imaginist.com/reference/figures/logo.png) 
background-position: 95% 5%
background-size: 10%

# + Extensiones

[<i class="fas  fa-link "></i> blogpost](https://www.tuqmano.com/2019/04/18/diagramas/)

<img src="https://www.tuqmano.com/post/2019-04-18-diagramas_files/figure-html/CODE%20GOT-1.png" width="75%" />

[<i class="fas  fa-link "></i> Documentación de `geom_parallel_set()`](https://ggforce.data-imaginist.com/reference/geom_parallel_sets.html) de [<i class="fas  fa-link "></i>`{ggforce}`](https://ggforce.data-imaginist.com/)

---

## MISC

### Themes

* `{ggthemes}` <https://jrnold.github.io/ggthemes/index.html>

* `{hrbthemes}` <https://cinc.rud.is/web/packages/hrbrthemes/>

--

### Fonts

* `{extrafont}` <https://github.com/wch/extrafont>

--

### `+`

* `{ggtern}` <https://github.com/nicholasehamilton/ggtern>

* `{plotly}` <https://plotly-r.com/>

* **The `R` Graph Gallery** <https://www.r-graph-gallery.com/>

---

class: inverse, middle, center

# *Data Viz* con tabulados

---

background-image: url(https://github.com/rstudio/gt/raw/master/man/figures/logo.svg) 
background-position: 95% 5%
background-size: 10%

## Una gramática para tablas

[<i class="fas  fa-link "></i> `{gt}`](https://github.com/rstudio/gt)

<img src="https://github.com/rstudio/gt/raw/master/man/figures/gt_parts_of_a_table.svg" width="90%" />

**OTROS:**  [<i class="fas  fa-link "></i> `{kableExtra}`](https://haozhu233.github.io/kableExtra/) | [<i class="fas  fa-link "></i> `{formattable}`](https://renkun-ken.github.io/formattable/) | [<i class="fas  fa-link "></i> `{DT}`](https://rstudio.github.io/DT/) | [<i class="fas  fa-link "></i> `{stargazer}`](https://cran.r-project.org/web/packages/stargazer/index.html)

---

class:  middle, center

# Práctica con **datos** de #MétodosCiPol

### <https://tuqmano.github.io/MetodosCiPol/datos.html>

Notes for current slide

Notes for next slide

Herramientas Cuantitativas para el Análisis Político

[CP44] Maestría en Ciencia Política

Juan Pablo Ruiz Nicolini

Universidad Torcuato Di Tella

27/10/2020

1 / 13

SESIÓN 7

Data Viz (II)

Las muchas capas de `ggplot2 +` extensiones

/MetodosCiPol/

/MetodosCiPol/

2 / 13

Sus primeros gráficos

3 / 13

Composición de gráficos

4 / 13

Composición de gráficos


library(ggplot2)
library(patchwork)
p1 <- ggplot(mtcars) + geom_point(aes(mpg, disp))
p2 <- ggplot(mtcars) + geom_boxplot(aes(gear, disp, group = gear))
p1 + p2

5 / 13

Composición de gráficos


p3 <- ggplot(mtcars) + geom_smooth(aes(disp, qsec))
p4 <- ggplot(mtcars) + geom_bar(aes(carb))
(p1 | p2 | p3) /
      p4

6 / 13

Composición de gráficos

library(cowplot)
logo_file <- "https://github.com/electorArg/polAr/blob/master/hex/hex-polAr.png?raw=true"
ggdraw(cow_plot) +
  draw_label(label = "HECHO CON", color = "blue", size = 40, angle = 45 , alpha = .5) +
  draw_image(logo_file, x = 1, y = 1.1, hjust = 1, vjust = 1, width = 0.15)

7 / 13

Dibujar legislaturas

{ggparliament} | blogpost

8 / 13

+ Extensiones

Documentación de geom_parallel_set() de {ggforce}

9 / 13

MISC

Themes

{ggthemes} https://jrnold.github.io/ggthemes/index.html

{hrbthemes} https://cinc.rud.is/web/packages/hrbrthemes/

10 / 13

MISC

Themes

{ggthemes} https://jrnold.github.io/ggthemes/index.html

{hrbthemes} https://cinc.rud.is/web/packages/hrbrthemes/

Fonts

{extrafont} https://github.com/wch/extrafont

10 / 13

MISC

Themes

{ggthemes} https://jrnold.github.io/ggthemes/index.html

{hrbthemes} https://cinc.rud.is/web/packages/hrbrthemes/

Fonts

{extrafont} https://github.com/wch/extrafont

`+`

{ggtern} https://github.com/nicholasehamilton/ggtern
{plotly} https://plotly-r.com/
The R Graph Gallery https://www.r-graph-gallery.com/

10 / 13

Data Viz con tabulados

11 / 13

Una gramática para tablas

OTROS: {kableExtra} | {formattable} | {DT} | {stargazer}

12 / 13

Práctica con datos de #MétodosCiPol

https://tuqmano.github.io/MetodosCiPol/datos.html

13 / 13

SESIÓN 7

Data Viz (II)

Las muchas capas de `ggplot2 +` extensiones

/MetodosCiPol/

/MetodosCiPol/

2 / 13

Paused

Help

Keyboard shortcuts

↑, ←, Pg Up, k	Go to previous slide
↓, →, Pg Dn, Space, j	Go to next slide
Home	Go to first slide
End	Go to last slide
Number + Return	Go to specific slide
b / m / f	Toggle blackout / mirrored / fullscreen mode
c	Clone slideshow
p	Toggle presenter mode
t	Restart the presentation timer
?, h	Toggle this help

Esc	Back to slideshow