R、knitr、xtable、交替行颜色

Question

我正在尝试用 xtable 制作一张 table 在 R 中使用 knitr具有交替的行颜色。我可以在 PDF 输出中打印一个表格，但不太清楚 add.to.row xtable 中的命令手册以及 colortbl包裹。

Answer 1

该图是使用底部的代码生成的。我希望你不要因为检测到浅灰色而睁不开眼睛(在我的一个屏幕上我几乎看到了)。

library(xtable)
mydf <- data.frame(id = 1:10, var1 = rnorm(10), var2 = runif(10))
rws <- seq(1, (nrow(mydf)-1), by = 2)
col <- rep("\\rowcolor[gray]{0.95}", length(rws))
print(xtable(mydf), booktabs = TRUE,
      add.to.row = list(pos = as.list(rws), command = col))

关键是定义行索引( rws )和它们各自的颜色( col )。如果您希望行之间的颜色不同，则需要使用 paste .

\documentclass[a4paper]{article}
\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}
\usepackage[english]{babel}
\usepackage{booktabs}
\usepackage{colortbl, xcolor}

\begin{document}

<<do_table, results = "asis">>=
library(xtable)
mydf <- data.frame(id = 1:10, var1 = rnorm(10), var2 = runif(10))
rws <- seq(1, (nrow(mydf)), by = 2)
col <- rep("\\rowcolor[gray]{0.95}", length(rws))
print(xtable(mydf), booktabs = TRUE, 
   add.to.row = list(pos = as.list(rws), command = col))
@

\end{document}