r - 从导入的文本文件中为单词着色，并保存为格式化的 Word 文档

Question

我正在尝试使用 R 中的官员包为一组单词着色，例如从导入的 word 文档中的 word1 和 word2。我现在在设置单词的文本属性后被卡住了。

我已经使用 读取了数据文件read_docx(filename)，其中文件名是 txt 文件。我还使用fp_text()and设置了文本属性ftext()。

my_doc <- read_docx(file.path(filepath,myfile)) 

color1 <- fp_text(color = "blue", font.size = 10, bold = FALSE,
        italic = FALSE, underlined = FALSE, font.family = "Arial",
        vertical.align = "baseline", shading.color = "transparent")
ftext("word1", color1)
color2 <- fp_text(color = "red", font.size = 10, bold = FALSE,
        italic = FALSE, underlined = FALSE, font.family = "Arial",
        vertical.align = "baseline", shading.color = "transparent")
ftext("word2", color1)

但是，如果我的文本类似于This is my text. word1 should be colored blue, and word2 should be colored red，如何将文本中的单词设置为颜色，以及如何将其保存到应用颜色的格式化 word 文档中？

Answer 1

你是这个意思吗？

color1 <- fp_text(color = "blue", font.size = 10, bold = FALSE,
        italic = FALSE, underlined = FALSE, font.family = "Arial",
        vertical.align = "baseline", shading.color = "transparent")
ftext("word1", color1)
color2 <- fp_text(color = "red", font.size = 10, bold = FALSE,
        italic = FALSE, underlined = FALSE, font.family = "Arial",
        vertical.align = "baseline", shading.color = "transparent")
ftext("word2", color2)


fpar_1 <- fpar(ftext("word1", color1), "?")
fpar_2 <- fpar(ftext("word2", color2), "?")

my_doc <- read_docx() %>%
body_add_fpar(fpar_1) %>%
body_add_fpar(fpar_2)