[英]inset \footnote{} into header with xtable and tabular.environment
我可以控制add.to.row
在命令xtable
將一個\\footnote{}
在LaTeX
表輸出頭?
這是我走了多遠。 (我想找到一個使用xtable
而不是'Hmisc'的解決方案)
require(xtable)
x <- matrix(rnorm(60), ncol = 10)
x.big <- xtable(x,label='tabbig', caption='Example of longtable')
names(x.big) <- LETTERS[1:10]
print(x.big,tabular.environment='longtable',floating=FALSE,
add.to.row = list(pos = list(seq(1,nrow(x.big), by = 2), 0, 1),
command = c("\\rowcolor[gray]{.95} ", "\\hline \\endhead ",
"\\footnote{This is the first footnote that I would like to have
in the headder next to `I'.}") ) )
然后我在小乳膠文件中使用輸出。 像這樣:
\documentclass{article}
\usepackage{longtable}
\usepackage{colortbl}
\usepackage[landscape]{geometry}
\begin{document}
I
\vspace{100 mm}
% latex table generated in R 2.15.1 by xtable 1.7-0 package
% Sun Dec 2 15:38:26 2012
\begin{longtable}{rrrrrrrrrrr}
\hline
& A & B & C & D & E & F & G & H & I & J \\
\hline \endhead \hline
1 & 0.57 & -0.21 & 1.11 & 0.15 & -0.47 & 0.77 & 0.26 & 2.08 & 0.65 & -1.62 \\
\rowcolor[gray]{.95} \footnote{This is the first footnote that I would like to have in the headder next to `I'.}2 & -0.45 & -0.06 & 0.13 & 0.20 & 0.26 & 0.48 & 0.07 & 0.45 & -0.51 & 1.26 \\
3 & -0.23 & -0.68 & 0.17 & -0.92 & -0.44 & -0.43 & -0.63 & 1.84 & 0.08 & 1.21 \\
\rowcolor[gray]{.95} 4 & -1.60 & -0.69 & -0.11 & 2.12 & -0.12 & -1.81 & -1.51 & 0.67 & 0.22 & 0.43 \\
5 & -0.26 & 0.14 & 0.86 & -0.78 & -2.04 & 1.17 & -1.48 & -0.38 & 0.80 & 1.49 \\
\rowcolor[gray]{.95} 6 & -0.53 & -0.43 & -0.84 & 0.06 & -0.87 & 1.13 & -0.56 & 0.30 & -0.96 & 1.75 \\
\hline
\hline
\caption{'Example of longtable'}
\label{tabbig}
\end{longtable}
\end{document}
這會產生這個表,
我認為你不能使用add.to.row參數來操縱頭部。
但為什么不進行消毒呢?
在這里我的解決方案:想法是在標題中添加一個標記(這里是腳注 )並使用sanitize選項更改它。
x <- matrix(rnorm(60), ncol = 10)
x.big <- xtable(x,label='tabbig', caption='Example of longtable')
names(x.big) <- LETTERS[1:10]
names(x.big)[9] <- paste('I','footnote') # I put the tag on I letter
print(x.big,tabular.environment='longtable',floating=FALSE,
sanitize.text.function=function(str)gsub("footnote","\\footnote{my tricky footnote !!}",str,fixed=TRUE))
您可以使用許多標簽輕松地將解決方案擴展到許多腳注。
您可以輕松地使用這些技巧來處理多個音符,如下所示:
names(x.big)[1] <- paste('A','footnote1') # I put the tag on A letter
names(x.big)[9] <- paste('I','footnote2') # I put the tag on I letter
print(x.big,floating=FALSE,
sanitize.text.function=function(str){
str <- gsub("footnote1","\\footnote{my tricky footnote 1 !!}",str,fixed=TRUE)
str <- gsub("footnote2","\\footnote{my tricky footnote 2 !!}",str,fixed=TRUE)
}
)
這個想法是在正則表達式替換后分配相同的字符串。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.