☰

¿Por qué no puedo centrar mi mesa usando xtable y lualatex en rmd?

tag-icon • tag-icon luatex r
¿Por qué no puedo centrar mi mesa usando xtable y lualatex en rmd?

¿Alguien puede ayudarme a resolver mi problema con xtable, por favor?

Creo una tabla usando xtable, basada en los datos que procesé Rstudio. El código R principal ejecuta un script Rmd que genera un pdf con esa tabla. Funciona bien, pero no puedo centrar esa mesa... ¡desde hace días!

Aquí está el código en Rmd:

---
#knit: (function(inputFile, encoding) { rmarkdown::render(inputFile, ) })
#template: default-1.17.0.2.tex
output: 
  pdf_document:
    latex_engine: lualatex 
    keep_tex: true
documentclass: article
mainfont: Arial
fontsize: 12pt
params:
  dyntitle:  !r dyntitle
  dynsubtitle:  !r dynsubtitle
  dynfigno:  !r dynfigno
  dynprojectname:  !r dynprojectname

title: "`r params$dyntitle`"
subtitle: "`r params$dynsubtitle`"
figureno: "`r params$dynfigno`"
projectname: "`r params$dynprojectname`"
---


```{r echo = FALSE, results='asis'}
library(xtable)
options(xtable.floating = FALSE)
options(xtable.timestamp = "")
options(xtable.comment = FALSE)
library(knitr)
library(kableExtra)

tbl<-Bdata[-c(13,16),]
x<-xtable(tbl, auto = T)
rws <- seq(1, (nrow(tbl)), by = 2)
spc <- seq(4, (nrow(tbl)), by = 4)
addtorow <- list()
addtorow$pos <- as.list(c(0,
                          rws,
                          nrow(x),
                          spc)
                        )
addtorow$command <- as.vector(c("\\toprule \n 
                                &\\multicolumn{4}{c}{OP4} \\\\ \\cmidrule(lr){2-5} \n 
                                &\\multicolumn{2}{c}{30} & \\multicolumn{2}{c}{00} \\\\ \\cmidrule(lr){2-3} \\cmidrule(lr){4-5} \n
                                & TP & EO & TP & EO & \\\\ \\midrule ",
                                rep("\\rowcolor[gray]{0.95}", length(rws)),
                                "\\bottomrule",
                                rep("\\addlinespace[5pt] ", length(spc)))
                              ,mode="character" )

digits(x) <- matrix(c(0,0,0,-2,0,0,0,0,0,0,0,0,0,0,1,0), nrow = nrow(x), ncol = ncol(x)+1)

print(x, add.to.row=addtorow,include.colnames = FALSE, hline.after = NULL, size="\\fontsize{10pt}{12pt}\\selectfont")

Respuesta1

Como está utilizando, results='asis'puede generar código LaTeX adicional con cat, por ejemplo

cat("\\begin{center}")
print(x, add.to.row=addtorow,include.colnames = FALSE, hline.after = NULL, size="\\fontsize{10pt}{12pt}\\selectfont")
cat("\\end{center}")

Funciona para mí cuando uso algún conjunto de datos estándar.

información relacionada