R Markdown flex_dashboard中results="asis"生成标签页时fig尺寸失效问题

当通过results="asis"动态生成flexdashboard标签页时，R Markdown的fig.width/fig.height参数无法像手动标签页那样正常生效，本质原因是动态输出的内容在编译阶段未被flexdashboard的样式解析器正确关联，导致图表尺寸无法自适应窗口。以下是几种可行的解决方法：

方法1：用HTML容器强制设置图表高度 #

通过htmltools::div包裹ggplot对象，直接指定容器的高度为视口高度（vh单位），让图表占满浏览器窗口：

---
title: "动态标签页图表尺寸修复"
output: flexdashboard::flex_dashboard
---

```{r setup, include=FALSE}
library(flexdashboard)
library(ggplot2)
library(htmltools)
library(purrr)

# 定义标签页名称列表
tab_list <- c("动态标签页B1", "动态标签页B2")

# 遍历生成每个标签页
walk(tab_list, function(tab_title) {
  # 输出标签页标题
  cat(sprintf("### %s\n", tab_title))
  
  # 生成图表
  plot_obj <- ggplot(mtcars, aes(mpg, disp)) + 
    geom_point() + 
    ggtitle(tab_title)
  
  # 用div包裹图表，设置高度为95视口高度（留少量空间避免溢出）
  print(div(plot_obj, style = "height: 95vh;"))
  
  # 加换行分隔标签页
  cat("\n\n")
})

方法2：设置chunk的out.height参数 #

直接在动态生成的chunk中指定out.height为百分比或视口单位，强制图表高度：

```{r dynamic-tabs-alt, results='asis', out.height='95vh'}
walk(tab_list, function(tab_title) {
  cat(sprintf("### %s\n", tab_title))
  print(ggplot(mtcars, aes(mpg, disp)) + geom_point() + ggtitle(tab_title))
  cat("\n\n")
})

方法3：全局自定义CSS样式 #

如果需要所有动态标签页的图表都统一尺寸，可以创建自定义CSS文件，全局设置图表容器高度：

1. 创建custom.css文件，内容如下：

.chart-full-height {
  height: 95vh !important;
}

2. 在R Markdown的YAML中引用该CSS：

---
title: "动态标签页图表尺寸修复"
output: 
  flexdashboard::flex_dashboard:
    css: custom.css
---

3. 动态生成时给图表容器添加类：

```{r dynamic-tabs-css, results='asis'}
walk(tab_list, function(tab_title) {
  cat(sprintf("### %s\n", tab_title))
  plot_obj <- ggplot(mtcars, aes(mpg, disp)) + geom_point() + ggtitle(tab_title)
  print(div(plot_obj, class = "chart-full-height"))
  cat("\n\n")
})

关键说明 #

fig.height是基于英寸的静态尺寸，而flexdashboard是响应式布局，动态生成的标签页无法将这个参数映射到浏览器的视口高度。使用vh单位（1vh等于视口高度的1%）可以让图表自适应窗口大小，比fig.height更适合flexdashboard的场景。

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