count: false .panel1-the_chunk-auto[ ```r *iris ``` ] .panel2-the_chunk-auto[
Sepal.Length
Sepal.Width
Petal.Length
Petal.Width
Species
5.1
3.5
1.4
0.2
setosa
4.9
3
1.4
0.2
setosa
4.7
3.2
1.3
0.2
setosa
4.6
3.1
1.5
0.2
setosa
5
3.6
1.4
0.2
setosa
5.4
3.9
1.7
0.4
setosa
4.6
3.4
1.4
0.3
setosa
5
3.4
1.5
0.2
setosa
4.4
2.9
1.4
0.2
setosa
4.9
3.1
1.5
0.1
setosa
5.4
3.7
1.5
0.2
setosa
4.8
3.4
1.6
0.2
setosa
4.8
3
1.4
0.1
setosa
4.3
3
1.1
0.1
setosa
5.8
4
1.2
0.2
setosa
5.7
4.4
1.5
0.4
setosa
5.4
3.9
1.3
0.4
setosa
5.1
3.5
1.4
0.3
setosa
5.7
3.8
1.7
0.3
setosa
5.1
3.8
1.5
0.3
setosa
5.4
3.4
1.7
0.2
setosa
5.1
3.7
1.5
0.4
setosa
4.6
3.6
1
0.2
setosa
5.1
3.3
1.7
0.5
setosa
4.8
3.4
1.9
0.2
setosa
5
3
1.6
0.2
setosa
5
3.4
1.6
0.4
setosa
5.2
3.5
1.5
0.2
setosa
5.2
3.4
1.4
0.2
setosa
4.7
3.2
1.6
0.2
setosa
4.8
3.1
1.6
0.2
setosa
5.4
3.4
1.5
0.4
setosa
5.2
4.1
1.5
0.1
setosa
5.5
4.2
1.4
0.2
setosa
4.9
3.1
1.5
0.2
setosa
5
3.2
1.2
0.2
setosa
5.5
3.5
1.3
0.2
setosa
4.9
3.6
1.4
0.1
setosa
4.4
3
1.3
0.2
setosa
5.1
3.4
1.5
0.2
setosa
5
3.5
1.3
0.3
setosa
4.5
2.3
1.3
0.3
setosa
4.4
3.2
1.3
0.2
setosa
5
3.5
1.6
0.6
setosa
5.1
3.8
1.9
0.4
setosa
4.8
3
1.4
0.3
setosa
5.1
3.8
1.6
0.2
setosa
4.6
3.2
1.4
0.2
setosa
5.3
3.7
1.5
0.2
setosa
5
3.3
1.4
0.2
setosa
7
3.2
4.7
1.4
versicolor
6.4
3.2
4.5
1.5
versicolor
6.9
3.1
4.9
1.5
versicolor
5.5
2.3
4
1.3
versicolor
6.5
2.8
4.6
1.5
versicolor
5.7
2.8
4.5
1.3
versicolor
6.3
3.3
4.7
1.6
versicolor
4.9
2.4
3.3
1
versicolor
6.6
2.9
4.6
1.3
versicolor
5.2
2.7
3.9
1.4
versicolor
5
2
3.5
1
versicolor
5.9
3
4.2
1.5
versicolor
6
2.2
4
1
versicolor
6.1
2.9
4.7
1.4
versicolor
5.6
2.9
3.6
1.3
versicolor
6.7
3.1
4.4
1.4
versicolor
5.6
3
4.5
1.5
versicolor
5.8
2.7
4.1
1
versicolor
6.2
2.2
4.5
1.5
versicolor
5.6
2.5
3.9
1.1
versicolor
5.9
3.2
4.8
1.8
versicolor
6.1
2.8
4
1.3
versicolor
6.3
2.5
4.9
1.5
versicolor
6.1
2.8
4.7
1.2
versicolor
6.4
2.9
4.3
1.3
versicolor
6.6
3
4.4
1.4
versicolor
6.8
2.8
4.8
1.4
versicolor
6.7
3
5
1.7
versicolor
6
2.9
4.5
1.5
versicolor
5.7
2.6
3.5
1
versicolor
5.5
2.4
3.8
1.1
versicolor
5.5
2.4
3.7
1
versicolor
5.8
2.7
3.9
1.2
versicolor
6
2.7
5.1
1.6
versicolor
5.4
3
4.5
1.5
versicolor
6
3.4
4.5
1.6
versicolor
6.7
3.1
4.7
1.5
versicolor
6.3
2.3
4.4
1.3
versicolor
5.6
3
4.1
1.3
versicolor
5.5
2.5
4
1.3
versicolor
5.5
2.6
4.4
1.2
versicolor
6.1
3
4.6
1.4
versicolor
5.8
2.6
4
1.2
versicolor
5
2.3
3.3
1
versicolor
5.6
2.7
4.2
1.3
versicolor
5.7
3
4.2
1.2
versicolor
5.7
2.9
4.2
1.3
versicolor
6.2
2.9
4.3
1.3
versicolor
5.1
2.5
3
1.1
versicolor
5.7
2.8
4.1
1.3
versicolor
6.3
3.3
6
2.5
virginica
5.8
2.7
5.1
1.9
virginica
7.1
3
5.9
2.1
virginica
6.3
2.9
5.6
1.8
virginica
6.5
3
5.8
2.2
virginica
7.6
3
6.6
2.1
virginica
4.9
2.5
4.5
1.7
virginica
7.3
2.9
6.3
1.8
virginica
6.7
2.5
5.8
1.8
virginica
7.2
3.6
6.1
2.5
virginica
6.5
3.2
5.1
2
virginica
6.4
2.7
5.3
1.9
virginica
6.8
3
5.5
2.1
virginica
5.7
2.5
5
2
virginica
5.8
2.8
5.1
2.4
virginica
6.4
3.2
5.3
2.3
virginica
6.5
3
5.5
1.8
virginica
7.7
3.8
6.7
2.2
virginica
7.7
2.6
6.9
2.3
virginica
6
2.2
5
1.5
virginica
6.9
3.2
5.7
2.3
virginica
5.6
2.8
4.9
2
virginica
7.7
2.8
6.7
2
virginica
6.3
2.7
4.9
1.8
virginica
6.7
3.3
5.7
2.1
virginica
7.2
3.2
6
1.8
virginica
6.2
2.8
4.8
1.8
virginica
6.1
3
4.9
1.8
virginica
6.4
2.8
5.6
2.1
virginica
7.2
3
5.8
1.6
virginica
7.4
2.8
6.1
1.9
virginica
7.9
3.8
6.4
2
virginica
6.4
2.8
5.6
2.2
virginica
6.3
2.8
5.1
1.5
virginica
6.1
2.6
5.6
1.4
virginica
7.7
3
6.1
2.3
virginica
6.3
3.4
5.6
2.4
virginica
6.4
3.1
5.5
1.8
virginica
6
3
4.8
1.8
virginica
6.9
3.1
5.4
2.1
virginica
6.7
3.1
5.6
2.4
virginica
6.9
3.1
5.1
2.3
virginica
5.8
2.7
5.1
1.9
virginica
6.8
3.2
5.9
2.3
virginica
6.7
3.3
5.7
2.5
virginica
6.7
3
5.2
2.3
virginica
6.3
2.5
5
1.9
virginica
6.5
3
5.2
2
virginica
6.2
3.4
5.4
2.3
virginica
5.9
3
5.1
1.8
virginica
] --- count: false .panel1-the_chunk-auto[ ```r iris %>% * group_by(Species) ``` ] .panel2-the_chunk-auto[ ``` ## # A tibble: 150 x 5 ## # Groups: Species [3] ## Sepal.Length Sepal.Width Petal.Length Petal.Width Species ## <dbl> <dbl> <dbl> <dbl> <fct> ## 1 5.1 3.5 1.4 0.2 setosa ## 2 4.9 3 1.4 0.2 setosa ## 3 4.7 3.2 1.3 0.2 setosa ## 4 4.6 3.1 1.5 0.2 setosa ## 5 5 3.6 1.4 0.2 setosa ## 6 5.4 3.9 1.7 0.4 setosa ## 7 4.6 3.4 1.4 0.3 setosa ## 8 5 3.4 1.5 0.2 setosa ## 9 4.4 2.9 1.4 0.2 setosa ## 10 4.9 3.1 1.5 0.1 setosa ## # … with 140 more rows ``` ] --- count: false .panel1-the_chunk-auto[ ```r iris %>% group_by(Species) %>% * select(Species, Sepal.Length, * Sepal.Width, Petal.Length, * Petal.Width) ``` ] .panel2-the_chunk-auto[ ``` ## # A tibble: 150 x 5 ## # Groups: Species [3] ## Species Sepal.Length Sepal.Width Petal.Length Petal.Width ## <fct> <dbl> <dbl> <dbl> <dbl> ## 1 setosa 5.1 3.5 1.4 0.2 ## 2 setosa 4.9 3 1.4 0.2 ## 3 setosa 4.7 3.2 1.3 0.2 ## 4 setosa 4.6 3.1 1.5 0.2 ## 5 setosa 5 3.6 1.4 0.2 ## 6 setosa 5.4 3.9 1.7 0.4 ## 7 setosa 4.6 3.4 1.4 0.3 ## 8 setosa 5 3.4 1.5 0.2 ## 9 setosa 4.4 2.9 1.4 0.2 ## 10 setosa 4.9 3.1 1.5 0.1 ## # … with 140 more rows ``` ] --- count: false .panel1-the_chunk-auto[ ```r iris %>% group_by(Species) %>% select(Species, Sepal.Length, Sepal.Width, Petal.Length, Petal.Width) %>% * slice(1:5) ``` ] .panel2-the_chunk-auto[ ``` ## # A tibble: 15 x 5 ## # Groups: Species [3] ## Species Sepal.Length Sepal.Width Petal.Length Petal.Width ## <fct> <dbl> <dbl> <dbl> <dbl> ## 1 setosa 5.1 3.5 1.4 0.2 ## 2 setosa 4.9 3 1.4 0.2 ## 3 setosa 4.7 3.2 1.3 0.2 ## 4 setosa 4.6 3.1 1.5 0.2 ## 5 setosa 5 3.6 1.4 0.2 ## 6 versicolor 7 3.2 4.7 1.4 ## 7 versicolor 6.4 3.2 4.5 1.5 ## 8 versicolor 6.9 3.1 4.9 1.5 ## 9 versicolor 5.5 2.3 4 1.3 ## 10 versicolor 6.5 2.8 4.6 1.5 ## 11 virginica 6.3 3.3 6 2.5 ## 12 virginica 5.8 2.7 5.1 1.9 ## 13 virginica 7.1 3 5.9 2.1 ## 14 virginica 6.3 2.9 5.6 1.8 ## 15 virginica 6.5 3 5.8 2.2 ``` ] --- count: false .panel1-the_chunk-auto[ ```r iris %>% group_by(Species) %>% select(Species, Sepal.Length, Sepal.Width, Petal.Length, Petal.Width) %>% slice(1:5) %>% * as_hux() ``` ] .panel2-the_chunk-auto[
Species
Sepal.Length
Sepal.Width
Petal.Length
Petal.Width
setosa
5.1
3.5
1.4
0.2
setosa
4.9
3
1.4
0.2
setosa
4.7
3.2
1.3
0.2
setosa
4.6
3.1
1.5
0.2
setosa
5
3.6
1.4
0.2
versicolor
7
3.2
4.7
1.4
versicolor
6.4
3.2
4.5
1.5
versicolor
6.9
3.1
4.9
1.5
versicolor
5.5
2.3
4
1.3
versicolor
6.5
2.8
4.6
1.5
virginica
6.3
3.3
6
2.5
virginica
5.8
2.7
5.1
1.9
virginica
7.1
3
5.9
2.1
virginica
6.3
2.9
5.6
1.8
virginica
6.5
3
5.8
2.2
] --- count: false .panel1-the_chunk-auto[ ```r iris %>% group_by(Species) %>% select(Species, Sepal.Length, Sepal.Width, Petal.Length, Petal.Width) %>% slice(1:5) %>% as_hux() %>% * set_contents(1, 2:5, c("Length", "Width", "Length", "Width")) ``` ] .panel2-the_chunk-auto[
Species
Length
Width
Length
Width
setosa
5.1
3.5
1.4
0.2
setosa
4.9
3
1.4
0.2
setosa
4.7
3.2
1.3
0.2
setosa
4.6
3.1
1.5
0.2
setosa
5
3.6
1.4
0.2
versicolor
7
3.2
4.7
1.4
versicolor
6.4
3.2
4.5
1.5
versicolor
6.9
3.1
4.9
1.5
versicolor
5.5
2.3
4
1.3
versicolor
6.5
2.8
4.6
1.5
virginica
6.3
3.3
6
2.5
virginica
5.8
2.7
5.1
1.9
virginica
7.1
3
5.9
2.1
virginica
6.3
2.9
5.6
1.8
virginica
6.5
3
5.8
2.2
] --- count: false .panel1-the_chunk-auto[ ```r iris %>% group_by(Species) %>% select(Species, Sepal.Length, Sepal.Width, Petal.Length, Petal.Width) %>% slice(1:5) %>% as_hux() %>% set_contents(1, 2:5, c("Length", "Width", "Length", "Width")) %>% * insert_row("", "Sepal", "", "Petal", "", after = 0) ``` ] .panel2-the_chunk-auto[
Sepal
Petal
Species
Length
Width
Length
Width
setosa
5.1
3.5
1.4
0.2
setosa
4.9
3
1.4
0.2
setosa
4.7
3.2
1.3
0.2
setosa
4.6
3.1
1.5
0.2
setosa
5
3.6
1.4
0.2
versicolor
7
3.2
4.7
1.4
versicolor
6.4
3.2
4.5
1.5
versicolor
6.9
3.1
4.9
1.5
versicolor
5.5
2.3
4
1.3
versicolor
6.5
2.8
4.6
1.5
virginica
6.3
3.3
6
2.5
virginica
5.8
2.7
5.1
1.9
virginica
7.1
3
5.9
2.1
virginica
6.3
2.9
5.6
1.8
virginica
6.5
3
5.8
2.2
] --- count: false .panel1-the_chunk-auto[ ```r iris %>% group_by(Species) %>% select(Species, Sepal.Length, Sepal.Width, Petal.Length, Petal.Width) %>% slice(1:5) %>% as_hux() %>% set_contents(1, 2:5, c("Length", "Width", "Length", "Width")) %>% insert_row("", "Sepal", "", "Petal", "", after = 0) %>% * merge_cells(1, 2:3) ``` ] .panel2-the_chunk-auto[
Sepal
Petal
Species
Length
Width
Length
Width
setosa
5.1
3.5
1.4
0.2
setosa
4.9
3
1.4
0.2
setosa
4.7
3.2
1.3
0.2
setosa
4.6
3.1
1.5
0.2
setosa
5
3.6
1.4
0.2
versicolor
7
3.2
4.7
1.4
versicolor
6.4
3.2
4.5
1.5
versicolor
6.9
3.1
4.9
1.5
versicolor
5.5
2.3
4
1.3
versicolor
6.5
2.8
4.6
1.5
virginica
6.3
3.3
6
2.5
virginica
5.8
2.7
5.1
1.9
virginica
7.1
3
5.9
2.1
virginica
6.3
2.9
5.6
1.8
virginica
6.5
3
5.8
2.2
] --- count: false .panel1-the_chunk-auto[ ```r iris %>% group_by(Species) %>% select(Species, Sepal.Length, Sepal.Width, Petal.Length, Petal.Width) %>% slice(1:5) %>% as_hux() %>% set_contents(1, 2:5, c("Length", "Width", "Length", "Width")) %>% insert_row("", "Sepal", "", "Petal", "", after = 0) %>% merge_cells(1, 2:3) %>% * merge_cells(1, 4:5) ``` ] .panel2-the_chunk-auto[
Sepal
Petal
Species
Length
Width
Length
Width
setosa
5.1
3.5
1.4
0.2
setosa
4.9
3
1.4
0.2
setosa
4.7
3.2
1.3
0.2
setosa
4.6
3.1
1.5
0.2
setosa
5
3.6
1.4
0.2
versicolor
7
3.2
4.7
1.4
versicolor
6.4
3.2
4.5
1.5
versicolor
6.9
3.1
4.9
1.5
versicolor
5.5
2.3
4
1.3
versicolor
6.5
2.8
4.6
1.5
virginica
6.3
3.3
6
2.5
virginica
5.8
2.7
5.1
1.9
virginica
7.1
3
5.9
2.1
virginica
6.3
2.9
5.6
1.8
virginica
6.5
3
5.8
2.2
] --- count: false .panel1-the_chunk-auto[ ```r iris %>% group_by(Species) %>% select(Species, Sepal.Length, Sepal.Width, Petal.Length, Petal.Width) %>% slice(1:5) %>% as_hux() %>% set_contents(1, 2:5, c("Length", "Width", "Length", "Width")) %>% insert_row("", "Sepal", "", "Petal", "", after = 0) %>% merge_cells(1, 2:3) %>% merge_cells(1, 4:5) %>% * set_align(1, everywhere, "center") ``` ] .panel2-the_chunk-auto[
Sepal
Petal
Species
Length
Width
Length
Width
setosa
5.1
3.5
1.4
0.2
setosa
4.9
3
1.4
0.2
setosa
4.7
3.2
1.3
0.2
setosa
4.6
3.1
1.5
0.2
setosa
5
3.6
1.4
0.2
versicolor
7
3.2
4.7
1.4
versicolor
6.4
3.2
4.5
1.5
versicolor
6.9
3.1
4.9
1.5
versicolor
5.5
2.3
4
1.3
versicolor
6.5
2.8
4.6
1.5
virginica
6.3
3.3
6
2.5
virginica
5.8
2.7
5.1
1.9
virginica
7.1
3
5.9
2.1
virginica
6.3
2.9
5.6
1.8
virginica
6.5
3
5.8
2.2
] --- count: false .panel1-the_chunk-auto[ ```r iris %>% group_by(Species) %>% select(Species, Sepal.Length, Sepal.Width, Petal.Length, Petal.Width) %>% slice(1:5) %>% as_hux() %>% set_contents(1, 2:5, c("Length", "Width", "Length", "Width")) %>% insert_row("", "Sepal", "", "Petal", "", after = 0) %>% merge_cells(1, 2:3) %>% merge_cells(1, 4:5) %>% set_align(1, everywhere, "center") %>% * set_tb_padding(1, everywhere, 0) ``` ] .panel2-the_chunk-auto[
Sepal
Petal
Species
Length
Width
Length
Width
setosa
5.1
3.5
1.4
0.2
setosa
4.9
3
1.4
0.2
setosa
4.7
3.2
1.3
0.2
setosa
4.6
3.1
1.5
0.2
setosa
5
3.6
1.4
0.2
versicolor
7
3.2
4.7
1.4
versicolor
6.4
3.2
4.5
1.5
versicolor
6.9
3.1
4.9
1.5
versicolor
5.5
2.3
4
1.3
versicolor
6.5
2.8
4.6
1.5
virginica
6.3
3.3
6
2.5
virginica
5.8
2.7
5.1
1.9
virginica
7.1
3
5.9
2.1
virginica
6.3
2.9
5.6
1.8
virginica
6.5
3
5.8
2.2
] --- count: false .panel1-the_chunk-auto[ ```r iris %>% group_by(Species) %>% select(Species, Sepal.Length, Sepal.Width, Petal.Length, Petal.Width) %>% slice(1:5) %>% as_hux() %>% set_contents(1, 2:5, c("Length", "Width", "Length", "Width")) %>% insert_row("", "Sepal", "", "Petal", "", after = 0) %>% merge_cells(1, 2:3) %>% merge_cells(1, 4:5) %>% set_align(1, everywhere, "center") %>% set_tb_padding(1, everywhere, 0) %>% * set_bold(1, everywhere) ``` ] .panel2-the_chunk-auto[
Sepal
Petal
Species
Length
Width
Length
Width
setosa
5.1
3.5
1.4
0.2
setosa
4.9
3
1.4
0.2
setosa
4.7
3.2
1.3
0.2
setosa
4.6
3.1
1.5
0.2
setosa
5
3.6
1.4
0.2
versicolor
7
3.2
4.7
1.4
versicolor
6.4
3.2
4.5
1.5
versicolor
6.9
3.1
4.9
1.5
versicolor
5.5
2.3
4
1.3
versicolor
6.5
2.8
4.6
1.5
virginica
6.3
3.3
6
2.5
virginica
5.8
2.7
5.1
1.9
virginica
7.1
3
5.9
2.1
virginica
6.3
2.9
5.6
1.8
virginica
6.5
3
5.8
2.2
] --- count: false .panel1-the_chunk-auto[ ```r iris %>% group_by(Species) %>% select(Species, Sepal.Length, Sepal.Width, Petal.Length, Petal.Width) %>% slice(1:5) %>% as_hux() %>% set_contents(1, 2:5, c("Length", "Width", "Length", "Width")) %>% insert_row("", "Sepal", "", "Petal", "", after = 0) %>% merge_cells(1, 2:3) %>% merge_cells(1, 4:5) %>% set_align(1, everywhere, "center") %>% set_tb_padding(1, everywhere, 0) %>% set_bold(1, everywhere) %>% * set_header_rows(1:2, TRUE) ``` ] .panel2-the_chunk-auto[
Sepal
Petal
Species
Length
Width
Length
Width
setosa
5.1
3.5
1.4
0.2
setosa
4.9
3
1.4
0.2
setosa
4.7
3.2
1.3
0.2
setosa
4.6
3.1
1.5
0.2
setosa
5
3.6
1.4
0.2
versicolor
7
3.2
4.7
1.4
versicolor
6.4
3.2
4.5
1.5
versicolor
6.9
3.1
4.9
1.5
versicolor
5.5
2.3
4
1.3
versicolor
6.5
2.8
4.6
1.5
virginica
6.3
3.3
6
2.5
virginica
5.8
2.7
5.1
1.9
virginica
7.1
3
5.9
2.1
virginica
6.3
2.9
5.6
1.8
virginica
6.5
3
5.8
2.2
] --- count: false .panel1-the_chunk-auto[ ```r iris %>% group_by(Species) %>% select(Species, Sepal.Length, Sepal.Width, Petal.Length, Petal.Width) %>% slice(1:5) %>% as_hux() %>% set_contents(1, 2:5, c("Length", "Width", "Length", "Width")) %>% insert_row("", "Sepal", "", "Petal", "", after = 0) %>% merge_cells(1, 2:3) %>% merge_cells(1, 4:5) %>% set_align(1, everywhere, "center") %>% set_tb_padding(1, everywhere, 0) %>% set_bold(1, everywhere) %>% set_header_rows(1:2, TRUE) %>% * restack_across(rows = 7) ``` ] .panel2-the_chunk-auto[
Sepal
Petal
Sepal
Petal
Sepal
Petal
Species
Length
Width
Length
Width
Species
Length
Width
Length
Width
Species
Length
Width
Length
Width
setosa
5.1
3.5
1.4
0.2
versicolor
7
3.2
4.7
1.4
virginica
6.3
3.3
6
2.5
setosa
4.9
3
1.4
0.2
versicolor
6.4
3.2
4.5
1.5
virginica
5.8
2.7
5.1
1.9
setosa
4.7
3.2
1.3
0.2
versicolor
6.9
3.1
4.9
1.5
virginica
7.1
3
5.9
2.1
setosa
4.6
3.1
1.5
0.2
versicolor
5.5
2.3
4
1.3
virginica
6.3
2.9
5.6
1.8
setosa
5
3.6
1.4
0.2
versicolor
6.5
2.8
4.6
1.5
virginica
6.5
3
5.8
2.2
] --- count: false .panel1-the_chunk-auto[ ```r iris %>% group_by(Species) %>% select(Species, Sepal.Length, Sepal.Width, Petal.Length, Petal.Width) %>% slice(1:5) %>% as_hux() %>% set_contents(1, 2:5, c("Length", "Width", "Length", "Width")) %>% insert_row("", "Sepal", "", "Petal", "", after = 0) %>% merge_cells(1, 2:3) %>% merge_cells(1, 4:5) %>% set_align(1, everywhere, "center") %>% set_tb_padding(1, everywhere, 0) %>% set_bold(1, everywhere) %>% set_header_rows(1:2, TRUE) %>% restack_across(rows = 7) %>% * set_bottom_border(final(1), everywhere) ``` ] .panel2-the_chunk-auto[
Sepal
Petal
Sepal
Petal
Sepal
Petal
Species
Length
Width
Length
Width
Species
Length
Width
Length
Width
Species
Length
Width
Length
Width
setosa
5.1
3.5
1.4
0.2
versicolor
7
3.2
4.7
1.4
virginica
6.3
3.3
6
2.5
setosa
4.9
3
1.4
0.2
versicolor
6.4
3.2
4.5
1.5
virginica
5.8
2.7
5.1
1.9
setosa
4.7
3.2
1.3
0.2
versicolor
6.9
3.1
4.9
1.5
virginica
7.1
3
5.9
2.1
setosa
4.6
3.1
1.5
0.2
versicolor
5.5
2.3
4
1.3
virginica
6.3
2.9
5.6
1.8
setosa
5
3.6
1.4
0.2
versicolor
6.5
2.8
4.6
1.5
virginica
6.5
3
5.8
2.2
] --- count: false .panel1-the_chunk-auto[ ```r iris %>% group_by(Species) %>% select(Species, Sepal.Length, Sepal.Width, Petal.Length, Petal.Width) %>% slice(1:5) %>% as_hux() %>% set_contents(1, 2:5, c("Length", "Width", "Length", "Width")) %>% insert_row("", "Sepal", "", "Petal", "", after = 0) %>% merge_cells(1, 2:3) %>% merge_cells(1, 4:5) %>% set_align(1, everywhere, "center") %>% set_tb_padding(1, everywhere, 0) %>% set_bold(1, everywhere) %>% set_header_rows(1:2, TRUE) %>% restack_across(rows = 7) %>% set_bottom_border(final(1), everywhere) %>% * set_width(0.8) ``` ] .panel2-the_chunk-auto[
Sepal
Petal
Sepal
Petal
Sepal
Petal
Species
Length
Width
Length
Width
Species
Length
Width
Length
Width
Species
Length
Width
Length
Width
setosa
5.1
3.5
1.4
0.2
versicolor
7
3.2
4.7
1.4
virginica
6.3
3.3
6
2.5
setosa
4.9
3
1.4
0.2
versicolor
6.4
3.2
4.5
1.5
virginica
5.8
2.7
5.1
1.9
setosa
4.7
3.2
1.3
0.2
versicolor
6.9
3.1
4.9
1.5
virginica
7.1
3
5.9
2.1
setosa
4.6
3.1
1.5
0.2
versicolor
5.5
2.3
4
1.3
virginica
6.3
2.9
5.6
1.8
setosa
5
3.6
1.4
0.2
versicolor
6.5
2.8
4.6
1.5
virginica
6.5
3
5.8
2.2
] --- count: false .panel1-the_chunk-auto[ ```r iris %>% group_by(Species) %>% select(Species, Sepal.Length, Sepal.Width, Petal.Length, Petal.Width) %>% slice(1:5) %>% as_hux() %>% set_contents(1, 2:5, c("Length", "Width", "Length", "Width")) %>% insert_row("", "Sepal", "", "Petal", "", after = 0) %>% merge_cells(1, 2:3) %>% merge_cells(1, 4:5) %>% set_align(1, everywhere, "center") %>% set_tb_padding(1, everywhere, 0) %>% set_bold(1, everywhere) %>% set_header_rows(1:2, TRUE) %>% restack_across(rows = 7) %>% set_bottom_border(final(1), everywhere) %>% set_width(0.8) %>% * set_font_size(8) ``` ] .panel2-the_chunk-auto[
Sepal
Petal
Sepal
Petal
Sepal
Petal
Species
Length
Width
Length
Width
Species
Length
Width
Length
Width
Species
Length
Width
Length
Width
setosa
5.1
3.5
1.4
0.2
versicolor
7
3.2
4.7
1.4
virginica
6.3
3.3
6
2.5
setosa
4.9
3
1.4
0.2
versicolor
6.4
3.2
4.5
1.5
virginica
5.8
2.7
5.1
1.9
setosa
4.7
3.2
1.3
0.2
versicolor
6.9
3.1
4.9
1.5
virginica
7.1
3
5.9
2.1
setosa
4.6
3.1
1.5
0.2
versicolor
5.5
2.3
4
1.3
virginica
6.3
2.9
5.6
1.8
setosa
5
3.6
1.4
0.2
versicolor
6.5
2.8
4.6
1.5
virginica
6.5
3
5.8
2.2
] --- count: false .panel1-the_chunk-auto[ ```r iris %>% group_by(Species) %>% select(Species, Sepal.Length, Sepal.Width, Petal.Length, Petal.Width) %>% slice(1:5) %>% as_hux() %>% set_contents(1, 2:5, c("Length", "Width", "Length", "Width")) %>% insert_row("", "Sepal", "", "Petal", "", after = 0) %>% merge_cells(1, 2:3) %>% merge_cells(1, 4:5) %>% set_align(1, everywhere, "center") %>% set_tb_padding(1, everywhere, 0) %>% set_bold(1, everywhere) %>% set_header_rows(1:2, TRUE) %>% restack_across(rows = 7) %>% set_bottom_border(final(1), everywhere) %>% set_width(0.8) %>% set_font_size(8) %>% * set_lr_padding(2) ``` ] .panel2-the_chunk-auto[
Sepal
Petal
Sepal
Petal
Sepal
Petal
Species
Length
Width
Length
Width
Species
Length
Width
Length
Width
Species
Length
Width
Length
Width
setosa
5.1
3.5
1.4
0.2
versicolor
7
3.2
4.7
1.4
virginica
6.3
3.3
6
2.5
setosa
4.9
3
1.4
0.2
versicolor
6.4
3.2
4.5
1.5
virginica
5.8
2.7
5.1
1.9
setosa
4.7
3.2
1.3
0.2
versicolor
6.9
3.1
4.9
1.5
virginica
7.1
3
5.9
2.1
setosa
4.6
3.1
1.5
0.2
versicolor
5.5
2.3
4
1.3
virginica
6.3
2.9
5.6
1.8
setosa
5
3.6
1.4
0.2
versicolor
6.5
2.8
4.6
1.5
virginica
6.5
3
5.8
2.2
] --- count: false .panel1-the_chunk-auto[ ```r iris %>% group_by(Species) %>% select(Species, Sepal.Length, Sepal.Width, Petal.Length, Petal.Width) %>% slice(1:5) %>% as_hux() %>% set_contents(1, 2:5, c("Length", "Width", "Length", "Width")) %>% insert_row("", "Sepal", "", "Petal", "", after = 0) %>% merge_cells(1, 2:3) %>% merge_cells(1, 4:5) %>% set_align(1, everywhere, "center") %>% set_tb_padding(1, everywhere, 0) %>% set_bold(1, everywhere) %>% set_header_rows(1:2, TRUE) %>% restack_across(rows = 7) %>% set_bottom_border(final(1), everywhere) %>% set_width(0.8) %>% set_font_size(8) %>% set_lr_padding(2) %>% * set_col_width(rep(c(0.4, 0.2, 0.2, 0.2, 0.2), 3)/3) ``` ] .panel2-the_chunk-auto[
Sepal
Petal
Sepal
Petal
Sepal
Petal
Species
Length
Width
Length
Width
Species
Length
Width
Length
Width
Species
Length
Width
Length
Width
setosa
5.1
3.5
1.4
0.2
versicolor
7
3.2
4.7
1.4
virginica
6.3
3.3
6
2.5
setosa
4.9
3
1.4
0.2
versicolor
6.4
3.2
4.5
1.5
virginica
5.8
2.7
5.1
1.9
setosa
4.7
3.2
1.3
0.2
versicolor
6.9
3.1
4.9
1.5
virginica
7.1
3
5.9
2.1
setosa
4.6
3.1
1.5
0.2
versicolor
5.5
2.3
4
1.3
virginica
6.3
2.9
5.6
1.8
setosa
5
3.6
1.4
0.2
versicolor
6.5
2.8
4.6
1.5
virginica
6.5
3
5.8
2.2
] --- count: false .panel1-the_chunk-auto[ ```r iris %>% group_by(Species) %>% select(Species, Sepal.Length, Sepal.Width, Petal.Length, Petal.Width) %>% slice(1:5) %>% as_hux() %>% set_contents(1, 2:5, c("Length", "Width", "Length", "Width")) %>% insert_row("", "Sepal", "", "Petal", "", after = 0) %>% merge_cells(1, 2:3) %>% merge_cells(1, 4:5) %>% set_align(1, everywhere, "center") %>% set_tb_padding(1, everywhere, 0) %>% set_bold(1, everywhere) %>% set_header_rows(1:2, TRUE) %>% restack_across(rows = 7) %>% set_bottom_border(final(1), everywhere) %>% set_width(0.8) %>% set_font_size(8) %>% set_lr_padding(2) %>% set_col_width(rep(c(0.4, 0.2, 0.2, 0.2, 0.2), 3)/3) %>% * set_position("left") ``` ] .panel2-the_chunk-auto[
Sepal
Petal
Sepal
Petal
Sepal
Petal
Species
Length
Width
Length
Width
Species
Length
Width
Length
Width
Species
Length
Width
Length
Width
setosa
5.1
3.5
1.4
0.2
versicolor
7
3.2
4.7
1.4
virginica
6.3
3.3
6
2.5
setosa
4.9
3
1.4
0.2
versicolor
6.4
3.2
4.5
1.5
virginica
5.8
2.7
5.1
1.9
setosa
4.7
3.2
1.3
0.2
versicolor
6.9
3.1
4.9
1.5
virginica
7.1
3
5.9
2.1
setosa
4.6
3.1
1.5
0.2
versicolor
5.5
2.3
4
1.3
virginica
6.3
2.9
5.6
1.8
setosa
5
3.6
1.4
0.2
versicolor
6.5
2.8
4.6
1.5
virginica
6.5
3
5.8
2.2
] <style> .panel1-the_chunk-auto { color: black; width: 58.8%; hight: 32%; float: left; padding-left: 1%; font-size: 80% } .panel2-the_chunk-auto { color: black; width: 39.2%; 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: 100%} @media print { .has-continuation { display: block; } } </style>