count: false .panel1-the_chunk-auto[ ``` r *tidy_titanic ``` ] .panel2-the_chunk-auto[ ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% * ggtable() ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggtable() + * facet_grid(~ Sex) # specify table layout ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggtable() + facet_grid(~ Sex) + # specify table layout * facet_grid(Sex ~ Survived) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggtable() + facet_grid(~ Sex) + # specify table layout facet_grid(Sex ~ Survived) + * aes(label = after_stat(prop_label)) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggtable() + facet_grid(~ Sex) + # specify table layout facet_grid(Sex ~ Survived) + aes(label = after_stat(prop_label)) + * aes(label = after_stat(percent_label)) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggtable() + facet_grid(~ Sex) + # specify table layout facet_grid(Sex ~ Survived) + aes(label = after_stat(prop_label)) + aes(label = after_stat(percent_label)) + * aes(prop_within = Sex) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggtable() + facet_grid(~ Sex) + # specify table layout facet_grid(Sex ~ Survived) + aes(label = after_stat(prop_label)) + aes(label = after_stat(percent_label)) + aes(prop_within = Sex) + * aes_label_count_percent() ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggtable() + facet_grid(~ Sex) + # specify table layout facet_grid(Sex ~ Survived) + aes(label = after_stat(prop_label)) + aes(label = after_stat(percent_label)) + aes(prop_within = Sex) + aes_label_count_percent() + * aes(prop_within = Survived) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggtable() + facet_grid(~ Sex) + # specify table layout facet_grid(Sex ~ Survived) + aes(label = after_stat(prop_label)) + aes(label = after_stat(percent_label)) + aes(prop_within = Sex) + aes_label_count_percent() + aes(prop_within = Survived) + * aes(prop_within = Sex) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggtable() + facet_grid(~ Sex) + # specify table layout facet_grid(Sex ~ Survived) + aes(label = after_stat(prop_label)) + aes(label = after_stat(percent_label)) + aes(prop_within = Sex) + aes_label_count_percent() + aes(prop_within = Survived) + aes(prop_within = Sex) + * aes_label_percent_count() ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggtable() + facet_grid(~ Sex) + # specify table layout facet_grid(Sex ~ Survived) + aes(label = after_stat(prop_label)) + aes(label = after_stat(percent_label)) + aes(prop_within = Sex) + aes_label_count_percent() + aes(prop_within = Survived) + aes(prop_within = Sex) + aes_label_percent_count() + * facet_grid(rows = vars(Sex), * cols = vars(Age, Survived)) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggtable() + facet_grid(~ Sex) + # specify table layout facet_grid(Sex ~ Survived) + aes(label = after_stat(prop_label)) + aes(label = after_stat(percent_label)) + aes(prop_within = Sex) + aes_label_count_percent() + aes(prop_within = Survived) + aes(prop_within = Sex) + aes_label_percent_count() + facet_grid(rows = vars(Sex), cols = vars(Age, Survived)) + * aes(prop_within = Age) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggtable() + facet_grid(~ Sex) + # specify table layout facet_grid(Sex ~ Survived) + aes(label = after_stat(prop_label)) + aes(label = after_stat(percent_label)) + aes(prop_within = Sex) + aes_label_count_percent() + aes(prop_within = Survived) + aes(prop_within = Sex) + aes_label_percent_count() + facet_grid(rows = vars(Sex), cols = vars(Age, Survived)) + aes(prop_within = Age) + * facet_grid(rows = vars(Age)) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggtable() + facet_grid(~ Sex) + # specify table layout facet_grid(Sex ~ Survived) + aes(label = after_stat(prop_label)) + aes(label = after_stat(percent_label)) + aes(prop_within = Sex) + aes_label_count_percent() + aes(prop_within = Survived) + aes(prop_within = Sex) + aes_label_percent_count() + facet_grid(rows = vars(Sex), cols = vars(Age, Survived)) + aes(prop_within = Age) + facet_grid(rows = vars(Age)) + * aes(prop_within = NULL) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggtable() + facet_grid(~ Sex) + # specify table layout facet_grid(Sex ~ Survived) + aes(label = after_stat(prop_label)) + aes(label = after_stat(percent_label)) + aes(prop_within = Sex) + aes_label_count_percent() + aes(prop_within = Survived) + aes(prop_within = Sex) + aes_label_percent_count() + facet_grid(rows = vars(Sex), cols = vars(Age, Survived)) + aes(prop_within = Age) + facet_grid(rows = vars(Age)) + aes(prop_within = NULL) ``` ] .panel2-the_chunk-auto[ <!-- --> ] <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: 80%%} @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>