xtable 및 sweave를 사용하여 테이블에 위 첨자를 인쇄하는 방법은 무엇입니까? 나는 다음과 같은 코드를 사용하여 내 Sweave 문서 (.Rnw 확장)에서 데이터 프레임을 정의 을 : 다음과 같이

Question

그래서 내 문제 문이

<<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 (평가라는 단어 뒤에)를 위첨자로 사용합니까?

Answer 1

실제 위 첨자는 매우 쉽습니다. 과 함께 \\textsuperscript{1}을 보내드립니다.

예를 들어 다른 부분을 변경해야했습니다. 정렬에 너무 많은 열이 있고 변수 이름의 밑줄로 인해 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) 
@