knitr如何使用xtable在乳膠表中獲取指數/腳註

Question

我想在乳膠桌的單元格中有一個腳註。通常我會這樣做：

... & $^{1)} $ ...  

我怎樣才能得到這個使用xtable？以下是一個簡單的例子，我嘗試了幾種方法來獲得我想要的：

\documentclass[9pt]{article} 

\begin{document}  

<<echo=TRUE>>= 
df0 <- data.frame(x=c(1:5), y=c('a','b','c','d','e')) 
df0$y <- as.character(df0$y) 
df0$y[df0$y=="a"] <- "$^{1)}$" 
df0$y[df0$y=="b"] <- "$\\^{2)}$" 
df0$y[df0$y=="c"] <- "$^3$" 
df0$y[df0$y=="d"] <- "$\\^4$" 
df0$y[df0$y=="e"] <- "\\$\\^4\\$" 
df0 
@ 

<<echo=FALSE, results="asis">>= 
xtable(df0) 
@ 

\end{document} 

任何提示讚賞。

Answer 1

請參閱?print.xtable並查看清潔選項。

使用列入原來的膠乳法那麼這樣的事情應該工作...

<<echo=FALSE, results="asis">>= 
require(xtable) 
tbl <- xtable(df0) 
print(tbl, type="latex", sanitize.text.function=function(x){x}) 
@