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