Rmarkdown table latex 有希腊文和英文两个字

如何解决Rmarkdown table latex 有希腊文和英文两个字

这张桌子上有希腊语和英语单词

   ---
output: 
  bookdown::pdf_document2:
  number_sections: true
  toc: yes
header-includes:
  - \usepackage{titling}
  - \usepackage{amssymb}
  - \usepackage{dcolumn} 
  - \usepackage[utf8]{inputenc}
  - \usepackage[english,greek]{babel}
  - \newcommand{\en}[1]{{\selectlanguage{english}#1}}
  - \newcommand{\gr}[1]{{\selectlanguage{greek}#1}}
  - \usepackage[useregional]{datetime2}
  - \usepackage{float}
  - \usepackage{colortbl}
---
---
title: \gr{ΤΕΣΤ}
subtitle: \en{TEST}
date: \today
---

```{r warning=FALSE,include=FALSE}
Sys.setlocale("LC_CTYPE","Greek")
```



```{r warning=FALSE,include=FALSE}
packages <- c("kableExtra")
if ( length(missing_pkgs <- setdiff(packages,rownames(installed.packages()))) > 0) {
  message("Installing missing package(s): ",paste(missing_pkgs,collapse = ","))
  install.packages(missing_pkgs)
}
```
```{r message=FALSE,warning=FALSE,include=FALSE}
library(kableExtra)
```
  
  
```{r echo=FALSE,results='asis'}

x<-c("hello","hi","yellow","green","apple")
y<-c(rep(5,5))
r<-c(rep("καλημέρα",5))
data<-cbind(x,y,r)

kableExtra::kable(data,"latex",caption = "Πίνακας",booktabs = T,align = "c") %>%
  kable_styling(latex_options = "HOLD_position")

```

我修复了 yaml 以便在文本中使用两种语言，但在表格中我无法修复此问题 我的输出是

我怎样才能使英文单词以正确的方式出现？ 我想在桌子上同时出现英语和希腊语

解决方法

如果您使用 escape = F 选项，您可以将 \en 宏用于您的英语单词：

---
output: 
  bookdown::pdf_document2:
    number_sections: true
    toc: yes
    keep_tex: true
header-includes:
  - \usepackage{titling}
  - \usepackage{amssymb}
  - \usepackage{dcolumn} 
  - \usepackage[utf8]{inputenc}
  - \usepackage[english,greek]{babel}
  - \newcommand{\en}[1]{{\selectlanguage{english}#1}}
  - \newcommand{\gr}[1]{{\selectlanguage{greek}#1}}
  - \usepackage[useregional]{datetime2}
  - \usepackage{float}
  - \usepackage{colortbl}
---
---
title: \gr{ΤΕΣΤ}
subtitle: \en{TEST}
date: \today
---

```{r warning=FALSE,include=FALSE}
Sys.setlocale("LC_CTYPE","Greek")
```



```{r warning=FALSE,include=FALSE}
packages <- c("kableExtra")
if ( length(missing_pkgs <- setdiff(packages,rownames(installed.packages()))) > 0) {
  message("Installing missing package(s): ",paste(missing_pkgs,collapse = ","))
  install.packages(missing_pkgs)
}
```
```{r message=FALSE,warning=FALSE,include=FALSE}
library(kableExtra)
```
  
  
```{r echo=FALSE,results='asis'}

x<-c("\\en{hello}","\\en{hi}","\\en{yellow}","\\en{green}","\\en{apple}")
y<-c(rep(5,5))
r<-c(rep("καλημέρα",5))
data<-cbind(x,y,r)

kableExtra::kable(data,"latex",caption = "Πίνακας",booktabs = T,align = "c",escape = F) %>%
  kable_styling(latex_options = "HOLD_position")

```