将行的两组规则传递给 xtable答案

【问题标题】：Pass two set of rules for rows to xtable将行的两组规则传递给 xtable
【发布时间】：2014-01-01 10:30:02
【问题描述】：

请考虑以下 MWE（此 answer 的变体）

\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 <- c(1,3,5,6,7)
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}

这样，我为第 1、3、5、6、7 行设置了规则。现在假设我还想为不同的行 (2,4) 设置不同的颜色[green]。有可能吗？

【问题讨论】：

标签： r latex knitr sweave

【解决方案1】：

是的，您只需要构造一个col 向量，其中包含表格中每个位置的所有对应颜色。您的示例有两个不同颜色的行：

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

【讨论】：