如何在flexdashboard中实现ggplot图像可调整大小？

功能实现方案 #

你提到的两个需求都可以实现，以下是具体修改方案：

1. 让图像占满可用空间 #

通过修正flexdashboard布局配置、设置renderPlot的尺寸为100%，再配合CSS移除容器默认内边距，就能解决图像底部截断的问题，实现最大化显示。

2. 通过滑块交互式调整图像尺寸 #

利用Shiny输入控件的数值，动态传递给renderPlot的尺寸参数，同时通过复选框切换"最大化"和"自定义尺寸"两种模式。

修改后的完整代码 #

---
title: "可调整尺寸的ggplot图像 - flexdashboard"
output: 
  flexdashboard::flex_dashboard:
    vertical_layout: fill 
    orientation: columns
runtime: shiny
---

<style>
/* 移除绘图容器默认内边距，避免图像被截断 */
.shiny-plot-output {
  padding: 0 !important;
}
</style>

## 左侧栏 ----

本演示展示如何在flexdashboard中调整ggplot图像的尺寸。

## 右侧栏（滑块与图像展示区）----

```{r}
library(ggplot2)

fluidRow( 
  column(width=4, checkboxInput("maximize_image", "最大化显示图像", TRUE) ),
  column(width=4, sliderInput("image_width", "图像宽度（英寸）", 2, 6, 3) ), 
  column(width=4, sliderInput("image_height", "图像高度（英寸）", 2, 9, 4) )
)

renderPlot({
  ggplot(pressure) + geom_point(aes(temperature, pressure))
}, 
# 根据复选框状态动态设置尺寸
height = reactive({
  if(input$maximize_image) {
    "100%"
  } else {
    paste0(input$image_height, "in")
  }
}),
width = reactive({
  if(input$maximize_image) {
    "100%"
  } else {
    paste0(input$image_width, "in")
  }
})
)

## 关键修改说明
- **布局修正**：修复原YAML配置中`vertical_layout: fill`的缩进错误，确保flexdashboard的填充布局生效。
- **最大化显示**：将`renderPlot`的`height`和`width`设为`"100%"`，配合自定义CSS移除绘图容器的默认内边距，彻底解决图像截断问题。
- **滑块交互**：将滑块数值转换为带单位的字符串（如`"3in"`），传递给`renderPlot`的尺寸参数，通过复选框切换两种显示模式。

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