R, Latex и RMarkdown: вход таблицы() для xtable() отсутствующих меток столбцов и строк?

Question

Я пытаюсь создать красивую таблицу LaTeX, где имена переменных строки и столбца таблицы включаются при использовании библиотеки xtable.

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) 
``` 

В результате LaTeX таблица, которая отсутствует в "яблоки" и "апельсины" этикетки. Как включить их?

Answer 1

Я уверен, что вы можете адаптировать это к xtable, но вот один из подходов, который вы можете использовать с помощью pixiedust. (Это не очень элегантное решение, но, учитывая структуру объекта table, я не уверен, что элегантный вариант).

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")