PercTable {DescTools} -防止输出文本包装

Question

我的目标是将PercTable输出以类似于JPG或CSV导入的干净/ HTML格式导出到演示文稿中。

我用下面的代码得到了我想要的“原始”表：

    Library(DescTable)
    PercTable(syn_gender ~ recommend, data=dfXtab, rfrq="010", expected=TRUE)

它的输出如图所示。屏幕快照以节省空间

如果没有包装最后2列的表，我如何导出输出？

谢谢-新手。

Answer 1

PercTable打印例程使用控制台宽度(getOption("width"))定义表中断。因此，第一个解决方案是简单地放大控制台的宽度并再次打印。

如果您在Windows上，输出的另一个选项是使用Office导出(需要package RDCOMClient)：

library(DescTools)
tt <- PercTable(table(d.pizza$operator, 
                      cut(d.pizza$temperature, breaks=6)))

wrd <- GetNewWrd()
ToWrd(tt$ftab)

会产生：

​

​