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)

zebra_gold

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

tron

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

vader

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

vanilla

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

booktabs

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

alafoli

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

AltStyle によって変換されたページ (->オリジナル) /