r - 从导入的文本文件中为单词着色,并保存为格式化的 Word 文档
问题描述
我正在尝试使用 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 文档中?
解决方案
你是这个意思吗?
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)
推荐阅读
- pandas - 时间序列分析 - 将值放入箱中
- php - 如果变量包含单词,则显示并获取行号
- api - 如何在起点和终点之间的地图 api 请求中添加中途停留
- azure-active-directory - 邀请 API 返回 401 访问令牌验证失败。无效的观众
- php - preg_replace 有时会忽略换行符?
- c - 这种情况是否被视为竞争条件?
- python-3.x - 我正在尝试在使用 pygame 的另一个屏幕中从键盘获取一些输入。我该怎么做?
- python - plotly express choropleth map customizing hover data error: ValueError: Value of 'hover_data_0' is not the name of a column in 'data_frame'
- python - Drawing a crosshair in PyOpenGL
- java - 当我想更改起始活动时,获取“未找到默认活动”