count: false .panel1-the_chunk-auto[ ```r *matrix(1:16, 4, 4) ``` ] .panel2-the_chunk-auto[ ``` ## [,1] [,2] [,3] [,4] ## [1,] 1 5 9 13 ## [2,] 2 6 10 14 ## [3,] 3 7 11 15 ## [4,] 4 8 12 16 ``` ] --- count: false .panel1-the_chunk-auto[ ```r matrix(1:16, 4, 4) %>% * as_hux() ``` ] .panel2-the_chunk-auto[
1
5
9
13
2
6
10
14
3
7
11
15
4
8
12
16
] --- count: false .panel1-the_chunk-auto[ ```r matrix(1:16, 4, 4) %>% as_hux() %>% * set_background_color(1:2, 1:2, "red") ``` ] .panel2-the_chunk-auto[
1
5
9
13
2
6
10
14
3
7
11
15
4
8
12
16
] --- count: false .panel1-the_chunk-auto[ ```r matrix(1:16, 4, 4) %>% as_hux() %>% set_background_color(1:2, 1:2, "red") %>% * set_background_color(1:2, 3:4, "yellow") ``` ] .panel2-the_chunk-auto[
1
5
9
13
2
6
10
14
3
7
11
15
4
8
12
16
] --- count: false .panel1-the_chunk-auto[ ```r matrix(1:16, 4, 4) %>% as_hux() %>% set_background_color(1:2, 1:2, "red") %>% set_background_color(1:2, 3:4, "yellow") %>% * set_background_color(3:4, 1:2, "darkgreen") ``` ] .panel2-the_chunk-auto[
1
5
9
13
2
6
10
14
3
7
11
15
4
8
12
16
] --- count: false .panel1-the_chunk-auto[ ```r matrix(1:16, 4, 4) %>% as_hux() %>% set_background_color(1:2, 1:2, "red") %>% set_background_color(1:2, 3:4, "yellow") %>% set_background_color(3:4, 1:2, "darkgreen") %>% * set_background_color(3:4, 3:4, "blue") ``` ] .panel2-the_chunk-auto[
1
5
9
13
2
6
10
14
3
7
11
15
4
8
12
16
] --- count: false .panel1-the_chunk-auto[ ```r matrix(1:16, 4, 4) %>% as_hux() %>% set_background_color(1:2, 1:2, "red") %>% set_background_color(1:2, 3:4, "yellow") %>% set_background_color(3:4, 1:2, "darkgreen") %>% set_background_color(3:4, 3:4, "blue") %>% * set_text_color(3:4, 1:4, "white") ``` ] .panel2-the_chunk-auto[
1
5
9
13
2
6
10
14
3
7
11
15
4
8
12
16
] --- count: false .panel1-the_chunk-auto[ ```r matrix(1:16, 4, 4) %>% as_hux() %>% set_background_color(1:2, 1:2, "red") %>% set_background_color(1:2, 3:4, "yellow") %>% set_background_color(3:4, 1:2, "darkgreen") %>% set_background_color(3:4, 3:4, "blue") %>% set_text_color(3:4, 1:4, "white") %>% * set_all_borders(brdr(2, "solid", "white")) ``` ] .panel2-the_chunk-auto[
1
5
9
13
2
6
10
14
3
7
11
15
4
8
12
16
] --- count: false .panel1-the_chunk-auto[ ```r matrix(1:16, 4, 4) %>% as_hux() %>% set_background_color(1:2, 1:2, "red") %>% set_background_color(1:2, 3:4, "yellow") %>% set_background_color(3:4, 1:2, "darkgreen") %>% set_background_color(3:4, 3:4, "blue") %>% set_text_color(3:4, 1:4, "white") %>% set_all_borders(brdr(2, "solid", "white")) %>% * set_caption("Original table") ``` ] .panel2-the_chunk-auto[
Original table
1
5
9
13
2
6
10
14
3
7
11
15
4
8
12
16
] --- count: false .panel1-the_chunk-auto[ ```r matrix(1:16, 4, 4) %>% as_hux() %>% set_background_color(1:2, 1:2, "red") %>% set_background_color(1:2, 3:4, "yellow") %>% set_background_color(3:4, 1:2, "darkgreen") %>% set_background_color(3:4, 3:4, "blue") %>% set_text_color(3:4, 1:4, "white") %>% set_all_borders(brdr(2, "solid", "white")) %>% set_caption("Original table") %>% * restack_across(rows = 2) ``` ] .panel2-the_chunk-auto[
Original table
1
5
9
13
3
7
11
15
2
6
10
14
4
8
12
16
] --- count: false .panel1-the_chunk-auto[ ```r matrix(1:16, 4, 4) %>% as_hux() %>% set_background_color(1:2, 1:2, "red") %>% set_background_color(1:2, 3:4, "yellow") %>% set_background_color(3:4, 1:2, "darkgreen") %>% set_background_color(3:4, 3:4, "blue") %>% set_text_color(3:4, 1:4, "white") %>% set_all_borders(brdr(2, "solid", "white")) %>% set_caption("Original table") %>% restack_across(rows = 2) %>% * set_caption("Restacked across") ``` ] .panel2-the_chunk-auto[
Restacked across
1
5
9
13
3
7
11
15
2
6
10
14
4
8
12
16
] --- count: false .panel1-the_chunk-auto[ ```r matrix(1:16, 4, 4) %>% as_hux() %>% set_background_color(1:2, 1:2, "red") %>% set_background_color(1:2, 3:4, "yellow") %>% set_background_color(3:4, 1:2, "darkgreen") %>% set_background_color(3:4, 3:4, "blue") %>% set_text_color(3:4, 1:4, "white") %>% set_all_borders(brdr(2, "solid", "white")) %>% set_caption("Original table") %>% restack_across(rows = 2) %>% set_caption("Restacked across") %>% * restack_down(cols = 2) ``` ] .panel2-the_chunk-auto[
Restacked across
1
5
2
6
9
13
10
14
3
7
4
8
11
15
12
16
] --- count: false .panel1-the_chunk-auto[ ```r matrix(1:16, 4, 4) %>% as_hux() %>% set_background_color(1:2, 1:2, "red") %>% set_background_color(1:2, 3:4, "yellow") %>% set_background_color(3:4, 1:2, "darkgreen") %>% set_background_color(3:4, 3:4, "blue") %>% set_text_color(3:4, 1:4, "white") %>% set_all_borders(brdr(2, "solid", "white")) %>% set_caption("Original table") %>% restack_across(rows = 2) %>% set_caption("Restacked across") %>% restack_down(cols = 2) %>% * set_caption("Restacked down") ``` ] .panel2-the_chunk-auto[
Restacked down
1
5
2
6
9
13
10
14
3
7
4
8
11
15
12
16
] <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: 120%} @media print { .has-continuation { display: block; } } </style>