knitr如何使用xtable获取latex表中的指数/脚注

我想在一张乳胶桌子的单元格里放一个脚注。通常我会用：

 ... &   $^{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}

\documentclass[9pt]{article}
\开始{document}
=
df0请参见
？print.xtable
并查看消毒选项

使用你最初的乳胶包合方法，这样的方法应该会奏效

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

=
需要（xtable）
就这样。谢谢！