[英]xtable in Sweave: specify toprule or midrule in a table + alignement
我正在使用R中的Sweave生成自動報告。我想:
這是我的代碼:
\documentclass[a4paper,18pt]{article}
\usepackage[top=2.5cm, left=2.5cm, right=2.5cm,bottom=2.5cm]{geometry}
\usepackage{Sweave}
\usepackage{booktabs}
\makeatletter
\def\hrulefill#1{\leavevmode\leaders\hrule\@height#1\hfill \kern\z@}
\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
向量行中的hline
。
library(xtable)
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)
數據
data <- structure(list(l = c(NA, NA, NA), w = c(515, 75, 85), a = c(0.22,
0.45, 0.45), m = c(127.83, 33.75, 38.25)), class = "data.frame", row.names = c("x", "y", "z"))
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.