Jak tworzyć kolorowe stoły za pomocą Sweave i xtable? [Zamknięte]

Zamknięte. To pytanie jest nie na temat . Obecnie nie przyjmuje odpowiedzi.

Chcesz poprawić to pytanie? Zaktualizuj pytanie, aby było tematem dotyczącym weryfikacji krzyżowej.

Zamknięte 2 lata temu .

Używam Sweave i xtable do generowania raportu.

Chciałbym dodać trochę koloru na stole. Ale nie udało mi się znaleźć żadnego sposobu generowania kolorowych tabel za pomocą xtable.

Czy jest jakaś inna opcja?

r reproducible-research

— RockScience
źródło

jaki jest kolorowy stół? Komórki z kolorowym tłem? Tekst komórki inny kolor? W ostatnim scenariuszu rozwiązaniem może być owijanie wartości odpowiednimi poleceniami tex.

— mpiktas,

Potrzebuję tła jednego rzędu, aby mieć określony kolor. Czy muszę przepisać funkcję xtable?

— RockScience

xtable został już przepisany (lub być może wcześniej napisany) jako funkcja lateksu w pakiecie R Hmisc. Osobiście przysięgam na odpowiednio wyglądające stoły. Nie sprawdziłem, czy ma miejsce na fantazyjną sztuczkę wstawiania opisaną poniżej, choć byłbym zaskoczony, jeśli nie.

— conjugateprior

@ Conjugate Masz rację, chociaż nie jest to tak proste, jak myślałam; Zaktualizowałem odpowiedź o twoją sugestię.

— chl

@chl „nie jest proste” to mało powiedziane. Ta funkcja jest bestią, choć bardzo sprawną.

— conjugateprior

Chociaż nie próbowałem to wyraźnie z R (I zwykle postprocesowego tabel w Latex bezpośrednio \rowcolor, \rowcolorsalbo colortbl pakiet), myślę, że byłoby to łatwe do zrobienia, to grając z add.to.rowargumentów print.xtable(). Zasadniczo oczekuje dwóch składników (przekazanych jako list): (1) numer wiersza i (2) $\LaTeX$ Komenda. Należy pamiętać, że polecenia są dodawane na końcu określonych wierszy.

Wydaje się, że działa z colortblpakietem. Coś takiego

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

daje mi

wprowadź opis zdjęcia tutaj

(Jest to niestandardowy szablon Beamer, ale powinien on działać ze standardowym dokumentem. W przypadku Beamer prawdopodobnie będziesz chciał dodać tę tableopcję podczas ładowania pakietu.)

Aktualizacja:

Zgodnie z sugestią @ Conjugate możesz również polegać na urządzeniach Hmisc do obsługi $\TeX$ wyjście, zobacz wiele opcji latex()funkcji. Oto przykład użycia:

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
źródło