library(knitr) library(kableExtra) options(knitr.table.format = "latex", kable_styling_latex_options = c("striped", "hold_position"), kable_styling_full_width = T) # switch to "latex" in a pdf environment dt <- mtcars[1:5, 1:4] kable(dt, format = "latex", booktabs = T, caption = "Demo Table") %>% kable_styling() %>% add_header_above(c(" ", "Group_1" = 2, "Group 2[note]" = 2), bold = T, italic = c(T, T, F), underline = c(F, T, F), strikeout = c(F, T, F), color = c('red', 'yellow', 'blue'), background = c('black', "brown", "yellow"), angle = c(0, 90, 0), font_size = c(7, 15, 10))
kable(dt, format = "latex", booktabs = T) %>% add_header_above(c(" ", "a" = 2, "b" = 2), line_sep = c(0, 5, 0))%>% kable_styling()
kable(dt, format = "latex", booktabs = T, caption = "aaa\\\\bbb") %>% add_header_above(c(" ", "a" = 2, "b" = 2))%>% kable_styling()
kable(dt, format = "latex", booktabs = T, caption = "aaa") %>% add_header_above(c(" ", "a" = 2, "b" = 2)) %>% kable_styling()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.