วิธีสร้างตารางสีด้วย Sweave และ xtable [ปิด]

ฉันใช้ Sweave และxtableเพื่อสร้างรายงาน

ฉันต้องการเพิ่มสีลงบนโต๊ะ แต่ฉันไม่สามารถหาวิธีสร้างตารางสีด้วย xtable ได้

มีตัวเลือกอื่น ๆ อีกไหม?

\rowcolor\rowcolorsadd.to.rowprint.xtable()list$\LaTeX$

ดูเหมือนว่าจะทำงานกับcolortblแพคเกจ ดังนั้นสิ่งนี้

<<result=tex>>
library(xtable)
m <- matrix(sample(1:10,10), nr=2)
print(xtable(m), add.to.row=list(list(1),"\\rowcolor[gray]{.8} "))
@

ให้ฉัน

(นี่เป็นเทมเพลต Beamer ที่กำหนดเอง แต่ควรทำงานกับเอกสารมาตรฐานด้วย Beamer คุณอาจต้องการเพิ่มtableตัวเลือกเมื่อโหลดแพ็คเกจ)

ปรับปรุง:

$\TeX$latex()

library(Hmisc)
## print the second row in bold (including row label)
form.mat <- matrix(c(rep("", 5), rep("bfseries", 5)), nr=2, byrow=TRUE)
w1 <- latex(m, rownamesTexCmd=c("","bfseries"), cellTexCmds=form.mat, 
            numeric.dollar=FALSE, file='/tmp/out1.tex')
w1  # call latex on /tmp/out1.tex
## highlight the second row in gray (as above)
w2 <- latex(m, rownamesTexCmd=c("","rowcolor[gray]{.8}"), 
            numeric.dollar=FALSE, file='/tmp/out2.tex')
w2