library(presenter)
library(dplyr)set.seed(1)
iris %>% 
  relocate("Species") %>% 
  sample_n(10) %>% 
  arrange(Species) -> iris_slice
header_words <- c("Sepal", "Petal")
last_id_col <- "Species"
make_flextable(iris_slice, header_words = header_words, last_id_col = last_id_col) -> myflex
myflex| Species | Sepal | Petal | ||
|---|---|---|---|---|
| Length | Width | Length | Width | |
| setosa | 4.40 | 3.20 | 1.30 | 0.20 | 
| 4.30 | 3.00 | 1.10 | 0.10 | |
| 5.40 | 3.40 | 1.70 | 0.20 | |
| 4.60 | 3.40 | 1.40 | 0.30 | |
| versicolor | 5.80 | 2.70 | 4.10 | 1.00 | 
| 7.00 | 3.20 | 4.70 | 1.40 | |
| 5.40 | 3.00 | 4.50 | 1.50 | |
| 6.10 | 2.80 | 4.70 | 1.20 | |
| virginica | 6.40 | 2.80 | 5.60 | 2.10 | 
| 7.60 | 3.00 | 6.60 | 2.10 | |
tibble::tibble(my_letters = sample(letters[1:4], 100, T),
       my_numbers = sample(1:4, 100, T)) -> cross_table
cross_table %>% 
  make_pivot_table(my_letters, my_numbers, theme = "tron") -> tron_cross_table## Warning: There was 1 warning in `dplyr::mutate()`.
## ℹ In argument: `dplyr::across(.fns = ~stringr::str_c("(", ., ")"))`.
## Caused by warning:
## ! Using `across()` without supplying `.cols` was deprecated in dplyr 1.1.0.
## ℹ Please supply `.cols` instead.tron_cross_table| cross_table | my_numbers | 
 | ||||
|---|---|---|---|---|---|---|
| 1 | 2 | 3 | 4 | |||
| my_letters | a | 6 | 8 | 7 | 5 | 26% (26) | 
| b | 8 | 8 | 10 | 3 | 29% (29) | |
| c | 3 | 5 | 8 | 5 | 21% (21) | |
| d | 6 | 3 | 6 | 9 | 24% (24) | |
| 
 | 23% (23) | 24% (24) | 31% (31) | 22% (22) | 1 (100) | |
iris %>% 
  dplyr::mutate(Species1 = stringr::str_c(Species, " very good")) %>% 
  make_pivot_table(Species1, Species, show_percentages = "none", tbl_nm = "gold table", theme = "zebra_gold") -> tbl 
tbl| gold_table | Species | 
 | |||
|---|---|---|---|---|---|
| setosa | versicolor | virginica | |||
| Species1 | setosa very good | 50 | 0 | 0 | 33% (50) | 
| versicolor very good | 0 | 50 | 0 | 33% (50) | |
| virginica very good | 0 | 0 | 50 | 33% (50) | |
| 
 | 33% (50) | 33% (50) | 33% (50) | 1 (150) | |
myflex %>% 
  make_powerpoint() # a new ppt is created, named after the table
tron_cross_table %>%
  make_powerpoint("myflex.pptx") # append this slide to the previous pptMultiple powerpoint slides