如何在RMarkdown LaTex PDF输出中包含英语和阿拉伯语

因此，我创建了一个Rmarkdown文件来生成pdf输出.主要语言是英语，但我在生成的Eschrame中有一些阿拉伯语单词，然后我推出使用kableExtra作为表格.

问题是，我的阿拉伯语文本没有像他们应该的那样连接在一起，并被呈现为单独的字母(即这个单词").

当我将默认语言设置为阿拉伯语时，单词看起来很完美，但是整个文档包括表格和英语单词从右到左，这使得它看起来完全不正常.我不能真正应用here和here中提到的这些解决方案，因为我不能将它们应用到我的gramrame/table输出中.有没有办法解决这个问题？

下面是我的. rmd文档开头的YAML代码

---
output: 
  pdf_document:
    latex_engine: xelatex
geometry: margin=1.7cm
params:
  branch: ""
  month: "March"
  year: "2024"
header-includes:
- \usepackage{fontspec}
- \setmainfont{Amiri}
- \usepackage{pdflscape}
- \newcommand{\blandscape}{\begin{landscape}}
- \newcommand{\elandscape}{\end{landscape}}
---

# Quantity Sold
``{r}
library(tidyverse)
library(readxl)
library(openxlsx)
library(tinytex)

mt <- data.frame(Product = c("متين GERMA-C2TE","لاصق GERMA-Glue","لاصق GERMA-C1","Alumacer/ 000CRU3 - CRUCETAS PVC 3 mm (300/كيس)"),
                 mpg = c(1,5,14,2),
                 cyl = c(20,54,67,83),
                 hp = c(130,200,201,145))
  
final_kable <- mt %>% knitr::kable("latex", booktabs = T, longtable = T, align = c("l","r","r","r"), col.names = c("Cars","mpg","cyl","hp")) %>%
  
  kableExtra::kable_styling(latex_options = c("scale_down"),position = "left", full_width = F) %>%
  kableExtra::kable_styling(font_size = 9) %>%
  
  kableExtra::pack_rows(group_label = "الكل / الستيلات", start_row = 1, end_row = 2) %>%
  kableExtra::pack_rows(group_label = "الكل / تيكا", start_row = 3, end_row = 4)

final_kable
``

我也试过添加多语种包，但没有效果，因为应该看起来像这个词的单词"

---
output: 
  pdf_document:
    latex_engine: xelatex
geometry: margin=1.7cm
params:
  branch: ""
  month: "March"
  year: "2024"
header-includes:
- \usepackage{pdflscape}
- \newcommand{\blandscape}{\begin{landscape}}
- \newcommand{\elandscape}{\end{landscape}}
- \usepackage{longtable}
- \usepackage{hyperref}
- \usepackage{wrapfig}
- \usepackage{float}
- \usepackage{colortbl}
- \usepackage{fontspec}
- \setmainfont{Amiri}
- \usepackage{polyglossia}
- \setdefaultlanguage{english}
- \setotherlanguages{arabic}
---
# Quantity Sold
``{r}
library(tidyverse)
library(readxl)
library(openxlsx)
library(tinytex)

mt <- data.frame(Product = c("متين GERMA-C2TE","لاصق GERMA-Glue","لاصق GERMA-C1","Alumacer/ 000CRU3 - CRUCETAS PVC 3 mm (300/كيس)"),
                 mpg = c(1,5,14,2),
                 cyl = c(20,54,67,83),
                 hp = c(130,200,201,145))
  
final_kable <- mt %>% knitr::kable("latex", booktabs = T, longtable = T, align = c("l","r","r","r"), col.names = c("Cars","mpg","cyl","hp")) %>%
  
  kableExtra::kable_styling(latex_options = c("scale_down"),position = "left", full_width = F) %>%
  kableExtra::kable_styling(font_size = 9) %>%
  
  kableExtra::pack_rows(group_label = "الكل / الستيلات", start_row = 1, end_row = 2) %>%
  kableExtra::pack_rows(group_label = "الكل / تيكا", start_row = 3, end_row = 4)

final_kable
``