在R中将矩阵打印为pdf

Question

我想知道是否有任何R套餐允许＆＃34;漂亮＆＃34;将矩阵/数据框打印到pdf：by＆＃34; pretty＆＃34;，我的意思是能够打印带有括号的矩阵到pdf：

谢谢！

Answer 1

这是一个手动解决方案，可将矩阵输出到独立LaTeX文件中的array环境;您可以自定义Hmisc::latex以获得更好的结果。

m <- matrix(c(23,5,2,34,4,4,3,4,26),
             byrow=TRUE,ncol=3)
unlink("outfile.tex")  ## danger
ff <- file("outfile.tex",open="a")
writeLines(c("\\documentclass{article}",
             "\\begin{document}",
             "$$",
             "\\left(",
             "\\begin{array}{ccc}"),
             con=ff)
write.table(m,sep=" & ", eol="\\\\", row.names=FALSE,
            col.names=FALSE,append=TRUE,
            file=ff)
writeLines(c("\\end{array}",
             "\\right)",
             "$$",
             "\\end{document}"),
           con=ff)
close(ff)               

通过一些额外的工作，这可以推广到一个函数，该函数识别矩阵中的列数，将输出文件名作为参数等等 - 但它可能会重新发明{{1 }}