1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
## ----warning=FALSE------------------------------------------------------------
library(kableExtra)
dt <- mtcars[1:5, 1:6]
## -----------------------------------------------------------------------------
kable(dt, "html") %>%
kable_styling("striped") %>%
add_footnote(c("Footnote 1", "Have a good day."), notation = "alphabet")
## -----------------------------------------------------------------------------
kable(dt, "html") %>%
kable_styling("striped") %>%
add_footnote(c("Footnote 1", "Have a good day."), notation = "number")
## -----------------------------------------------------------------------------
kable(dt, "html") %>%
kable_styling("striped") %>%
add_footnote(c("Footnote 1", "Footnote 2", "Footnote 3"), notation = "symbol")
## -----------------------------------------------------------------------------
kable(dt, "html", caption = "Demo Table[note]") %>%
kable_styling("striped") %>%
add_header_above(c(" ", "Group 1[note]" = 3, "Group 2[note]" = 3)) %>%
add_footnote(c("This table is from mtcars",
"Group 1 contains mpg, cyl and disp",
"Group 2 contains hp, drat and wt"),
notation = "symbol")
|
