count: false .panel1-the_chunk-auto[ ``` r *tidy_titanic ``` ] .panel2-the_chunk-auto[ ``` Class Sex Age Survived 1 3rd Male Child No 2 3rd Male Child No 3 3rd Male Child No 4 3rd Male Child No 5 3rd Male Child No 6 3rd Male Child No 7 3rd Male Child No 8 3rd Male Child No 9 3rd Male Child No 10 3rd Male Child No 11 3rd Male Child No 12 3rd Male Child No 13 3rd Male Child No 14 3rd Male Child No 15 3rd Male Child No 16 3rd Male Child No 17 3rd Male Child No 18 3rd Male Child No 19 3rd Male Child No 20 3rd Male Child No 21 3rd Male Child No 22 3rd Male Child No 23 3rd Male Child No 24 3rd Male Child No 25 3rd Male Child No 26 3rd Male Child No 27 3rd Male Child No 28 3rd Male Child No 29 3rd Male Child No 30 3rd Male Child No 31 3rd Male Child No 32 3rd Male Child No 33 3rd Male Child No 34 3rd Male Child No 35 3rd Male Child No 36 3rd Female Child No 37 3rd Female Child No 38 3rd Female Child No 39 3rd Female Child No 40 3rd Female Child No 41 3rd Female Child No 42 3rd Female Child No 43 3rd Female Child No 44 3rd Female Child No 45 3rd Female Child No 46 3rd Female Child No 47 3rd Female Child No 48 3rd Female Child No 49 3rd Female Child No 50 3rd Female Child No 51 3rd Female Child No 52 3rd Female Child No 53 1st Male Adult No 54 1st Male Adult No 55 1st Male Adult No 56 1st Male Adult No 57 1st Male Adult No 58 1st Male Adult No 59 1st Male Adult No 60 1st Male Adult No 61 1st Male Adult No 62 1st Male Adult No 63 1st Male Adult No 64 1st Male Adult No 65 1st Male Adult No 66 1st Male Adult No 67 1st Male Adult No 68 1st Male Adult No 69 1st Male Adult No 70 1st Male Adult No 71 1st Male Adult No 72 1st Male Adult No 73 1st Male Adult No 74 1st Male Adult No 75 1st Male Adult No 76 1st Male Adult No 77 1st Male Adult No 78 1st Male Adult No 79 1st Male Adult No 80 1st Male Adult No 81 1st Male Adult No 82 1st Male Adult No 83 1st Male Adult No 84 1st Male Adult No 85 1st Male Adult No 86 1st Male Adult No 87 1st Male Adult No 88 1st Male Adult No 89 1st Male Adult No 90 1st Male Adult No 91 1st Male Adult No 92 1st Male Adult No 93 1st Male Adult No 94 1st Male Adult No 95 1st Male Adult No 96 1st Male Adult No 97 1st Male Adult No 98 1st Male Adult No 99 1st Male Adult No 100 1st Male Adult No 101 1st Male Adult No 102 1st Male Adult No 103 1st Male Adult No 104 1st Male Adult No 105 1st Male Adult No 106 1st Male Adult No 107 1st Male Adult No 108 1st Male Adult No 109 1st Male Adult No 110 1st Male Adult No 111 1st Male Adult No 112 1st Male Adult No 113 1st Male Adult No 114 1st Male Adult No 115 1st Male Adult No 116 1st Male Adult No 117 1st Male Adult No 118 1st Male Adult No 119 1st Male Adult No 120 1st Male Adult No 121 1st Male Adult No 122 1st Male Adult No 123 1st Male Adult No 124 1st Male Adult No 125 1st Male Adult No 126 1st Male Adult No 127 1st Male Adult No 128 1st Male Adult No 129 1st Male Adult No 130 1st Male Adult No 131 1st Male Adult No 132 1st Male Adult No 133 1st Male Adult No 134 1st Male Adult No 135 1st Male Adult No 136 1st Male Adult No 137 1st Male Adult No 138 1st Male Adult No 139 1st Male Adult No 140 1st Male Adult No 141 1st Male Adult No 142 1st Male Adult No 143 1st Male Adult No 144 1st Male Adult No 145 1st Male Adult No 146 1st Male Adult No 147 1st Male Adult No 148 1st Male Adult No 149 1st Male Adult No 150 1st Male Adult No 151 1st Male Adult No 152 1st Male Adult No 153 1st Male Adult No 154 1st Male Adult No 155 1st Male Adult No 156 1st Male Adult No 157 1st Male Adult No 158 1st Male Adult No 159 1st Male Adult No 160 1st Male Adult No 161 1st Male Adult No 162 1st Male Adult No 163 1st Male Adult No 164 1st Male Adult No 165 1st Male Adult No 166 1st Male Adult No 167 1st Male Adult No 168 1st Male Adult No 169 1st Male Adult No 170 1st Male Adult No 171 2nd Male Adult No 172 2nd Male Adult No 173 2nd Male Adult No 174 2nd Male Adult No 175 2nd Male Adult No 176 2nd Male Adult No 177 2nd Male Adult No 178 2nd Male Adult No 179 2nd Male Adult No 180 2nd Male Adult No 181 2nd Male Adult No 182 2nd Male Adult No 183 2nd Male Adult No 184 2nd Male Adult No 185 2nd Male Adult No 186 2nd Male Adult No 187 2nd Male Adult No 188 2nd Male Adult No 189 2nd Male Adult No 190 2nd Male Adult No 191 2nd Male Adult No 192 2nd Male Adult No 193 2nd Male Adult No 194 2nd Male Adult No 195 2nd Male Adult No 196 2nd Male Adult No 197 2nd Male Adult No 198 2nd Male Adult No 199 2nd Male Adult No 200 2nd Male Adult No 201 2nd Male Adult No 202 2nd Male Adult No 203 2nd Male Adult No 204 2nd Male Adult No 205 2nd Male Adult No 206 2nd Male Adult No 207 2nd Male Adult No 208 2nd Male Adult No 209 2nd Male Adult No 210 2nd Male Adult No 211 2nd Male Adult No 212 2nd Male Adult No 213 2nd Male Adult No 214 2nd Male Adult No 215 2nd Male Adult No 216 2nd Male Adult No 217 2nd Male Adult No 218 2nd Male Adult No 219 2nd Male Adult No 220 2nd Male Adult No 221 2nd Male Adult No 222 2nd Male Adult No 223 2nd Male Adult No 224 2nd Male Adult No 225 2nd Male Adult No 226 2nd Male Adult No 227 2nd Male Adult No 228 2nd Male Adult No 229 2nd Male Adult No 230 2nd Male Adult No 231 2nd Male Adult No 232 2nd Male Adult No 233 2nd Male Adult No 234 2nd Male Adult No 235 2nd Male Adult No 236 2nd Male Adult No 237 2nd Male Adult No 238 2nd Male Adult No 239 2nd Male Adult No 240 2nd Male Adult No 241 2nd Male Adult No 242 2nd Male Adult No 243 2nd Male Adult No 244 2nd Male Adult No 245 2nd Male Adult No 246 2nd Male Adult No 247 2nd Male Adult No 248 2nd Male Adult No 249 2nd Male Adult No 250 2nd Male Adult No [ reached 'max' / getOption("max.print") -- omitted 1951 rows ] ``` ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% * ggplot() ``` ] .panel2-the_chunk-auto[ ![](demo_embed_files/figure-html/the_chunk_auto_02_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggplot() + * facet_grid(~Sex) # specify table layout ``` ] .panel2-the_chunk-auto[ ![](demo_embed_files/figure-html/the_chunk_auto_03_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggplot() + facet_grid(~Sex) + # specify table layout * theme(axis.text = element_blank(), * axis.ticks = element_blank(), * panel.grid = element_blank(), * text = element_text(size = 22)) ``` ] .panel2-the_chunk-auto[ ![](demo_embed_files/figure-html/the_chunk_auto_04_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggplot() + facet_grid(~Sex) + # specify table layout theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + * stat_tableprop() ``` ] .panel2-the_chunk-auto[ ![](demo_embed_files/figure-html/the_chunk_auto_05_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggplot() + facet_grid(~Sex) + # specify table layout theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + stat_tableprop() + * facet_grid(Sex ~ Survived) ``` ] .panel2-the_chunk-auto[ ![](demo_embed_files/figure-html/the_chunk_auto_06_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggplot() + facet_grid(~Sex) + # specify table layout theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + stat_tableprop() + facet_grid(Sex ~ Survived) + * aes(label = after_stat(prop_label)) ``` ] .panel2-the_chunk-auto[ ![](demo_embed_files/figure-html/the_chunk_auto_07_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggplot() + facet_grid(~Sex) + # specify table layout theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + stat_tableprop() + facet_grid(Sex ~ Survived) + aes(label = after_stat(prop_label)) + * aes(label = after_stat(percent_label)) ``` ] .panel2-the_chunk-auto[ ![](demo_embed_files/figure-html/the_chunk_auto_08_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggplot() + facet_grid(~Sex) + # specify table layout theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + stat_tableprop() + facet_grid(Sex ~ Survived) + aes(label = after_stat(prop_label)) + aes(label = after_stat(percent_label)) + * aes(prop_within = Sex) ``` ] .panel2-the_chunk-auto[ ![](demo_embed_files/figure-html/the_chunk_auto_09_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggplot() + facet_grid(~Sex) + # specify table layout theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + stat_tableprop() + facet_grid(Sex ~ Survived) + aes(label = after_stat(prop_label)) + aes(label = after_stat(percent_label)) + aes(prop_within = Sex) + * aes_lab_count_percent() ``` ] .panel2-the_chunk-auto[ ![](demo_embed_files/figure-html/the_chunk_auto_10_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggplot() + facet_grid(~Sex) + # specify table layout theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + stat_tableprop() + facet_grid(Sex ~ Survived) + aes(label = after_stat(prop_label)) + aes(label = after_stat(percent_label)) + aes(prop_within = Sex) + aes_lab_count_percent() + * aes_lab_percent_count() ``` ] .panel2-the_chunk-auto[ ![](demo_embed_files/figure-html/the_chunk_auto_11_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggplot() + facet_grid(~Sex) + # specify table layout theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + stat_tableprop() + facet_grid(Sex ~ Survived) + aes(label = after_stat(prop_label)) + aes(label = after_stat(percent_label)) + aes(prop_within = Sex) + aes_lab_count_percent() + aes_lab_percent_count() + * facet_grid(rows = vars(Sex), * cols = vars(Age, Survived)) ``` ] .panel2-the_chunk-auto[ ![](demo_embed_files/figure-html/the_chunk_auto_12_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggplot() + facet_grid(~Sex) + # specify table layout theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + stat_tableprop() + facet_grid(Sex ~ Survived) + aes(label = after_stat(prop_label)) + aes(label = after_stat(percent_label)) + aes(prop_within = Sex) + aes_lab_count_percent() + aes_lab_percent_count() + facet_grid(rows = vars(Sex), cols = vars(Age, Survived)) + * aes(prop_within = and(Survived, Age)) ``` ] .panel2-the_chunk-auto[ ![](demo_embed_files/figure-html/the_chunk_auto_13_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggplot() + facet_grid(~Sex) + # specify table layout theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + stat_tableprop() + facet_grid(Sex ~ Survived) + aes(label = after_stat(prop_label)) + aes(label = after_stat(percent_label)) + aes(prop_within = Sex) + aes_lab_count_percent() + aes_lab_percent_count() + facet_grid(rows = vars(Sex), cols = vars(Age, Survived)) + aes(prop_within = and(Survived, Age)) + * facet_grid(rows = vars(Age)) # should warn but doesn't ``` ] .panel2-the_chunk-auto[ ![](demo_embed_files/figure-html/the_chunk_auto_14_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggplot() + facet_grid(~Sex) + # specify table layout theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + stat_tableprop() + facet_grid(Sex ~ Survived) + aes(label = after_stat(prop_label)) + aes(label = after_stat(percent_label)) + aes(prop_within = Sex) + aes_lab_count_percent() + aes_lab_percent_count() + facet_grid(rows = vars(Sex), cols = vars(Age, Survived)) + aes(prop_within = and(Survived, Age)) + facet_grid(rows = vars(Age)) + # should warn but doesn't * aes(prop_within = Sex) ``` ] .panel2-the_chunk-auto[ ![](demo_embed_files/figure-html/the_chunk_auto_15_output-1.png)<!-- --> ] --- count: false .panel1-the_chunk-auto[ ``` r tidy_titanic %>% ggplot() + facet_grid(~Sex) + # specify table layout theme(axis.text = element_blank(), axis.ticks = element_blank(), panel.grid = element_blank(), text = element_text(size = 22)) + stat_tableprop() + facet_grid(Sex ~ Survived) + aes(label = after_stat(prop_label)) + aes(label = after_stat(percent_label)) + aes(prop_within = Sex) + aes_lab_count_percent() + aes_lab_percent_count() + facet_grid(rows = vars(Sex), cols = vars(Age, Survived)) + aes(prop_within = and(Survived, Age)) + facet_grid(rows = vars(Age)) + # should warn but doesn't aes(prop_within = Sex) + * aes(prop_within = NULL) ``` ] .panel2-the_chunk-auto[ ![](demo_embed_files/figure-html/the_chunk_auto_16_output-1.png)<!-- --> ] <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>