Rstudio Cloudのリンクはこちらです。
rmakrdownとkableを使ってテーブルをかいてたところ、複雑なテーブルを書く際にkableExtraというパッケージがとても有用だということがわかったのでメモ。
書体を変更できるようにした。
library(knitr)
library(kableExtra)
#Motor Trend Car Road Tests in datasets package is loaded.
dt <- mtcars[1:5, 1:4]
# LaTeX Table
kable(dt, format = "latex", booktabs = T, caption = "Demo Table") %>%
kable_styling(latex_options = c("striped", "hold_position"),
full_width = F) %>%
add_header_above(c(" ", "Group 1" = 2, "Group 2[note]" = 2)) %>%
add_footnote(c("table footnote"))
タイトルとフッターの書体を変更
# LaTeX Table
kable(dt, format = "latex", booktabs = T, caption = "\\em{Demo} \\textnormal{Table}", escape =FALSE) %>%
kable_styling(latex_options = c("striped", "hold_position"),
full_width = F) %>%
add_header_above(c(" ", "Group 1" = 2, "Group 2[note]" = 2)) %>%
add_footnote(c("\\textsc{table} \\textbf{footnote}"), escape=FALSE)
行・列名の書体を変更
# LaTeX Table
colnames(dt)[1] <- "\\textit{mpg}"
colnames(dt)[2] <- "\\textbf{cyl}"
colnames(dt)[3] <- "\\texttt{disp}"
colnames(dt)[4] <- "\\textrm{hp}"
rownames(dt)[1] <- "\\textit{Mazda RX4}"
rownames(dt)[2] <- "\\textbf{Mazda RX4 Wag}"
rownames(dt)[3] <- "\\texttt{Datsun 710}"
rownames(dt)[4] <- "\\textrm{Hornet 4 Drive}"
rownames(dt)[5] <- "\\textsc{Hornet Sportabout}"
kable(dt, format = "latex", booktabs = T, caption = "\\em{Demo} \\textnormal{Table}", escape =FALSE) %>%
kable_styling(latex_options = c("striped", "hold_position"),
full_width = F) %>%
add_header_above(c(" ", "Group 1" = 2, "Group 2[note]" = 2)) %>%
add_footnote(c("\\textsc{table} \\textbf{footnote}"), escape=FALSE)