如何在R中生成可复制到Word的结果文本段落？

1. 用glue快速生成可复制的格式化文本 #

glue是轻量高效的字符串插值工具，能直接把统计变量值嵌入预设文本，生成的内容可直接复制到Word，其中用*包裹的部分可手动设置为斜体，或通过Markdown转Word工具自动识别格式：

library(glue)

# 替换为你的实际统计结果
r_square <- 0.78
beta <- 1.23
p_value <- 0.02

# 生成带标记的结果文本
result_text <- glue("R square = *{r_square}*, B = *{beta}*……模型间差异显著，p < *{p_value}*")

# 控制台输出后直接复制到Word，再把*包裹的内容设为斜体即可

2. 用officer直接生成带格式的Word文档 #

如果不想手动复制，officer可以直接操控Word文档的内容和格式，配合flextable处理表格，一步生成完整的结果文档：

library(officer)
library(flextable)

# 定义统计结果
r_square <- 0.78
beta <- 1.23
p_value <- 0.02

# 创建空Word文档
doc <- read_docx()

# 添加标题和结果文本（精准控制斜体格式）
doc <- body_add_par(doc, "研究结果摘要", style = "Heading 2")
doc <- body_add_par(doc, "R square = ", style = "Normal")
doc <- body_add_par(doc, r_square, style = "Italic", pos = "after")
doc <- body_add_par(doc, ", B = ", style = "Normal", pos = "after")
doc <- body_add_par(doc, beta, style = "Italic", pos = "after")
doc <- body_add_par(doc, "……模型间差异显著，p < ", style = "Normal", pos = "after")
doc <- body_add_par(doc, p_value, style = "Italic", pos = "after")

# 添加示例表格（替换为你的实际表格数据）
result_table <- flextable(head(mtcars))
doc <- body_add_flextable(doc, result_table)

# 保存文档
print(doc, target = "研究结果文档.docx")

3. 学术写作专属：papaja包自动生成APA格式结果 #

如果是撰写学术论文，papaja专为APA格式设计，能直接提取模型结果并生成符合规范的格式化文本，支持导出为Word：

library(papaja)
library(lmtest)

# 拟合示例模型（替换为你的实际模型）
model <- lm(mpg ~ wt, data = mtcars)

# 生成格式化结果文本
apa_result <- apa_print(model)$full_result$wt
# 输出示例：*b* = -5.34, 95% CI [-6.48, -4.21], *t*(30) = -9.55, *p* < .001

# 直接复制到Word，或用papaja的`rmarkdown`模板生成完整论文文档

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