如何在Shiny交互式R Markdown中添加自定义Plot的Word下载按钮？

实现步骤与完整代码 #

下面是可直接运行的示例，整合了Shiny交互组件和Word文档生成逻辑，支持用户选择图表类型后下载包含对应图表的Word文件：

---
title: "Shiny + R Markdown 动态Word下载"
output: html_document
runtime: shiny
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(shiny)
library(officer)
library(ggplot2)

交互式控制面板 #

fluidPage(
  selectInput(inputId = "plot_type",
              label = "选择要下载的图表类型:",
              choices = c("条形图" = "bar", "饼图" = "pie")),
  downloadButton(outputId = "download_word", label = "下载Word文档")
)

服务器逻辑 #

function(input, output) {
  # 生成反应式图表
  selected_plot <- reactive({
    if(input$plot_type == "bar") {
      ggplot(mtcars, aes(x = factor(cyl), fill = factor(cyl))) +
        geom_bar() +
        labs(title = "气缸数分布条形图", x = "气缸数", y = "数量") +
        theme_minimal()
    } else {
      pie_data <- table(mtcars$cyl)
      ggplot(data.frame(cyl = names(pie_data), count = as.numeric(pie_data)),
             aes(x = "", y = count, fill = cyl)) +
        geom_bar(stat = "identity", width = 1) +
        coord_polar("y", start = 0) +
        labs(title = "气缸数分布饼图") +
        theme_void()
    }
  })
  
  # 下载Word文档的处理逻辑
  output$download_word <- downloadHandler(
    filename = function() {
      paste0("动态图表_", Sys.Date(), ".docx")
    },
    content = function(file) {
      # 创建空的Word文档
      doc <- read_docx()
      
      # 添加标题和文本
      doc <- body_add_par(doc, "用户选择的图表", style = "heading 1")
      doc <- body_add_par(doc, paste("生成时间:", Sys.time()), style = "Normal")
      doc <- body_add_par(doc, "", style = "Normal") # 空行
      
      # 插入选中的图表
      doc <- body_add_gg(doc, value = selected_plot(), width = 6, height = 4)
      
      # 保存文档到临时文件
      print(doc, target = file)
    }
  )
}

### 关键部分说明
- **依赖包**：需要提前安装 `shiny`、`officer`、`ggplot2` 包，可通过 `install.packages(c("shiny", "officer", "ggplot2"))` 安装。
- **反应式图表**：`selected_plot()` 会根据用户的下拉选择动态生成对应的条形图或饼图，确保图表内容和交互选择同步。
- **Word文档生成**：`officer` 包负责创建和编辑Word文档，`body_add_gg()` 函数可以直接将ggplot生成的图表插入到文档中，无需先保存为图片再导入。
- **下载逻辑**：`downloadHandler` 负责触发下载，`filename` 定义下载文件的名称（带日期后缀避免重名），`content` 函数里完成文档的构建和保存。

### 注意事项
- 确保R环境中已安装所有依赖包，否则代码会报错。
- 如果需要添加更多文本、表格或样式，可以扩展 `officer` 的相关函数（比如 `body_add_table()`、`body_add_par()` 指定不同样式）。

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