如何使用 xtable 和 sweave 在表格中打印上标？

【问题标题】：How do I print superscripts in a table using xtable and sweave?如何使用 xtable 和 sweave 在表格中打印上标？
【发布时间】：2014-10-23 10:14:03
【问题描述】：

所以我的问题陈述如下：我使用以下代码在我的 Sweave 文档（.Rnw 扩展名）中定义了一个数据框：

<<label=table2_1,echo=FALSE>>=
    table2_1_rows <- c('Students with compulsory Evaluations',
            'Teachers with compulsory evaluations1',
            'Teachers without Evaluation2',
            'Students without compulsory evaluations3'
            )
    table2_1_data <- c(1,2,3,4)
    table2_1final <- data.frame(table2_1_rows,table2_1_data)
@

<<label=tab1,echo=FALSE,results=tex>>=

    print(xtable(table2_1final,caption= ' ',align="|c|c|c|c|c|c|"),include.rownames=FALSE)
@

如何让 xtable 将数字 1、2、3（在单词评估之后）打印为上标？

【问题讨论】：

标签： r latex sweave xtable

【解决方案1】：

实际的上标很简单。 \\textsuperscript{1} 与 sanitize.text.function = identity 结合使用将助您一臂之力。

我必须对您的示例进行一些其他更改。 align 中的列太多，变量名中的下划线导致编译 tex 出现问题。

<<label=table2_1,echo=FALSE>>=
require(xtable)
    table2_1_rows <- c('Students with compulsory Evaluations',
            'Teachers with compulsory evaluations\\textsuperscript{1}',
            'Teachers without Evaluation\\textsuperscript{2}',
            'Students without compulsory evaluations\\textsuperscript{3}'
            )
    table2_1_data <- c(1,2,3,4)
    table2_1final <- data.frame(table2_1_rows,table2_1_data)
    names(table2_1final) <- c("rows", "data")
@

<<label=tab1,echo=FALSE,results=tex>>=

    print(xtable(table2_1final,caption= ' ',align="|c|c|c|"),include.rownames=FALSE, 
          sanitize.text.function = identity)
@

【讨论】：