所以我的问题陈述如下:
我使用以下代码在我的 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 之后)打印为上标?
最佳答案
实际的上标很容易。 \\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)
@
关于r - 如何使用 xtable 和 sweave 在表格中打印上标?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/26525879/