将 xtable 中底行的内容加粗

Question

如何将 xtable 最后一行的内容加粗？底行包含总和，我希望它加粗。

我使用以下内容：

<<eval=TRUE,echo=FALSE,results='asis',warning=FALSE,message=FALSE,error=FALSE>>=

test.xt <- xtable(test, label="table", caption='test')
align(test.xt) <- "|l|l|r|r|r|r|r|r|"
print(test.xt, tabular.environment='tabularx', include.rownames = FALSE,  width="\\textwidth", floating=FALSE)
@

Answer 1

这是一个工作示例（在 Rmarkdown 中，但应该很容易适应。

---
title: "Untitled"
output: pdf_document
header-includes:
  - \usepackage{tabularx}
  - \usepackage{array}
---

```{r, eval=TRUE,echo=FALSE,results='asis',warning=FALSE,message=FALSE,error=FALSE}
library(xtable)
test <- rbind(mtcars[1:10, 1:5], 
              colSums(mtcars[1:10, 1:5]))
rownames(test)[11] <- "Sum"

test[11, ] <- paste0("BOLD", test[11, ])

bold.somerows <- 
        function(x) gsub('BOLD(.*)',paste('\\\\textbf{\\1','}'),x)


test.xt <- xtable(test, label="table", caption='test')
align(test.xt) <- "|l|l|l|r|r|r|"
print(test.xt, tabular.environment='tabularx', include.rownames = FALSE,  width="\\textwidth", floating=FALSE, sanitize.text.function = bold.somerows)
```

如果您现在可以无边框管理，则可以使用pixiedust（LaTeX 文档中的表格边框是待办事项列表中的下一件事情pixiedust，应该在几周内完成）。

```{r}
library(pixiedust)
test <- rbind(mtcars[1:10, 1:5], 
              colSums(mtcars[1:10, 1:5]))
rownames(test)[11] <- "Sum"

dust(test, keep_rownames = TRUE) %>%
  sprinkle(rows = 11, bold = TRUE) %>%
  sprinkle_print_method("latex")
```