将 xtable 中底行的内容加粗
Boldify the contents of bottom row in xtable
如何将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)
@
这是一个工作示例(在 Rmarkdown 中,但应该很容易适应table。
---
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
(table 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")
```
如何将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)
@
这是一个工作示例(在 Rmarkdown 中,但应该很容易适应table。
---
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
(table 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")
```