r - knitr xtable 突出显示并为同一行添加水平线，

Question

我正在使用 knitr 和 xtable 来自动化我的报告程序。我想突出显示表格的几行，并在每行上方突出显示一条水平线。我使用的 .Rnw 文件如下:

\usepackage{colortbl, xcolor}
\usepackage{longtable}

\begin{document}

<<do_table, results = "asis">>=
library(xtable)
mydf <- data.frame(id = 1:10, var1 = rnorm(10), var2 = runif(10))

print(xtable(mydf), add.to.row = list(pos = list(0,2), command = rep("\\rowcolor[gray]{0.75}",2)),hline.after=c(0,2))
@

\end{document}

这工作得很好，但是，我正在使用的表应该是一个长表，如果我将最后一行代码调整为

print(xtable(mydf), add.to.row = list(pos = list(0,2), command = rep("\\rowcolor[gray]{0.75}",2)),hline.after=c(0,2),tabular.environment="longtable",floating=FALSE)

输出非常难看，行没有按预期突出显示。有人可能知道这个问题的答案吗？

谢谢，

大卫

Answer 1

抱歉，有点题外话，但演示了一个仅标记 Markdown 的解决方案，用于轻松突出显示单元格/行:

> mydf <- data.frame(id = 1:10, var1 = rnorm(10), var2 = runif(10))
> library(pander)
> emphasize.strong.rows(c(1, 3))
> pander(mydf)

---------------------------
 id      var1       var2   
----- ---------- ----------
**1** **0.7194** **0.6199**

  2     0.8094     0.1392  

**3** **-1.254** **0.5308**

  4     0.4505     0.8235  

  5    -0.3779     0.7534  

  6    -0.3518     0.3055  

  7     1.759      0.5366  

  8     0.9822     0.9938  

  9     1.549      0.3589  

 10     -1.077     0.5153  
---------------------------

可以直接转换为 LaTeX 或 pdf。