Przygotowuję automatyczny raport za pomocą Sweave w wersji R. Chciałbym:
- W pozycji (n.p. -1) chciałbym mieć topułę zamiast środkowej
- Wyrównaj pierwszy wiersz jako wyśrodkowany, a następnie chcę wyrównać numer w prawo, aby wyrównać cyfry.
Oto mój kod:
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}
Odpowiedzi:
2 dla odpowiedzi № 1Od dokumentacja, posługiwać się add.to.row
w połączeniu z hline.after=NULL
kontrolować to, co dodajesz do linii z hline
wektor.
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)