R、Latex、RMarkdown：xtable（）のtable（）入力に列と行のラベルがありませんか？

Question

私はテーブルの行と列の変数の名前がxtableライブラリを使用するときに含まれているかなりLaTeXテーブルを作成しようとしています。

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を使用して1つのアプローチをとることができます。 （これは非常に洗練された解決策ではありませんが、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")