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()


haozhu233/kableExtra documentation built on April 13, 2024, 6:49 p.m.