R, Lateks ve RMarkdown: xtable() eksik sütun ve satır etiketleri için tablo() girişi?

Question

Xtable kütüphanesi kullanılırken tablonun satır ve sütun değişkenlerinin adlarının eklendiği güzel bir LaTeX tablosu oluşturmaya çalışıyorum.

MWE:

```{r results="asis"} 
test <- data.frame(Apples=c(1,2,3), Oranges=c(4,5,6), Watermelons=c(7,8,9)) 
testxtab <- xtable(with(test,table(Apples,Oranges))) 
print(testxtab, comment=FALSE) 
``` 

sonuç "Elmalar" ve "Portakallar" etiketleri eksik bir LaTeX tablodur. Bunları nasıl ekleyebilirim?

Answer 1

Bunu, xtable olarak ayarlayabildiğinizden eminim, ancak burada pixiedust'u kullanarak yapabileceğiniz bir yaklaşım var. (Bu çok zarif bir çözüm değil, ancak table nesnesinin yapısı göz önüne alındığında, zarif bir seçenek olduğundan emin değilim).

library(pixiedust) 
obj <- with(test, table(Apples, Oranges)) 

dimnames <- names(attr(obj, "dimnames")) 

head <- 
    rbind(c("", dimnames[2], rep("", ncol(obj) - 1)), 
     c(dimnames[1], colnames(obj))) %>% 
    as.data.frame(stringsAsFactors = FALSE) 
body <- cbind(rownames(obj), obj) %>% 
    as.data.frame(stringsAsFactor = FALSE) 

dust(body) %>% 
    redust(head, part = "head") %>% 
    sprinkle(rows = 1, 
      cols = 2:4, 
      merge = TRUE, 
      part = "head") %>% 
    medley_bw() %>% 
    sprinkle_print_method("latex")