xtable and knitr: Wie zentriert man die Tabelle auf die volle Seitenbreite?

Question

(This question bedeutet dies nicht lösen, weil das über Zentrierung innerhalb Linienbreite war ich in die volle Seitenbreite interessiert bin..)

ich eine Tabelle wie folgt produzieren:

\documentclass{article} 

\begin{document} 

<<tabletest, message=F, warning=F, echo = F, results = "asis">>= 
library(readr) 
library(xtable) 
# Create dummy data.frame 
values <- 1:14 
df <- t(data.frame(values, values)) 
colnames(df) <- paste("column", values, sep="") 
rownames(df) <- c("row1", "row2") 
ltable <- xtable(
    x = df 
) 
print(ltable) 
@ 

\end{document} 

Das Ergebnis sieht dies wie:

ich möchte diese auf der Seite horizontal zu zentrieren. Mein erster Versuch war das Einwickeln der Brocken in \centerline{}, aber das hat mich dies:

Runaway argument? 
{ \begin {table}[ht] \centering \begin {tabular}{rrrrrrrrrrrrrrr} \hline \ETC. 
! Paragraph ended before \centerline was complete. 
<to be read again> 
        \par 

Der interessante Teil in der resultierenden .tex-Datei wie folgt aussieht:

\centerline{ 
% latex table generated in R 3.2.5 by xtable 1.8-2 package 
% Mon Apr 25 16:40:48 2016 
\begin{table}[ht] 
\centering 
\begin{tabular}{rrrrrrrrrrrrrrr} 
    \hline 
& column1 & column2 & column3 & column4 & column5 & column6 & column7 & column8 & column9 & column10 & column11 & column12 & column13 & column14 \\ 
    \hline 
row1 & 1 & 2 & 3 & 4 & 5 & 6 & 7 & 8 & 9 & 10 & 11 & 12 & 13 & 14 \\ 
    row2 & 1 & 2 & 3 & 4 & 5 & 6 & 7 & 8 & 9 & 10 & 11 & 12 & 13 & 14 \\ 
    \hline 
\end{tabular} 
\end{table} 

} 

Wenn ich manuell bearbeiten zu diesem:

% latex table generated in R 3.2.5 by xtable 1.8-2 package 
% Mon Apr 25 16:40:48 2016 
\begin{table}[ht] 
\centerline{ 
\begin{tabular}{rrrrrrrrrrrrrrr} 
    \hline 
& column1 & column2 & column3 & column4 & column5 & column6 & column7 & column8 & column9 & column10 & column11 & column12 & column13 & column14 \\ 
    \hline 
row1 & 1 & 2 & 3 & 4 & 5 & 6 & 7 & 8 & 9 & 10 & 11 & 12 & 13 & 14 \\ 
    row2 & 1 & 2 & 3 & 4 & 5 & 6 & 7 & 8 & 9 & 10 & 11 & 12 & 13 & 14 \\ 
    \hline 
\end{tabular} 
} 
\end{table} 

Dann funktioniert es. Aber wie kann ich das automatisch erreichen? Nach this und this lesen, habe ich versucht:

x <- capture.output(print(xtable(ltable))) 
x <- gsub("\\\\centering", "", x, fixed=TRUE) # Remove \centering 
x <- gsub("\\begin{table}[ht]", "\\begin{table}[ht]\\centerline{", x, fixed=TRUE) # Add \centerline{ 
x <- gsub("\\end{table}", "\\end{table}}", x, fixed=TRUE) # Add ending } 

Aber das Format der x ist nicht, wie ich, wenn bekam print(ltable) früher Aufruf:

> print(x) 
[1] "% latex table generated in R 3.2.5 by xtable 1.8-2 package"                                                                    
[2] "% Mon Apr 25 16:51:02 2016" 

Das heißt, dies wird ausgegeben, um die Klammern mit Zahlen vor ist von jeder Linie und es wird keine Tabelle erzeugen. Kann mir jemand dabei helfen?

Answer 1

Fall 1: Nicht-Floating-Tabelle

Wenn die Tabelle nicht schweben soll, ist es einfach, die tabular in einem makebox wie vorgeschlagen here einzuschließen:

\documentclass{article} 
\begin{document} 

<<echo = F, results = "asis">>= 
library(xtable) 

cat("\\makebox[\\textwidth]{") 
print(xtable(t(cars)[, 1:16]), floating = FALSE) 
cat("}") 

@ 
\end{document} 

Fall 2: Schwimmende Tabelle

In diesem Fall ist die best solution I found verwendet die adjustwidth-Umgebung aus dem changepage-Paket.

Definieren Sie zuerst eine neue Umgebung, die ihren Inhalt in einer adjustwidth Umgebung enthält, um den linken Rand zu entfernen.

\newenvironment{widestuff}{\begin{adjustwidth}{-4.5cm}{-4.5cm}\centering}{\end{adjustwidth}} 

Zweitens gibt diese neue Umgebung als latex.environments-print.xtable. (Wenn es ein Weg, um Argumente für die Umwelt in latex.environments zu passieren, würde die individuelle Umgebung gar nicht notwendig sein.)

\documentclass{article} 
\usepackage{changepage} 
\newenvironment{widestuff}{\begin{adjustwidth}{-4.5cm}{-4.5cm}\centering}{\end{adjustwidth}} 
\begin{document} 
<<echo = F, results = "asis">>= 
library(xtable) 
print(xtable(t(cars)[, 1:16]), latex.environments = "widestuff") 

print(xtable(t(cars)[, 1:12]), latex.environments = "widestuff") 
@ 
\end{document} 

(Die Screenshots enthalten einen Text, die nicht in der ist Codebeispiel.Es ist nur dort, um die Seitenabmessungen zu visualisieren.)