results - tables in r markdown

R, knitr, xtable, alternando colores de fila

Question

Estoy intentando producir una tabla con xtable en R usando knitr con colores de fila alternos. Puedo imprimir una tabla en la salida de PDF, pero no puedo descifrar el comando add.to.row en el manual de xtable junto con el paquete colortbl .

Answer 1

Esta figura fue producida usando el código en la parte inferior. Espero que no te rompas los ojos detectando el color gris claro (casi lo tengo, en una de mis pantallas).

library(xtable)
mydf <- data.frame(id = 1:10, var1 = rnorm(10), var2 = runif(10))
rws <- seq(1, (nrow(mydf)-1), by = 2)
col <- rep("//rowcolor[gray]{0.95}", length(rws))
print(xtable(mydf), booktabs = TRUE,
      add.to.row = list(pos = as.list(rws), command = col))

La clave es definir los índices de fila ( rws ) y sus respectivos colores ( col ). Si quieres que los colores difieran entre filas, deberás jugar con paste .

/documentclass[a4paper]{article}
/usepackage[utf8]{inputenc}
/usepackage[T1]{fontenc}
/usepackage[english]{babel}
/usepackage{booktabs}
/usepackage{colortbl, xcolor}

/begin{document}

<<do_table, results = "asis">>=
library(xtable)
mydf <- data.frame(id = 1:10, var1 = rnorm(10), var2 = runif(10))
rws <- seq(1, (nrow(mydf)), by = 2)
col <- rep("//rowcolor[gray]{0.95}", length(rws))
print(xtable(mydf), booktabs = TRUE, 
   add.to.row = list(pos = as.list(rws), command = col))
@

/end{document}