表和图交叉参考官 R

我希望能够使用官员交叉引用 Word 文档中的表格或图形R包裹。

到目前为止我已经遇到过这些材料，但他们似乎没有解决方案：https://davidgohel.github.io/officer/articles/word.html#table-and-image-captions和一个类似的问题为 docx 中的 flextable 添加标题

在这两个中，我只能插入标题作为 2 级标题，而不是真正的表格标题。

我希望能够在 Word 中执行的操作是“插入”->“交叉引用”，然后转到“引用类型：表格”并在那里查看我的标题。现在我只能看到编号项目下的标题。

官员或其他地方是否存在此功能？

在Word中，表格编号使用{ SEQ \\@ arabic }模式，但对它们的引用使用{ REF bookmark \h }。我们可以使用它来创建可以引用 SEQ 字段的新代码。

code:

ft <- regulartable(head(iris)) # create flextable
str <- paste0(' REF ft \\h ')  # create string to be used as reference to future bookmark

doc <- read_docx() %>%
  body_add_par('This is my caption' , style = 'Normal') %>% # add caption
  slip_in_seqfield(str = "SEQ Table \\@ arabic",           
                   style = 'Default Paragraph Font', 
                   pos = "before") %>% # add number for table
  body_bookmark('ft') %>%   # add bookmark on the number
  slip_in_text("Table ", 
               style = 'Default Paragraph Font', 
               pos = "before") %>% # add the word 'table'
  body_add_flextable(value = ft, align = 'left') %>% # add flextable
  body_add_break() %>%  # insert a break (optional)
  slip_in_text('As you can see in Table', 
               style = 'Default Paragraph Font', 
               pos = 'after') %>% # add the text you want before the table reference
  slip_in_seqfield(str = str,  
                   style = 'Default Paragraph Font', 
                   pos = 'after') %>% # add the reference to the table you just added
  slip_in_text(', there are a lot of iris flowers.', 
               style = 'Default Paragraph Font', 
               pos = 'after') %>% # add the rest of the text 
  print('Iris_test.docx') # print

希望这可以帮助 ：）