Как включить греческие буквы в файл Rsweave (Rstudio)

Question

Это мой воспроизводимый код Rsweave:

\documentclass{article}    
    \usepackage[a4paper,left=1.5cm,right=1.5cm,bottom=1cm,top=3cm]{geometry}
    \usepackage[perpage]{footmisc}

    \usepackage{float}   

    \usepackage{booktabs}    
    \usepackage{colortbl}
    \usepackage{tabu}    
    \usepackage{makecell}       
    \begin{document}

    <<maincode,include=FALSE, echo=TRUE>>=
    library(knitr)
    library(kableExtra)
    @    
    <<results='asis',echo=FALSE>>=    
    summary_matrix<-matrix(nrow=3,ncol=4)
    options(knitr.table.format = "latex")    
    colnames(summary_matrix)=c('sample A','sample B','sample C','sample D')

    summary_matrix<-as.data.frame(summary_matrix)    
    rownames(summary_matrix)[1] <-  "$E(x_{s_{t+1}}^{can})$";
    rownames(summary_matrix)[2] <-  "$E(x_{s_{t+1}}^{fra})$";
    rownames(summary_matrix)[3] <-  "$H(x_{s_{t+1}}^{can})$";      
    kable(summary_matrix, booktabs = TRUE, caption = "My table", escape = FALSE)

    @

    \end{document}

Я хотел бы заменить x на Delta, а H на Sigma. В латексе было бы $\Delta$ и $\sigma$, но я не могу сделать это здесь.

Как я могу решить это?

Любая помощь?

Answer 1

Если вы хотите включить команды LaTeX, которые имеют обратную косую черту в R-строках, вам нужно будет избежать обратной косой черты с помощью другой обратной косой черты. Это работает при компиляции вашего примера с knitr а также pdflatex установить для кнопки "Компилировать PDF" в RStudio.

\documentclass{article}    
\usepackage[a4paper,left=1.5cm,right=1.5cm,bottom=1cm,top=3cm]{geometry}
\usepackage[perpage]{footmisc}

\usepackage{float}   

\usepackage{booktabs}    
\usepackage{colortbl}
\usepackage{tabu}    
\usepackage{makecell}       
\begin{document}

<<maincode,include=FALSE, echo=TRUE>>=
library(knitr)
library(kableExtra)
@    

<<results='asis',echo=FALSE>>=    
summary_matrix<-matrix(nrow=3,ncol=4)
options(knitr.table.format = "latex")    
colnames(summary_matrix)=c('sample A','sample B','sample C','sample D')

summary_matrix<-as.data.frame(summary_matrix)    
rownames(summary_matrix)[1] <-  "$E(\\Delta_{s_{t+1}}^{can})$";
rownames(summary_matrix)[2] <-  "$E(\\Delta_{s_{t+1}}^{fra})$";
rownames(summary_matrix)[3] <-  "$\\sigma(\\Delta_{s_{t+1}}^{can})$";      
kable(summary_matrix, booktabs = TRUE, caption = "My table", escape = FALSE)
@

\end{document}