Question

我使用以下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]“

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

由于

Answer 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"

从LaTeX中R的xtable（）表输出中删除其他脚注

1 个答案: