Как напечатать верхние индексы в таблице, используя xtable и sweave?

Question

Итак, моя проблема заключается в следующем: я определил фрейм данных в моем документе 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 (после слова Evaluation) как верхние индексы?

Answer 1

Фактический верхний индекс довольно прост. \\textsuperscript{1} в сочетании с sanitize.text.function = identity доставит вас туда.

Я должен был сделать некоторые другие изменения в вашем примере. В выравнивании слишком много столбцов, а подчеркивания в именах переменных вызывают проблемы при компиляции 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)
@