使用R Markdown+officedown+flextable生成Word文档时波斯语文本无法正常显示的问题求助

我之前也碰到过类似非拉丁语系文字在flextable和officedown组合中显示异常的情况，试试下面这几个方案，应该能解决你的波斯语表头问题：

1. 确保波斯语字体被R正确识别和加载 #

很多时候问题出在R没有成功加载系统中的波斯语字体，用sysfonts和showtext包可以解决这个问题：

• 先确保你要使用的字体（比如B Nazanin）已经安装在你的系统中
• 在代码里注册并启用该字体：

library(sysfonts)
library(showtext)
# 注册系统中的波斯语字体，直接用字体名即可（如果系统已正确安装）
font_add("B Nazanin", "B Nazanin")
# 开启自动渲染，确保字体在表格中生效
showtext_auto()

2. 全局设置文档默认字体（替代仅设置表头字体） #

仅仅设置表头字体可能不够，因为officedown生成的Word文档默认字体可能不支持波斯语，建议全局设置文档的默认字体：

方法一：使用自定义Word模板 #

提前创建一个Word模板（比如persian_template.docx），在模板中把默认字体设置为支持波斯语的字体（如B Nazanin或Arial Unicode MS），然后在YAML中指定模板：

---
output:
  officedown::rdocx_document:
    reference_docx: "persian_template.docx"
---

方法二：通过代码直接设置文档默认字体 #

用officedown的文档对象来控制输出，这样可以更灵活地设置全局字体：

# 创建你的flextable对象后，用doc对象来输出
doc <- read_docx()
doc <- body_add_flextable(doc, your_flextable_object)
# 设置文档默认字体为波斯语字体
doc <- doc_settings(doc, default_font = list(name = "B Nazanin", size = 11))
# 保存文档
print(doc, target = "final_output.docx")

3. 完整的可复现代码示例 #

把上面的方法整合起来，你可以试试这段代码：

---
output: officedown::rdocx_document
---

```{r message=F, warning=F, echo=F}
library(sysfonts)
library(showtext)
library(flextable)
library(officedown)
library(dplyr)

# 注册并启用波斯语字体
font_add("B Nazanin", "B Nazanin")
showtext_auto()

# 生成带波斯语表头的表格
ft <- iris %>% 
  head() %>% 
  flextable() %>% 
  set_header_labels(Sepal.Length="طول کاسبرگ") %>% 
  # 同时设置表头和正文的字体
  font(part = "header", fontname = "B Nazanin") %>%
  font(part = "body", fontname = "B Nazanin")

# 用doc对象控制输出并设置全局字体
doc <- read_docx()
doc <- body_add_flextable(doc, ft)
doc <- doc_settings(doc, default_font = list(name = "B Nazanin", size = 11))
print(doc, target = "persian_output.docx")

## 4. 额外检查项
- 确保你的Rmd文件本身的编码是UTF-8：在RStudio中可以通过`File -> Save with Encoding...`选择UTF-8
- 检查Word的字体替换设置：打开生成的文档后，若字体显示异常，到`文件 -> 选项 -> 高级`中，确保“允许字体替换”没有替换掉你的波斯语字体

内容的提问来源于stack exchange，提问作者M. white