如何在R-Markdown文档及表格中自动对齐阿拉伯语文本

一、阿拉伯语文本与表格左对齐修正 #

正文右对齐配置 #

在R-Markdown的YAML头部添加polyglossia包配置，通过自定义命令或环境控制阿拉伯语文本的RTL（从右到左）排版：

output:
  pdf_document:
    latex_engine: xelatex
header-includes:
  - \usepackage{polyglossia}
  - \setmainlanguage{english}
  - \setotherlanguage{arabic}
  - \newcommand{\ar}[1]{\textarabic{\RL{#1}}} # 自动处理RTL与右对齐

• 单句阿拉伯语：用\ar{阿拉伯语文本}包裹，自动右对齐并保持连写。
• 整段阿拉伯语：使用\begin{Arabic}和\end{Arabic}环境，整段自动切换为RTL排版。

kableExtra表格阿拉伯语右对齐 #

在表格生成时，指定阿拉伯语列的对齐方式为右对齐，并确保单元格内容用\ar{}包裹：

library(kableExtra)
# 构造示例数据
bilingual_df <- data.frame(
  English_Label = c("Sample 1", "Sample 2"),
  Arabic_Label = c("\ar{عينة 1}", "\ar{عينة 2}")
)
# 生成右对齐的阿拉伯语列表格
kable(bilingual_df, format = "latex", booktabs = TRUE, align = "lr") %>%
  column_spec(2, width = "3cm") # 可选：指定列宽避免内容挤压

align = "lr"参数直接定义第一列左对齐、第二列右对齐，配合\ar{}确保阿拉伯语连写与排版方向正确。

二、ggplot2阿拉伯语标题渲染修复 #

ggplot2默认不支持RTL文本渲染，通过showtext包加载阿拉伯语字体并配置主题即可解决：

# 安装并加载依赖包
install.packages(c("showtext", "ggplot2"))
library(showtext)
library(ggplot2)

# 加载支持阿拉伯语连写的字体（以Amiri为例，可替换为Noto Naskh Arabic等）
font_add_google("Amiri", family = "Amiri")
showtext_auto() # 自动将字体应用到ggplot2

# 绘制带阿拉伯语标题的图表
ggplot(mtcars, aes(wt, mpg)) +
  geom_point(color = "#2c3e50") +
  labs(
    title = "عنوان الرسم البياني",
    x = "وزن السيارة",
    y = "معدل استهلاك الوقود"
  ) +
  theme_minimal() +
  theme(
    plot.title = element_text(family = "Amiri", size = 16, hjust = 1), # hjust=1实现标题右对齐
    axis.text = element_text(family = "Amiri"),
    axis.title = element_text(family = "Amiri")
  )

如果遇到文本顺序错乱，可配合bidi包的bidi_reorder函数修正：

install.packages("bidi")
library(bidi)
corrected_title <- bidi_reorder("عنوان الرسم البياني")
ggplot(...) + labs(title = corrected_title)

三、关键注意事项 #

• 必须确保YAML中latex_engine设置为xelatex，pdflatex不支持UTF-8阿拉伯语排版。
• 选择支持阿拉伯语连写的字体，避免使用无阿拉伯语字形的字体导致渲染失败。
• 无需依赖Lua过滤器，上述方法均基于R与LaTeX原生功能实现。

内容的提问来源于stack exchange，提问作者Abdu Kikhia