count: false .panel1-the_chunk-auto[ ``` r # count table *ggtable(penguins) ``` ] .panel2-the_chunk-auto[ ``` # A tibble: 1 × 1 value <dbl> 1 333 ``` ] --- count: false .panel1-the_chunk-auto[ ``` r # count table ggtable(penguins) # count by species, sex *last_table() ``` ] .panel2-the_chunk-auto[ ``` # A tibble: 1 × 1 value <dbl> 1 333 ``` ``` # A tibble: 1 × 1 value <dbl> 1 333 ``` ] --- count: false .panel1-the_chunk-auto[ ``` r # count table ggtable(penguins) # count by species, sex last_table() |> * set_rows(species) ``` ] .panel2-the_chunk-auto[ ``` # A tibble: 1 × 1 value <dbl> 1 333 ``` ``` # A tibble: 3 × 2 species value <fct> <dbl> 1 Adelie 146 2 Chinstrap 68 3 Gentoo 119 ``` ] --- count: false .panel1-the_chunk-auto[ ``` r # count table ggtable(penguins) # count by species, sex last_table() |> set_rows(species)|> * set_cols(sex) ``` ] .panel2-the_chunk-auto[ ``` # A tibble: 1 × 1 value <dbl> 1 333 ``` ``` # A tibble: 3 × 3 species female male <fct> <dbl> <dbl> 1 Adelie 73 73 2 Chinstrap 34 34 3 Gentoo 58 61 ``` ] --- count: false .panel1-the_chunk-auto[ ``` r # count table ggtable(penguins) # count by species, sex last_table() |> set_rows(species)|> set_cols(sex) # average bill depth table *last_table() ``` ] .panel2-the_chunk-auto[ ``` # A tibble: 1 × 1 value <dbl> 1 333 ``` ``` # A tibble: 3 × 3 species female male <fct> <dbl> <dbl> 1 Adelie 73 73 2 Chinstrap 34 34 3 Gentoo 58 61 ``` ``` # A tibble: 3 × 3 species female male <fct> <dbl> <dbl> 1 Adelie 73 73 2 Chinstrap 34 34 3 Gentoo 58 61 ``` ] --- count: false .panel1-the_chunk-auto[ ``` r # count table ggtable(penguins) # count by species, sex last_table() |> set_rows(species)|> set_cols(sex) # average bill depth table last_table() |> * set_fun(mean) ``` ] .panel2-the_chunk-auto[ ``` # A tibble: 1 × 1 value <dbl> 1 333 ``` ``` # A tibble: 3 × 3 species female male <fct> <dbl> <dbl> 1 Adelie 73 73 2 Chinstrap 34 34 3 Gentoo 58 61 ``` ``` # A tibble: 3 × 3 species female male <fct> <dbl> <dbl> 1 Adelie 1 1 2 Chinstrap 1 1 3 Gentoo 1 1 ``` ] --- count: false .panel1-the_chunk-auto[ ``` r # count table ggtable(penguins) # count by species, sex last_table() |> set_rows(species)|> set_cols(sex) # average bill depth table last_table() |> set_fun(mean) |> * set_value(bill_depth_mm) ``` ] .panel2-the_chunk-auto[ ``` # A tibble: 1 × 1 value <dbl> 1 333 ``` ``` # A tibble: 3 × 3 species female male <fct> <dbl> <dbl> 1 Adelie 73 73 2 Chinstrap 34 34 3 Gentoo 58 61 ``` ``` # A tibble: 3 × 3 species female male <fct> <dbl> <dbl> 1 Adelie 17.6 19.1 2 Chinstrap 17.6 19.3 3 Gentoo 14.2 15.7 ``` ] <style> .panel1-the_chunk-auto { color: black; width: 38.6060606060606%; hight: 32%; float: left; padding-left: 1%; font-size: 80% } .panel2-the_chunk-auto { color: black; width: 59.3939393939394%; hight: 32%; float: left; padding-left: 1%; font-size: 80% } .panel3-the_chunk-auto { color: black; width: NA%; hight: 33%; float: left; padding-left: 1%; font-size: 80% } </style> <style type="text/css"> .remark-code{line-height: 1.5; font-size: 120%} @media print { .has-continuation { display: block; } } code.r.hljs.remark-code{ position: relative; overflow-x: hidden; } code.r.hljs.remark-code:hover{ overflow-x:visible; width: 500px; border-style: solid; } </style>