I know you love formattable
’s color_tile
and color_bar
. I do too. In my mind, these two features are among the best visualization methods in a tabular format. You may wonder if it’s possible use it together with kableExtra
so you can have a nested table with awesome presentation at the same time. Here is how.
library(knitr)
library(kableExtra)
library(formattable)
library(dplyr)
mtcars[1:5, 1:4] %>%
mutate(
car = row.names(.),
mpg = color_tile("white", "orange")(mpg),
cyl = cell_spec(cyl, "html", angle = (1:5)*60,
background = "red", color = "white", align = "center"),
disp = ifelse(disp > 200,
cell_spec(disp, "html", color = "red", bold = T),
cell_spec(disp, "html", color = "green", italic = T)),
hp = color_bar("lightgreen")(hp)
) %>%
select(car, everything()) %>%
kable("html", escape = F) %>%
kable_styling("hover", full_width = F) %>%
column_spec(5, width = "3cm") %>%
add_header_above(c(" ", "Hello" = 2, "World" = 2))
car | mpg | cyl | disp | hp |
---|---|---|---|---|
Mazda RX4 | 21.0 |
6
|
160
|
110 |
Mazda RX4 Wag | 21.0 |
6
|
160
|
110 |
Datsun 710 | 22.8 |
4
|
108
|
93 |
Hornet 4 Drive | 21.4 |
6
|
258
|
110 |
Hornet Sportabout | 18.7 |
8
|
360
|
175 |
Here is a little bit more explanation. Both formattable::color_tile
and formattable::color_bar
returns a function object which can take a numeric vector. That’s why you can put things like (mpg)
after color_tile("white", "orange")
as you can see in the mutate
function. This way of using the function may look a little odd but is totally valid (, I think :P).
Also, if you are using it in this way, make sure you put escape = F
in kable
.
On the other hand, cell_spec()
is a new function in kableExtra()
to format cells before you pipe the table into kable
. Note that you can either specify format (html
or latex
) in function or do that via options(knitr.table.format)
so you don’t need to do it everytime.