如何用R语言officer包实现Word文档内标题的超链接？

我希望使用officer包生成包含文档内跳转链接的Word文档，例如在文本中引用图表时可跳转到对应位置。以下是我期望实现效果的示例代码：

library(officer)
library(dplyr)

doc <- read_docx() %>%
  body_add_par('1. Introduction', style = 'heading 1') %>%
  # hyperlink_ftext() %>% # I want to link this to Figure 1
  body_add_par('Figure 1', style = 'heading 2')

print(doc, target = 'test.docx')

请问能否通过hyperlink_ftext函数的href参数实现该功能？若不能，是否有其他可行方法？

注：StackOverflow上有类似问题但未得到解答，我也未在该包的Github页面找到相关讨论。PowerPoint有ph_slidelink用于内部跳转，但Word相关示例均为URL链接。

1. hyperlink_ftext的href参数能否实现内部跳转？ #

可以，但需要使用内部书签格式，而非外部URL。hyperlink_ftext的href参数不仅支持外部网址，也支持Word内部的书签跳转，只需将参数值设为#书签ID即可。

2. 具体实现方法 #

核心思路是：先给目标位置添加唯一书签，再通过hyperlink_ftext指向该书签。以下是完整的可运行代码：

library(officer)
library(dplyr)

doc <- read_docx() %>%
  # 构建带跳转链接的引言段落：组合普通文本和跳转链接
  body_add_fpar(fpar(
    ftext("1. Introduction ", prop = fp_text()),
    # 跳转链接文本，格式设为蓝色下划线（符合默认超链接样式）
    ftext("查看Figure 1", prop = fp_text(color = "blue", underline = TRUE)) %>%
      hyperlink_ftext(href = "#fig1") # 指向名为fig1的书签
  ), style = "heading 1") %>%
  # 给Figure 1段落添加书签，ID为fig1
  body_add_par("Figure 1", style = "heading 2", bookmark = "fig1")

print(doc, target = "test.docx")

3. 扩展：跳转至图表的方法 #

如果需要跳转到插入的图表（如图片），只需在添加图表时指定书签即可：

doc <- read_docx() %>%
  body_add_fpar(fpar(
    ftext("1. Introduction ", prop = fp_text()),
    ftext("查看图表1", prop = fp_text(color = "blue", underline = TRUE)) %>%
      hyperlink_ftext(href = "#chart1")
  ), style = "heading 1") %>%
  # 添加图片并设置书签
  body_add_img(src = "chart.png", width = 6, height = 4, bookmark = "chart1") %>%
  body_add_par("图表1：示例数据可视化", style = "heading 2")

print(doc, target = "test_with_chart.docx")

注意事项 #

• 书签ID必须唯一，避免重复导致跳转失效。
• 可以通过fp_text自定义链接文本的样式（颜色、下划线等），让它更符合Word的超链接视觉习惯。
• 该方法适用于officer包的所有可添加书签的元素，包括段落、图片、表格等。

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