xtable in Sweave: вкажіть верхню або середню частину столу + вирівнювання - r, латекс, піка, xtable

Я створюю автоматичний звіт за допомогою Sweave в R. Я хотів би:

1. У положенні (нівель -1) я хотів би мати топруле замість середньої
2. Вирівняйте перший ряд по центру, а потім я хотів би вирівняти число праворуч, щоб вирівняти цифри.

Ось мій код:

documentclass[a4paper,18pt]{article}
usepackage[top=2.5cm, left=2.5cm, right=2.5cm,bottom=2.5cm]{geometry}
usepackage{Sweave}
usepackage{booktabs}
makeatletter
defhrulefill#1{leavevmodeleadershrule@height#1hfill kernz@}
makeatother
begin{document}
SweaveOpts{concordance=TRUE}

<<xtable1, results=tex,echo=FALSE>>=
library(xtable)

> data
l w  a m
x     NA  515.0 0.22 127.83
y     NA   75.0 0.45  33.75
z     NA   85.0 0.45  38.25


xtab <- xtable(data)
hline <- c(-1,0,nrow(xtab)-1,nrow(xtab))
align(xtab) <- "lcccc"
print(xtab,booktabs=T,hline.after=hline)
@


end{document}

Відповіді:

Від документація, використовувати add.to.row в поєднанні з hline.after=NULL щоб керувати тим, що ви додаєте до рядків із hline вектор.

xtab <- xtable(data)

hline <- c(-1,0,nrow(xtab)-1,nrow(xtab))
htype <- c("\toprule ", "\midrule ", "\toprule ","\bottomrule ")

print(xtab,add.to.row = list(pos = as.list(hline),
command = htype),
hline.after = NULL)