Question

使用xtable以下代码

  \documentclass{article}

  \begin{document}

  <<>>=
  myData <- matrix(c(1,2,3,11,12,13,111,222,33),ncol=3,byrow=TRUE)
  colnames(myData) <- c("A","B","C")
  @

  <<echo=FALSE>>=
  library("xtable")
  xt <- xtable(myData, align="|l|r|r|r|", digits=0)

  out <- print(xt, print.results = FALSE, floating = FALSE)
  @

  \end{document}

在out中生成以下LaTeX代码：

  % latex table generated in R 3.1.3 by xtable 1.7-4 package
  % Fri May  8 19:05:11 2015
  \begin{tabular}{|l|r|r|r|}
    \hline
   & A & B & C \\
    \hline
  1 & 1 & 2 & 3 \\
    2 & 11 & 12 & 13 \\
    3 & 111 & 222 & 33 \\
     \hline
  \end{tabular}

但我需要以下

\begin{tabular}[t]{|l|r|r|r|}

因为我想将这个表格包装成另一个表格。

有没有办法使用xtable生成这个可选的位置代码？

Answer 1

如果你有一个文字作为结果，你可以使用正则表达式将[t]插入out

例如使用这样的东西：

outf<-gsub("(tabular}{+)", "tabular}[t]{", out, perl=TRUE)

然后你会得到以下结果：

> cat(outf)
% latex table generated in R 3.2.0 by xtable 1.7-4 package
% 
\begin{tabular}[t]{|l|r|r|r|}
  \hline
 & A & B & C \\ 
  \hline
1 & 1 & 2 & 3 \\ 
  2 & 11 & 12 & 13 \\ 
  3 & 111 & 222 & 33 \\ 
   \hline
\end{tabular}

R：如何通过xtable在表格中设置位置选项？

1 个答案: