ggcirclepack and beyond

## {ggcirclepack} and beyond:

##experiments in the compute_panel space

---

### Critical moment in my extension journey started with TLP "extend your ability to extend".

---

## Critical moment in my extension journey started with TLP "extend your ability to extend".

## Message 1: YOU can be an extender

## Message 2: "where" aesthetics need not only be x and y, in geom_circle() example

### - aes(x0 = ?, y0 = ?)

### - but ggplot2 actually renders x and y, it computes them for you!

---

# Today I'll present on ggcirclepack.

## Background: ggplot2 grammar guide walk through (reference from data to viz gallery)

https://evamaerey.github.io/ggplot2_grammar_guide/geoms_single_series.html#77

---

```r
*gapminder::gapminder
```
]
 
.panel2-background-auto[

```
#> # A tibble: 1,704 × 6
#>    country     continent  year lifeExp      pop gdpPercap
#>    <fct>       <fct>     <int>   <dbl>    <int>     <dbl>
#>  1 Afghanistan Asia       1952    28.8  8425333      779.
#>  2 Afghanistan Asia       1957    30.3  9240934      821.
#>  3 Afghanistan Asia       1962    32.0 10267083      853.
#>  4 Afghanistan Asia       1967    34.0 11537966      836.
#>  5 Afghanistan Asia       1972    36.1 13079460      740.
#>  6 Afghanistan Asia       1977    38.4 14880372      786.
#>  7 Afghanistan Asia       1982    39.9 12881816      978.
#>  8 Afghanistan Asia       1987    40.8 13867957      852.
#>  9 Afghanistan Asia       1992    41.7 16317921      649.
#> 10 Afghanistan Asia       1997    41.8 22227415      635.
#> # … with 1,694 more rows
```
]

---
count: false

```r
gapminder::gapminder %>%
* filter(continent == "Americas")
```
]
 
.panel2-background-auto[

```
#> # A tibble: 300 × 6
#>    country   continent  year lifeExp      pop gdpPercap
#>    <fct>     <fct>     <int>   <dbl>    <int>     <dbl>
#>  1 Argentina Americas   1952    62.5 17876956     5911.
#>  2 Argentina Americas   1957    64.4 19610538     6857.
#>  3 Argentina Americas   1962    65.1 21283783     7133.
#>  4 Argentina Americas   1967    65.6 22934225     8053.
#>  5 Argentina Americas   1972    67.1 24779799     9443.
#>  6 Argentina Americas   1977    68.5 26983828    10079.
#>  7 Argentina Americas   1982    69.9 29341374     8998.
#>  8 Argentina Americas   1987    70.8 31620918     9140.
#>  9 Argentina Americas   1992    71.9 33958947     9308.
#> 10 Argentina Americas   1997    73.3 36203463    10967.
#> # … with 290 more rows
```
]

---
count: false

```r
gapminder::gapminder %>%
  filter(continent == "Americas") %>%
* filter(year == 2002)
```
]
 
.panel2-background-auto[

```
#> # A tibble: 25 × 6
#>    country            continent  year lifeExp       pop gdpPercap
#>    <fct>              <fct>     <int>   <dbl>     <int>     <dbl>
#>  1 Argentina          Americas   2002    74.3  38331121     8798.
#>  2 Bolivia            Americas   2002    63.9   8445134     3413.
#>  3 Brazil             Americas   2002    71.0 179914212     8131.
#>  4 Canada             Americas   2002    79.8  31902268    33329.
#>  5 Chile              Americas   2002    77.9  15497046    10779.
#>  6 Colombia           Americas   2002    71.7  41008227     5755.
#>  7 Costa Rica         Americas   2002    78.1   3834934     7723.
#>  8 Cuba               Americas   2002    77.2  11226999     6341.
#>  9 Dominican Republic Americas   2002    70.8   8650322     4564.
#> 10 Ecuador            Americas   2002    74.2  12921234     5773.
#> # … with 15 more rows
```
]

---
count: false

```r
gapminder::gapminder %>%
  filter(continent == "Americas") %>%
  filter(year == 2002) %>%
* select(country, pop)
```
]
 
.panel2-background-auto[

```
#> # A tibble: 25 × 2
#>    country                  pop
#>    <fct>                  <int>
#>  1 Argentina           38331121
#>  2 Bolivia              8445134
#>  3 Brazil             179914212
#>  4 Canada              31902268
#>  5 Chile               15497046
#>  6 Colombia            41008227
#>  7 Costa Rica           3834934
#>  8 Cuba                11226999
#>  9 Dominican Republic   8650322
#> 10 Ecuador             12921234
#> # … with 15 more rows
```
]

---
count: false

```r
gapminder::gapminder %>%
  filter(continent == "Americas") %>%
  filter(year == 2002) %>%
  select(country, pop) ->
*prep
```
]
 
.panel2-background-auto[

]

---
count: false