Question

有没有办法在R中以tex格式生成表格，然后在我的* .rnw文件中调用它们我必须使用一些用户定义的函数来生成很多表，然后通过sweave / knitr在我的latex文件中使用它们。这是一个简化的例子来说明我的观点...

数据：

x1 <- round(rnorm(10),2)
x2 <- sample(c('a','b','c'),10,replace=TRUE)

data1 <- cbind(x1,noquote(x2));data1 <- as.data.frame(data1)
names(data1)=c('X1','X2')

现在我想把这个data1放在tex文件中，如下所示

latex(data1,file='myfile.tex')

在我的sweave文件中运行上述内容时，R-studio因为该过程不会结束而陷入困境。我收到以下错误

 No file file1170690e2c79.aux.
*geometry* driver: auto-detecting
*geometry* detected driver: dvips
[1] (C:\Users\~~~\AppData\Local\Temp\RtmpeuvW08\file1170690e2c79.aux) )
Output written on file1170690e2c79.dvi (1 page, 604 bytes).
Transcript written on file1170690e2c79.log.

所以，我使用了以下

sink('myfile.tex')
latex(data1,file='')
sink()

我想可能有更好的方法。我不知道我在乳胶命令中做了什么错误。 如果有人能通过为我提供更好的方法来帮助我，我将不胜感激

这是我的sweave文件

\documentclass{article}
\usepackage{ctable}
\title{Untitled}

\begin{document}

\maketitle


<<somechunk,results=tex,echo=FALSE>>=
x1 <- round(rnorm(10),2)
x2 <- sample(c('a','b','c'),10,replace=TRUE)
data1 <- cbind(x1,noquote(x2));data1 <- as.data.frame(data1)
names(data1)=c('X1','X2')
sink('myfile.tex')

latex(data1,file='')
sink()
@

Here is my table 1 \include{myfile}

\end{document}

Answer 1

您可以使用xtable包：

\documentclass{article}
\usepackage{ctable}

\begin{document}

<<somechunk,results=tex,echo=FALSE,results=hide>>=
library(xtable)
x1 <- round(rnorm(10),2)
x2 <- sample(c('a','b','c'),10,replace=TRUE)
data1 <- cbind(x1,noquote(x2));data1 <- as.data.frame(data1)
names(data1)=c('X1','X2')
@

Here is my table 1:

<<results=tex, echo=FALSE>>=
xtable(data1)
@
\end{document}

Answer 2

如其他答案所示，最简单（使用Hmisc::latex或xtable）通常只在需要时生成LaTeX代码。

如果无法做到这一点，以下情况应该有效：

tmp <- latex(data1,file='myfile.tex')

latex创建文件会发生什么并返回类latex的对象。然后调用print方法，但它尝试编译该文件并显示结果，这在您的情况下是不希望的。将结果分配给变量（不会被使用），或者在invisible中打包电话，会禁止拨打print。

invisible( latex(data1,file='myfile.tex') )

在我的主文档中包含tex格式的几个表

2 个答案: