Bootstrap table classes

If you are familiar with twitter bootstrap, you probably have already known its predefined classes, including striped, bordered, hover, condensed and responsive.

dt <- mtcars[1:5, 1:6]
dt %>%
  kable() %>%
  kable_styling()

# Striped and Hover 
# For example, to add striped lines (alternative row colors) to your table and you want to highlight the hovered row
kable(dt) %>%
  kable_styling(bootstrap_options = c("striped", "hover"))

# Condensed 
# The option condensed can also be handy in many cases when you don’t want your table to be too large. It has slightly shorter row height.
kable(dt) %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed"))

Full Width & Position

kable(dt) %>%
  kable_styling(bootstrap_options = "striped", full_width = F)

# Position 
# Align the table to center, left or right side of the page
kable(dt) %>%
  kable_styling(bootstrap_options = "striped", full_width = F, position = "left")

# Front Size
kable(dt) %>%
  kable_styling(bootstrap_options = "striped", font_size = 7)

Conditional Logic

library(dplyr)
options(knitr.table.format = "html") 
mtcars[1:10, 1:2] %>%
  mutate(
    car = row.names(.),
    mpg = cell_spec(mpg, "html", color = ifelse(mpg > 20, "red", "blue")),
    cyl = cell_spec(cyl, "html", color = "white", align = "c", angle = 45, 
                    background = factor(cyl, c(4, 6, 8), 
                                        c("#666666", "#999999", "#BBBBBB")))
  ) %>%
  select(car, mpg, cyl) %>%
  kable(format = "html", escape = F) %>%
  kable_styling("striped", full_width = F)

Viridis color for continuous variables

This package also comes with a few helper functions, including spec_color, spec_font_size & spec_angle. These functions can rescale continuous variables to certain scales.

iris[1:10, ] %>%
  mutate_if(is.numeric, function(x) {
    cell_spec(x, bold = T, 
              color = spec_color(x, end = 0.9),
              font_size = spec_font_size(x))
  }) %>%
  mutate(Species = cell_spec(
    Species, color = "white", bold = T,
    background = spec_color(1:10, end = 0.9, option = "A", direction = -1)
  )) %>%
  kable(escape = F, align = "c") %>%
  kable_styling(c("striped", "condensed"), full_width = F)

Text Specification

if you need extra markups other than bold or italic, you may use this function to color, change font size or rotate your text. An aliased function text_spec is also provided for a more literal writing experience.

sometext <- strsplit(paste0(
  "You can even try to make some crazy things like this paragraph. ", 
  "It may seem like a useless feature right now but it's so cool ",
  "and nobody can resist. ;)"
), " ")[[1]]
text_formatted <- paste(
  text_spec(sometext, color = spec_color(1:length(sometext), end = 0.9),
            font_size = spec_font_size(1:length(sometext), begin = 5, end = 20)),
  collapse = " ")
# To display the text, type `r text_formatted` outside of the chunk

You can even try to make some crazy things like this paragraph. It may seem like a useless feature right now but it’s so cool and nobody can resist. ;)

Add header rows to group columns

Tables with multi-row headers can be very useful to demonstrate grouped data. For your convenience, if column span equals to 1, you can ignore the =1 part so the function below can be written as `add_header_above(c(" “,”Group 1" = 2, “Group 2” = 2, “Group 3” = 2)).

# Header rows 
kable(dt) %>%
  kable_styling("striped") %>%
  add_header_above(c(" " = 1, "Group 1" = 2, "Group 2" = 2, "Group 3" = 2))

kable(dt) %>%
  kable_styling(c("striped", "bordered")) %>%
  add_header_above(c(" ", "Group 1" = 2, "Group 2" = 2, "Group 3" = 2)) %>%
  add_header_above(c(" ", "Group 4" = 4, "Group 5" = 2)) %>%
  add_header_above(c(" ", "Group 6" = 6))

# Group rows 
kable(mtcars[1:10, 1:6], caption = "Group Rows") %>%
  kable_styling("striped", full_width = F) %>%
  group_rows(index = c(" " = 3, "Group 1" = 4, "Group 2" = 3))

kable(mtcars[1:10, 1:6], caption = "Group Rows") %>% 
  kable_styling("striped", full_width = F) %>%
  group_rows("Group 1", 4, 7) %>%   # same result with group 1=4
  group_rows("Group 2", 8, 10)

# Row Indentation 
kable(dt) %>%
  kable_styling("striped", full_width = F) %>%
  add_indent(c(1, 3, 5))

# Define row css for the group labeling 
kable(dt) %>%
  kable_styling("striped", full_width = F) %>%
  group_rows("Group 1", 3, 5, label_row_css = "background-color: #666; color: #fff;")

formattable

You can combine the good parts from kableExtra & formattable together into one piece. Read more at http://haozhu233.github.io/kableExtra/use_kableExtra_with_formattable.html

library(formattable)
mtcars[1:5, 1:4] %>%
  mutate(
    car = row.names(.),
    mpg = color_tile("white", "orange")(mpg),
    cyl = cell_spec(cyl, angle = (1:5)*60, 
                    background = "red", color = "white", align = "center"),
    disp = ifelse(disp > 200,
                  cell_spec(disp, color = "red", bold = T),
                  cell_spec(disp, color = "green", italic = T)),
    hp = color_bar("lightgreen")(hp)
  ) %>%
  select(car, everything()) %>%
  kable(escape = F) %>%
  kable_styling("hover", full_width = F) %>%
  column_spec(5, width = "3cm") %>%
  add_header_above(c(" ", "Hello" = 2, "World" = 2))

tables

tables: formula-driven table generation https://cran.r-project.org/web/packages/tables/index.html