R文件字rtf表

Question

我想将一个表放在包含RTF的文件中。

我的代码是

univ_quali<-function(dataset){ print(cbind(prop.table(table(sex)), t(t(table(sex)))))}


univ_quali(sex)

 [,1] [,2]
1 0.5754717   61
2 0.4245283   45

我试过这个

 addTable(rapportrtf,univ_quali(sex))

但它在word文档中返回一个类似的表：

V1                  V2
0.5754717          61
0.4245283          45

我想

     percentage         sum
  1   0.5754717          61
  2   0.4245283          45

可重现的例子：

set.seed(24)
sex <- sample(c("male", "female"), 106, replace=TRUE)

我该怎么办？

Answer 1

我终于找到了答案！

tab_sex<-univ_quali(sex)
rownames(tab_sex)<-c("1","2")
colnames(tab_sex)<-c("Pourcentage","Somme")
addTable(rapportrtf,cbind(rownames(tab_sex),tab_sex))