如何创建可生成美观Plotly输出的Rmd模板适配DOCX与HTML？

核心思路是根据输出格式动态调整参数，利用knitr的输出判断功能，分别给HTML和DOCX设置独立的图表配置，同时针对plotly的特性做适配：

步骤1：动态设置全局chunk参数 #

在setup块中，通过knitr::is_output_format()判断当前输出类型，分别设定dpi、图尺寸、字体相关参数：

```{r setup, include=FALSE}
library(ggplot2) # 3.4.2
library(plotly) # 4.10.4

# 基础全局参数
knitr::opts_chunk$set(echo = FALSE, fig.topcaption = FALSE,
                      warning = FALSE, message = FALSE)

# 根据输出格式设置不同参数
if (knitr::is_output_format("word_document")) {
  # DOCX：高dpi保证清晰度，同时调整图尺寸+主题字体大小
  knitr::opts_chunk$set(dpi = 600, fig.width = 6, fig.height = 4)
  # 全局调整ggplot主题字体，避免高dpi导致字体过小
  theme_set(theme_classic(base_size = 12))
} else if (knitr::is_output_format("html_document")) {
  # HTML：默认dpi即可，图尺寸适配网页
  knitr::opts_chunk$set(dpi = 100, fig.width = 8, fig.height = 5)
}

## 步骤2：条件输出图表（针对plotly）
因为`ggplotly()`在DOCX中会被强制转为静态图片，不如直接给DOCX输出原生ggplot图（可控性更强），HTML则保留交互的plotly：

```r
```{r myplot}
ggp <- ggplot(data = iris, aes(x = Sepal.Length)) +
  geom_histogram(binwidth = 0.4, fill = "forestgreen",
                 color = "white", alpha = 0.5) +
  theme_classic()

# 条件输出：HTML用ggplotly，DOCX用静态ggplot
if (knitr::is_output_format("html_document")) {
  ggplotly(ggp)
} else {
  ggp
}

## 额外说明
- 调整`base_size`可以适配DOCX的字体大小，根据需求微调（12-14号字适合文档）
- HTML的`fig.width/height`可以根据网页布局调整，保证显示美观
- 如果坚持要在DOCX中用plotly导出的静态图，可以用`plotly::export(ggp, width = 6, height = 4, res = 600)`替代直接输出ggplotly，但原生ggplot的字体控制更简单

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