1

我正在使用以下 R 代码xtable为 Sweave 文档调用和生成 LaTeX 表。

ifelse(LaTeX==1, print(xtable(rule1.results.noTC, caption="Rule 1 Results 0 Transaction Costs",
                          digits=c(1,2,4,4,4), display=c("d","d","f","f","f"))), 
   print(rule1.results))

这将产生以下 LaTeX

% latex table generated in R 3.0.1 by xtable 1.7-1 package
% Sun Jul 28 16:54:42 2013
\begin{table}[ht]
\centering
\begin{tabular}{rrrrr}
  \hline
 & L & profits & annCumulExReturn & sharpe \\ 
  \hline
1 &   5 & -888.8215 & -0.1501 & -4.3939 \\ 
  2 &  10 & -909.8941 & -0.1533 & -6.8882 \\ 
  3 &  20 & -893.6245 & -0.1509 & -6.9081 \\ 
  4 &  40 & -865.6764 & -0.1466 & -9.8462 \\ 
  5 &  80 & -832.4700 & -0.1417 & -11.7260 \\ 
  6 & 160 & -757.0690 & -0.1305 & -16.3088 \\ 
  7 & 320 & -626.9162 & -0.1118 & -31.6134 \\ 
  8 & 640 & -340.8740 & -0.0730 & -44.2321 \\ 
   \hline
\end{tabular}
\caption{Rule 1 Results with Transaction Costs} 
\end{table}

当我将其转换为 pdf 时,我得到了一张漂亮的表格。然而,它后面跟着一个奇怪的注释:[1]"

如果我连续绘制多个表,我会得到其中的几个。如何通过 Rxtable或编辑 LaTeX 代码来消除这种情况。

谢谢

4

1 回答 1

1

如果没有您的数据和 .tex 文件的示例,我不能肯定地说,但我非常有信心这是由于您使用ifelse. 我想以下内容不会给你奇怪的打印输出:

if(LaTeX==1) {
    print(xtable(rule1.results.noTC,caption="Rule 1 Results 0 Transaction Costs",
                 digits=c(1,2,4,4,4), display=c("d","d","f","f","f")))
} else {
    print(rule1.results))
}

这是因为ifelse返回它的结果,你也在打印它。参见,例如:

> ifelse(TRUE,print("true"),print("false"))
[1] "true"
[1] "true"
于 2013-07-29T16:24:20.600 回答