Load needed packages

pacman::p_load(tidyverse,kableExtra,toolkit)

KableExtra

Basic Tips

For Latex PDF

• PIN table in the exact position:
  • kable_styling(latex_options = "hold_position") uses [!h]
  • kable_styling(latex_options = "HOLD_position") uses [H] and the float package.

For Html

• Fixed Table Header Row: kable_styling(fixed_head = T)

Use print_kable function

dat<-mtcars[1:10, 1:4] 
dat%>%print_kable(rowname_label = 'car', num_col = 2)

Column/Row Specification

mtcars[1:8, 1:8] %>%
  print_kable()%>%
  column_spec(2, color = spec_color(mtcars$mpg[1:8])) %>%
  column_spec(6, color = "white",background = spec_color(mtcars$drat[1:8], end = 0.7))%>%
  row_spec(0, color='white',background = 'green')%>%
  row_spec(3:5, bold = T)

Cell Specification

• cell_spec generates raw HTML or LaTeX code, make sure you remember to put escape = FALSE in kable.
• At the same time, you have to escape special symbols including % manually by yourself
• cell_spec needs a way to know whether you want html or latex. You can specify it via the options(knitr.table.format = doc.type)

dat%>%
  mutate(mpg=cell_spec(mpg, color = ifelse(mpg > 20, "red", "blue")))%>%
  print_kable(escape=FALSE)

Add header rows to group columns

mtcars[1:5,1:6]%>%
  print_kable(rowname_label = 'car')%>%
  add_header_above(c(" " = 1, "Group 1" = 2, "Group 2" = 2, "Group 3" = 2))

Group rows via labeling

mtcars[1:5, 1:6] %>%
  print_kable()%>%
  pack_rows("Group 1", 1, 2) %>%
  pack_rows("Group 2", 3, 5)

Group rows via multi-row cell

dt <- data.frame(C1=rep(LETTERS[1:2],each=4),C2=rep(LETTERS[c(3:4,3:4)],each=2), C3 = 1:8)
dt%>%
  print_kable()%>%
  collapse_rows(columns = 1:2, valign = "middle")