xtable と Knitr を使用して、集計行が挿入されたテーブルを作成しようとしています。これらの挿入された線を別の色にしたいと思います。add.to.row オプションを使用して、行を挿入するか、色を変更することができましたが、両方を同時に行うことはできませんでした。
事前にではなく xtable 内に行を挿入する理由は、元のデータセットの長さのために、「合計」行を 2 つの列に分散させたいからです。したがって、必要なソリューションには、集計行の複数列セルと異なる色の背景の両方が含まれます。私は 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}