flextableThemes

library(presenter)
library(dplyr)

iris %>% 
  sample_n(10) %>% 
  relocate(Species) %>% 
  head %>% 
  arrange(Species) -> iris1

iris %>% 
  mutate(Species_random = sample(Species)) -> iris2

header_words <- c("Sepal", "Petal")

zebra_blue

default theme

iris1 %>% 
  make_flextable(header_words = header_words, last_id_col = 1)

Species	Sepal	Petal
setosa	5.00	3.30	1.40	0.20
versicolor	6.10	3.00	4.60	1.40
virginica	5.60	2.80	4.90	2.00
6.40	3.10	5.50	1.80
6.90	3.10	5.40	2.10
7.20	3.20	6.00	1.80

zebra_gold

iris1 %>% 
  make_flextable(header_words = header_words, last_id_col = 1, theme = "zebra_gold")

Species	Sepal	Petal
setosa	5.00	3.30	1.40	0.20
versicolor	6.10	3.00	4.60	1.40
virginica	5.60	2.80	4.90	2.00
6.40	3.10	5.50	1.80
6.90	3.10	5.40	2.10
7.20	3.20	6.00	1.80

tron

iris2 %>% 
  make_pivot_table(col1 = Species, col2 = Species_random, theme = "tron")

iris2	Species_random
Species	setosa	15	15	20	33% (50)
versicolor	16	14	20	33% (50)
virginica	19	21	10	33% (50)
		33% (50)	33% (50)	33% (50)	1 (150)

vader

iris1 %>% 
  make_flextable(header_words = header_words, last_id_col = 1, theme = "vader")

Species	Sepal	Petal
setosa	5.00	3.30	1.40	0.20
versicolor	6.10	3.00	4.60	1.40
virginica	5.60	2.80	4.90	2.00
6.40	3.10	5.50	1.80
6.90	3.10	5.40	2.10
7.20	3.20	6.00	1.80

vanilla

iris2 %>% 
  make_pivot_table(col1 = Species, col2 = Species_random, theme = "vanilla")

iris2	Species_random
Species	setosa	15	15	20	33% (50)
versicolor	16	14	20	33% (50)
virginica	19	21	10	33% (50)
		33% (50)	33% (50)	33% (50)	1 (150)

booktabs

iris1 %>% 
  make_flextable(header_words = header_words, last_id_col = 1, theme = "booktabs")

Species	Sepal	Petal
setosa	5.00	3.30	1.40	0.20
versicolor	6.10	3.00	4.60	1.40
virginica	5.60	2.80	4.90	2.00
6.40	3.10	5.50	1.80
6.90	3.10	5.40	2.10
7.20	3.20	6.00	1.80

alafoli

iris1 %>% 
  make_flextable(header_words = header_words, last_id_col = 1, theme = "alafoli")

Species	Sepal		Petal
Species	Length	Width	Length	Width
setosa	5.00	3.30	1.40	0.20
versicolor	6.10	3.00	4.60	1.40
virginica	5.60	2.80	4.90	2.00
	6.40	3.10	5.50	1.80
	6.90	3.10	5.40	2.10
	7.20	3.20	6.00	1.80