Sweave ve Xtable ile renkli tablolar nasıl oluşturulur? [kapalı]

Kapalı. Bu soru konu dışı . Şu anda cevapları kabul etmiyor.

Bu soruyu geliştirmek ister misiniz? Sorunuzu güncelleyin o yüzden -konu üzerinde Çapraz doğrulanmış için.

2 yıl önce kapalı .

Bir rapor oluşturmak için Sweave ve xtable kullanıyorum .

Masaya biraz renk katmak istiyorum. Ama xtable ile renkli tablolar oluşturmak için herhangi bir yol bulmayı başaramadım.

Başka seçenek var mı?

r reproducible-research

— RockScience
kaynak

renkli masa nedir? Renkli arka planlı hücreler? Hücre metni farklı renkte mi? Son senaryoda, çözüm değerleri uygun tex komutlarıyla kaydırıyor olabilir.

— mpiktas

Belirli bir renkte olmak için bir satırın arka planına ihtiyacım var. Bir xtable fonksiyonunu yeniden yazmak zorunda mıyım?

— RockScience

xtable zaten R paketi Hmisc'de lateks işlevi olarak yeniden yazılmıştır (veya belki de önceden yazılmıştır) . Şahsen uygun görünümlü tablolar için yemin ederim. Ben olmasa da sürpriz olsa da, aşağıda açıklanan fantezi ekleme hile için yer olup olmadığını kontrol etmedim.

— eşlenik

@Konjugat Haklısın, düşündüğüm kadar basit olmasa da; Yanıtınızı önerinizle güncelledim.

— chl

@chl 'basit değil' bir yetersizliktir. Bu işlev çok yetenekli olmasına rağmen bir canavardır.

— konjugateprior

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

colortblPaketle çalışıyor gibi görünüyor . Yani, böyle bir şey

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

bana verir

resim açıklamasını buraya girin

(Bu özelleştirilmiş bir Beamer şablonudur, ancak bu standart bir belge ile çalışmalıdır. Beamer ile muhtemelen tablepaketi yüklerken seçeneği eklemek istersiniz .)

Güncelleme:

@ Conjugate'nin önerisini takiben, ilgili Hmisc tesislerine de güvenebilirsiniz $\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

— chl
kaynak