count: false .panel1-the_chunk-auto[ ```r *pizza_prep ``` ] .panel2-the_chunk-auto[ ``` # A tibble: 5 x 4 # Groups: type [4] type size sold income <chr> <fct> <int> <dbl> 1 chicken (pizzas with chicken as a major ingredient) L 4932 102339 2 chicken (pizzas without any meats whatsoever) L 5403 104203. 3 classic (classical pizzas) L 4057 74518. 4 classic (classical pizzas) XXL 28 1007. 5 supreme (pizzas that try a little harder) L 4564 94258. ``` ] --- count: false .panel1-the_chunk-auto[ ```r pizza_prep %>% * gt(rowname_col = "size") ``` ] .panel2-the_chunk-auto[
sold
income
chicken (pizzas with chicken as a major ingredient)
L
4932
102339.0
chicken (pizzas without any meats whatsoever)
L
5403
104202.7
classic (classical pizzas)
L
4057
74518.5
XXL
28
1006.6
supreme (pizzas that try a little harder)
L
4564
94258.5
] --- count: false .panel1-the_chunk-auto[ ```r pizza_prep %>% gt(rowname_col = "size") %>% * tab_header(title = * md("🍕 Pizzas Sold in 2015 🍕")) ``` ] .panel2-the_chunk-auto[
🍕 Pizzas Sold in 2015 🍕
sold
income
chicken (pizzas with chicken as a major ingredient)
L
4932
102339.0
chicken (pizzas without any meats whatsoever)
L
5403
104202.7
classic (classical pizzas)
L
4057
74518.5
XXL
28
1006.6
supreme (pizzas that try a little harder)
L
4564
94258.5
] --- count: false .panel1-the_chunk-auto[ ```r pizza_prep %>% gt(rowname_col = "size") %>% tab_header(title = md("🍕 Pizzas Sold in 2015 🍕")) %>% * fmt_number( * columns = vars(sold), * decimals = 0, * use_seps = TRUE * ) ``` ] .panel2-the_chunk-auto[
🍕 Pizzas Sold in 2015 🍕
sold
income
chicken (pizzas with chicken as a major ingredient)
L
4,932
102339.0
chicken (pizzas without any meats whatsoever)
L
5,403
104202.7
classic (classical pizzas)
L
4,057
74518.5
XXL
28
1006.6
supreme (pizzas that try a little harder)
L
4,564
94258.5
] --- count: false .panel1-the_chunk-auto[ ```r pizza_prep %>% gt(rowname_col = "size") %>% tab_header(title = md("🍕 Pizzas Sold in 2015 🍕")) %>% fmt_number( columns = vars(sold), decimals = 0, use_seps = TRUE ) %>% * fmt_currency( * columns = vars(income), * currency = "USD" * ) ``` ] .panel2-the_chunk-auto[
🍕 Pizzas Sold in 2015 🍕
sold
income
chicken (pizzas with chicken as a major ingredient)
L
4,932
$102,339.00
chicken (pizzas without any meats whatsoever)
L
5,403
$104,202.70
classic (classical pizzas)
L
4,057
$74,518.50
XXL
28
$1,006.60
supreme (pizzas that try a little harder)
L
4,564
$94,258.50
] --- count: false .panel1-the_chunk-auto[ ```r pizza_prep %>% gt(rowname_col = "size") %>% tab_header(title = md("🍕 Pizzas Sold in 2015 🍕")) %>% fmt_number( columns = vars(sold), decimals = 0, use_seps = TRUE ) %>% fmt_currency( columns = vars(income), currency = "USD" ) %>% * cols_align(align = "right", columns = TRUE) ``` ] .panel2-the_chunk-auto[
🍕 Pizzas Sold in 2015 🍕
sold
income
chicken (pizzas with chicken as a major ingredient)
L
4,932
$102,339.00
chicken (pizzas without any meats whatsoever)
L
5,403
$104,202.70
classic (classical pizzas)
L
4,057
$74,518.50
XXL
28
$1,006.60
supreme (pizzas that try a little harder)
L
4,564
$94,258.50
] --- count: false .panel1-the_chunk-auto[ ```r pizza_prep %>% gt(rowname_col = "size") %>% tab_header(title = md("🍕 Pizzas Sold in 2015 🍕")) %>% fmt_number( columns = vars(sold), decimals = 0, use_seps = TRUE ) %>% fmt_currency( columns = vars(income), currency = "USD" ) %>% cols_align(align = "right", columns = TRUE) -> *pizza2; pizza2 ``` ] .panel2-the_chunk-auto[
🍕 Pizzas Sold in 2015 🍕
sold
income
chicken (pizzas with chicken as a major ingredient)
L
4,932
$102,339.00
chicken (pizzas without any meats whatsoever)
L
5,403
$104,202.70
classic (classical pizzas)
L
4,057
$74,518.50
XXL
28
$1,006.60
supreme (pizzas that try a little harder)
L
4,564
$94,258.50
] <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: 90%} @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>