Я пытаюсь создать таблицу с xtable
в R, используя knitr
с чередующимися цветами строк. Я могу распечатать таблицу в PDF файле, но не могу определить команду add.to.row
в руководстве xtable
вместе с пакетом colortbl
.
R, knitr, xtable, чередующиеся цвета строк
Ответ 1
Эта цифра была создана с использованием кода внизу. Надеюсь, вы не сломаете себе глаза, обнаружив светло-серый цвет (я почти на одном из своих экранов).
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))
Ключ должен определять индексы строк (rws
) и их соответствующие цвета (col
). Если вы хотите, чтобы цвета различались между строками, вам нужно поиграть с 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}