count: false .panel1-the_chunk-auto[ ``` r *tidy_titanic ``` ] .panel2-the_chunk-auto[ ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% * ggplot() ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggplot() + * theme(axis.text = element_blank(), * axis.ticks = element_blank(), * panel.grid = element_blank(), * text = element_text(size = 22)) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggplot() + theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + * guides(fill = "none") ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggplot() + theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + guides(fill = "none") + * stat_tableprop(geom = "tile") ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggplot() + theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + guides(fill = "none") + stat_tableprop(geom = "tile") + * stat_tableprop() ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggplot() + theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + guides(fill = "none") + stat_tableprop(geom = "tile") + stat_tableprop() + * facet_grid(~ Sex) # specify table layout ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggplot() + theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + guides(fill = "none") + stat_tableprop(geom = "tile") + stat_tableprop() + facet_grid(~ Sex) + # specify table layout * facet_grid(Sex ~ Survived) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggplot() + theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + guides(fill = "none") + stat_tableprop(geom = "tile") + stat_tableprop() + 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 %>% ggplot() + theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + guides(fill = "none") + stat_tableprop(geom = "tile") + stat_tableprop() + 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 %>% ggplot() + theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + guides(fill = "none") + stat_tableprop(geom = "tile") + stat_tableprop() + 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 %>% ggplot() + theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + guides(fill = "none") + stat_tableprop(geom = "tile") + stat_tableprop() + 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 = after_stat(count_percent_label)) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggplot() + theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + guides(fill = "none") + stat_tableprop(geom = "tile") + stat_tableprop() + 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 = after_stat(count_percent_label)) + * aes(label = after_stat(percent_count_label)) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggplot() + theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + guides(fill = "none") + stat_tableprop(geom = "tile") + stat_tableprop() + 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 = after_stat(count_percent_label)) + aes(label = after_stat(percent_count_label)) + * facet_grid(rows = vars(Sex), * cols = vars(Age, Survived)) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggplot() + theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + guides(fill = "none") + stat_tableprop(geom = "tile") + stat_tableprop() + 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 = after_stat(count_percent_label)) + aes(label = after_stat(percent_count_label)) + facet_grid(rows = vars(Sex), cols = vars(Age, Survived)) + * aes(prop_within = Sex) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggplot() + theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + guides(fill = "none") + stat_tableprop(geom = "tile") + stat_tableprop() + 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 = after_stat(count_percent_label)) + aes(label = after_stat(percent_count_label)) + facet_grid(rows = vars(Sex), cols = vars(Age, Survived)) + aes(prop_within = Sex) + * aes(prop_within = Age) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggplot() + theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + guides(fill = "none") + stat_tableprop(geom = "tile") + stat_tableprop() + 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 = after_stat(count_percent_label)) + aes(label = after_stat(percent_count_label)) + facet_grid(rows = vars(Sex), cols = vars(Age, Survived)) + aes(prop_within = Sex) + aes(prop_within = Age) + * facet_grid(rows = vars(Age)) ``` ] .panel2-the_chunk-auto[ <!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggplot() + theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + guides(fill = "none") + stat_tableprop(geom = "tile") + stat_tableprop() + 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 = after_stat(count_percent_label)) + aes(label = after_stat(percent_count_label)) + facet_grid(rows = vars(Sex), cols = vars(Age, Survived)) + aes(prop_within = Sex) + 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 %>% ggplot() + theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + guides(fill = "none") + stat_tableprop(geom = "tile") + stat_tableprop() + 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 = after_stat(count_percent_label)) + aes(label = after_stat(percent_count_label)) + facet_grid(rows = vars(Sex), cols = vars(Age, Survived)) + aes(prop_within = Sex) + aes(prop_within = Age) + facet_grid(rows = vars(Age)) + aes(prop_within = NULL) + * aes(label = after_stat(sum)) ``` ] .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>