xtable - 添加行的背景颜色

Question

我试图用xtable和knitr插入汇总行来制作表格。我想要以不同的颜色插入这些插入的行。使用add.to.row选项，我设法插入行或改变颜色，但不能同时改变颜色。

我在xtable中插入行而不是提前的原因是我希望“total”行分布在两列，因为它的长度在我的原始数据集中。因此，所需的解决方案将包含汇总行中的多列单元格和不同颜色的背景。 我在我的Latex学习曲线的一开始，任何帮助将不胜感激。

下面是一个例子，其中包括假数据集：

\usepackage{booktabs} 
\usepackage{colortbl, xcolor} 

\begin{document} 

<<try, echo = FALSE, eval = TRUE, results = 'asis'>>= 
library(xtable) 
dat <- data.frame(type = c(rep("a", 5), rep("b", 5)), a = c(1:5, 1:5), b = 1:10, c = 21:30) 
temp <- ddply(dat, .(type), summarize, SumB = sum(b)) 

rws <- which(dat$a == 5) 
col <- rep("\\rowcolor[gray]{0.95}", length(rws)) ## colour definition prepared, but not used 

#Making the command for inserting summary rows 
temp$insert <- "" 
for(i in 1:nrow(temp)){ 
    temp[i,]$insert <- sprintf("\\multicolumn{3}{l}{Total %s} & 
     \\multicolumn{1}{c}{%d} \\\\ ", temp[i,]$type, temp[i,]$SumB) 
      } 

print(xtable(dat, align = "llccc"), 
    include.rownames=FALSE, 
    booktabs = TRUE, 
    sanitize.text.function=function(x){x}, 
    add.to.row = list(pos = as.list(rws), 
     command = paste(temp$insert, sep = ","))) 

@ 
\end{document} 

Answer 1

我想说colortbl就足够了，没有必要xcolor这里。 尝试添加rowcolor到您的命令是这样的：

print(somextable,     
       floating=FALSE, 
       hline.after=NULL,     
       size="\\footnotesize", 
       add.to.row=list(pos=list(-1,0,nrow(somextable),0, 
             1,2,3, 
             4,5,6, 
             7,8,9,10,11 
             ), 
       command=c('\\toprule ', 
         '\\midrule ', 
         '\\bottomrule', 
         '\\\\ \\rowcolor[gray]{.9}', 
         '\\rowcolor[gray]{.97}', 
         '\\rowcolor[gray]{.97}', 
         '\\\\ \\rowcolor[gray]{.9}', 
         '\\rowcolor[gray]{.97}', 
         '\\rowcolor[gray]{.97}', 
         '\\\\ \\rowcolor[gray]{.9}', 
         '\\rowcolor[gray]{.97}', 
         '\\rowcolor[gray]{.97}', 
         '\\rowcolor[gray]{.97}', 
         '\\rowcolor[gray]{.97}', 
         '\\rowcolor[gray]{.97}' 
         ) 
          ) 
      ) 

也应该与add.to.row一般创建的行工作。