LaTeX数学表达式在Knitr / RMarkdown (光束)中的应用

Question

在使用LaTeX和kableExtra来编译一个表时，我很难正确地呈现knitr数学表达式。我最初使用xelatex作为我的引擎，然后切换到pdflatex，看看这是否能解决问题。我在这件事上很为难。

TeX序言

% For resizing caption font size
\usepackage{caption}
\captionsetup[figure]{font=tiny}

% Other packages
\usepackage{fancyvrb}
\usepackage{color,xcolor}
\usepackage{framed}
\usepackage{booktabs}
\usepackage{longtable}
\usepackage{array}
\usepackage{multirow}
\usepackage{wrapfig}
\usepackage{float}
\usepackage{colortbl}
\usepackage{pdflscape}
\usepackage{tabu}
\usepackage{threeparttable}
\usepackage{threeparttablex}
\usepackage[normalem]{ulem}
\usepackage{makecell}

% Colour formatting
\definecolor{UBCblue}{rgb}{0.04706, 0.13725, 0.26667} % UBC Blue (primary)
\definecolor{UBCgrey}{rgb}{0.3686, 0.5255, 0.6235} % UBC Grey (secondary)
\setbeamercolor{title}{fg=UBCblue} % slide title
\setbeamercolor{frametitle}{fg=UBCblue} % slide title
\setbeamercolor{structure}{fg=darkgray} % more list stuff, I think
\setbeamertemplate{itemize items}[circle] % for list itemes

% Page numbers
\setbeamertemplate{navigation symbols}{}
\setbeamertemplate{footline}[page number]

% Margins
\setbeamersize{text margin left=8mm,text margin right=8mm}

% make code-output smaller
\DefineVerbatimEnvironment{Highlighting}{Verbatim}{fontsize=\footnotesize,commandchars=\\\{\}}

% make console-output smaller:
  \makeatletter
\def\verbatim{\footnotesize\@verbatim \frenchspacing\@vobeyspaces \@xverbatim}
\makeatother
\setlength{\parskip}{0pt}
\setlength{\OuterFrameSep}{-4pt}
\makeatletter
\preto{\@verbatim}{\topsep=-10pt \partopsep=-10pt }
\makeatother

% For better spacing between the list bullets
\renewcommand{\tightlist}{\setlength{\itemsep}{1ex}\setlength{\parskip}{0pt}}

RMarkdown文档

---
title: "My Title"
subtitle: "My Subtitle"
author: Speleo4Life
date: "March 11th, 2021"
output: 
  beamer_presentation:
    latex_engine: pdflatex
    includes:
        in_header: preamble.tex
    theme: "default"
    colortheme: "orchid"
    fonttheme: "serif"
    slide_level: 2
    keep_tex: true
urlcolor: blue
linkcolor: purple
---

```{r setup, eval=TRUE, include=FALSE, echo=FALSE}

图书馆(Tidyverse)

图书馆(Ggplot2)

图书馆(KableExtra)

图书馆(心理学)

```{r, eval=TRUE, echo=FALSE}

knitr::opts_chunk$set(echo =真)

选项(knitr.table.format=“胶乳”)

## Review: Null Hypothesis Significance Testing  

```{r, echo=FALSE}

c1 <- c(‘$\text{H_0$} H_0$'，’$\text{Reject} H_0$')

c2 <- c('$\text{Type } (\alpha)$'，‘正确保留’)

c3 <- c('$\text{Power } (1-\beta)$'，'$\text{Type II Error } \beta$')

df <- data.frame(c1，c2，c3)

(Df) <- c(‘$\textbf{H_0}$’，'$\mathbf{H_0} \textbf{\textit{是真}}$‘，

'$\mathbf{H_0} \textbf{\textit{is false}}$')

kbl(df，booktab= T) %>%

add_header_above(c(“"，”现状“= 2))

相关输出

​

​

Answer 1

只需将escape = F添加到kbl

---
title: "My Title"
subtitle: "My Subtitle"
author: Speleo4Life
date: "March 11th, 2021"
output: 
  beamer_presentation:
    latex_engine: pdflatex
    includes:
        in_header: preamble.tex
    theme: "default"
    colortheme: "orchid"
    fonttheme: "serif"
    slide_level: 2
    keep_tex: true
urlcolor: blue
linkcolor: purple
---

```{r setup, eval=TRUE, include=FALSE, echo=FALSE}

图书馆(Tidyverse)

图书馆(Ggplot2)

图书馆(KableExtra)

图书馆(心理学)

```{r, eval=TRUE, echo=FALSE}

knitr::opts_chunk$set(echo =真)

选项(knitr.table.format=“胶乳”)

## Review: Null Hypothesis Significance Testing  

```{r, echo=FALSE}

c1 <- c(‘$\text{H_0$} H_0$'，’$\text{Reject} H_0$')

c2 <- c('$\text{Type } (\alpha)$'，‘正确保留’)

c3 <- c('$\text{Power } (1-\beta)$'，'$\text{Type II Error } \beta$')

df <- data.frame(c1，c2，c3)

(Df) <- c(‘$\textbf{H_0}$’，'$\mathbf{H_0} \textbf{\textit{是真}}$‘，

'$\mathbf{H_0} \textbf{\textit{is false}}$')

kbl(df，书签= T，kbl= F) %>%

add_header_above(c(“"，”现状“= 2))

-output

​