13

xtableLaTeXにエクスポートするためにカスタマイズしたいのですが。ここにいくつか質問があることは知ってxtableいますが、探している具体的なものが見つかりませんでした。

これが私のテーブルがどのように見えるかの例です:

my.table <- data.frame(Specifiers=c("","Spec1", "Spec2", "Spec3"),
    Values1 = c("N=10", 1.03, 1.71, 2.25),
    Values2 = c("N=20", 1.32, 1.79, 2.43))
colnames(my.table)[1] <- ""

作成するもの:

         Values1 Values2
1          N=10    N=20
2 Spec1    1.03    1.32
3 Spec2    1.71    1.79
4 Spec3    2.25    2.43

実際、このテーブルは.csvファイルからインポートされますdata.framemy.table <- read.delim("filename.csv", sep=",", header=TRUE)

今私はLaTeXテーブルを作成しますxtable

latex.tab <- xtable(my.table, caption=c("Stats"))
print(latex.tab, file="Summarystats.tex",
  floating.environment='sidewaystable',
  include.rownames=FALSE,
  booktabs=TRUE,
  latex.environment=NULL)

結果のLaTeXコードは次のとおりです。

\begin{sidewaystable}[ht]
\begin{tabular}{lllllll}
  \toprule
 & Values1 & Values2 \\ 
  \midrule
               N=10  &  N=20 \\
     Spec1  &  1.03  &  1.32 \\
     Spec2  &  1.71  &  1.79 \\
     Spec3  &  2.25  &  2.43 \\

   \bottomrule
\end{tabular}
\end{sidewaystable}

さて、これが私が変更したいものです:

\midrule1)最初の行の後にではなく、2番目の行の後に挿入します。2) (または通常の)環境\rowcolors{2}{gray!25}{white}内に挿入することにより、このテーブルの行の色を交互に変更します。3)列名を45°回転します。4)テーブルを中央に配置する場合は、-environmentの代わりに挿入します。sidewaystabletable\centeringcenter

これを達成する方法について何かアイデアはありますか?

4

1 に答える 1

14

前処理、渡される追加の引数、print.xtableおよび後処理が必要です。

my.table <- data.frame(Specifiers=c("","Spec1", "Spec2", "Spec3"),
                       Values1 = c("N=10", 1.03, 1.71, 2.25),
                       Values2 = c("N=20", 1.32, 1.79, 2.43))
colnames(my.table)[1] <- ""

# Pre-processing: rotates column names by 45 degrees
head = apply(as.array(names(my.table)), 1, function(x) paste("\\rotatebox{45}{", x, "}"))
head = paste(head, c(rep("&", length(head)-1), "\\\\\n"), collapse="")

latex.tab <- xtable(my.table, caption=c("Stats"))
ltable = print(latex.tab, file="", # File is empty, post-processing needed
      floating.environment='sidewaystable',
      include.rownames=FALSE,
      include.colnames=FALSE, # No colnames
      booktabs=TRUE,
      latex.environment="center", # Or NULL
      # Adds some extra-text after the rows specified in pos.
      # Adds new \midrule and comments old one.
      # Adds pre-processed names of columns
      add.to.row=list(pos=as.list(c(0, 0, 1)), command=as.vector(c(head, "%", "\\midrule\n"))))

# Post-processing: replaces \begin{center} with \centering
ltable = sub("\\begin{center}\n", "\\centering\n", ltable, fixed=TRUE)
ltable = sub("\\end{center}\n", "\n", ltable, fixed=TRUE)

# Post-processing: adds alternating colours
ltable = sub("\\begin{tabular}",
             "\\rowcolors{2}{gray!25}{white}\n\\begin{tabular}",
            ltable, fixed=TRUE)

# Writes output to the file
cat(ltable, file="Summarystats.tex")

他のタブ環境が必要な場合tabularは、1) 新しい変数を追加します。

TABULAR = "tabular"

print.xtable2) 次のように値を渡します。

...
tabular.environment=TABULAR,
...

3) 代替色の後処理を変更します。

ltable = sub(sprintf("\\begin{%s}", TABULAR),
             sprintf("\\rowcolors{2}{gray!25}{white}\n\\begin{%s}", TABULAR),
             ltable, fixed=TRUE)

結果:

ここに画像の説明を入力

于 2012-11-10T23:40:13.923 に答える