Làm cách nào để tạo bảng màu với Sweave và xtable? [đóng cửa]

Đã đóng cửa. Câu hỏi này không đúng chủ đề . Nó hiện không chấp nhận câu trả lời.

Bạn muốn cải thiện câu hỏi này? Cập nhật câu hỏi để nó thuộc chủ đề cho Xác thực chéo.

Đóng cửa 2 năm trước .

Tôi đang sử dụng Sweave và xtable để tạo báo cáo.

Tôi muốn thêm một số màu trên bàn. Nhưng tôi đã không tìm được cách nào để tạo các bảng màu với xtable.

Có lựa chọn nào khác?

r reproducible-research

— RockScience
nguồn

cái bàn màu gì Các tế bào với nền màu? Văn bản tế bào màu khác nhau? Trong kịch bản cuối cùng, giải pháp có thể gói các giá trị bằng các lệnh tex thích hợp.

— mpiktas

Tôi cần nền của một hàng có màu cụ thể. Tôi có phải viết lại một hàm xtable không?

— RockScience

xtable đã được viết lại (hoặc có lẽ được viết sẵn) dưới dạng hàm latex trong gói R Hmisc. Cá nhân tôi thề với nó cho các bảng tìm kiếm thích hợp. Tôi đã không kiểm tra xem nó có chỗ cho thủ thuật chèn ưa thích được mô tả bên dưới không, mặc dù tôi sẽ ngạc nhiên nếu không.

— liên hợp chiến binh

@Conjugate Bạn nói đúng, mặc dù nó không đơn giản như tôi nghĩ; Tôi đã cập nhật phản hồi của tôi với đề xuất của bạn.

— chl

@chl 'không đơn giản' là một cách đánh giá thấp. Chức năng đó là một con thú, mặc dù rất có khả năng.

— liên hợp chiến binh

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

Nó dường như để làm việc, với các colortblgói. Vì vậy, một cái gì đó như thế này

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

đưa cho tôi

nhập mô tả hình ảnh ở đây

(Đây là mẫu Beamer tùy chỉnh, nhưng nó sẽ hoạt động với một tài liệu tiêu chuẩn. Với Beamer, có lẽ bạn sẽ muốn thêm tabletùy chọn khi tải gói.)

Cập nhật:

$\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
nguồn