Настроить xxtable - программирование

Я хотел бы настроить xtable для экспорта в LaTeX. Я знаю, что здесь есть некоторые вопросы abot 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.frame с my.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}

Хорошо, и теперь это то, что я хотел бы изменить:

1) Вставьте \midrule после второй строки, а не после первой. 2) чередуя цвета строк этой таблицы, вставив \rowcolors{2}{gray!25}{white} в среду sidewaystable (или обычный table). 3) Названия вращающихся колонок на 45 ° 4) Вставьте \centering вместо center -среда в тех случаях, когда я хочу центрировать таблицу.

Любые идеи о том, как достичь этого?

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

Ответ 1