如何在ggplotly中设置width/height=100%实现动态宽高适配

在R环境中使用ggplotly()生成图表时，需要实现动态高度、宽度自适应效果，要求最终输出HTML的图表容器宽高属性均为100%，对应DOM结构为：

<div id="htmlwidget-7c8a8e27b8ce66400314" style="width:100%;height:100%;" class="plotly html-widget"></div>

直接向ggplotly()传入百分比参数会触发报错，执行以下代码无法正常运行：

ggplotly(p, size="100%", height="100%")

已知RShiny环境下可通过plotlyOutput实现同类动态宽高效果，核心疑问为：是否可以不依赖Shiny，仅通过ggplotly()自身配置实现width/height=100%的动态宽高适配。

不需要依赖Shiny环境，通过修改plotly htmlwidget对象的尺寸策略即可实现目标效果，具体操作如下：

• 报错原因：ggplotly()默认的尺寸校验规则仅接受像素类数值参数，不支持直接传入百分比字符串，直接传值会触发类型校验错误。
• 可运行代码示例：

library(ggplot2)
library(plotly)

# 构建基础ggplot图表
p <- ggplot(mtcars, aes(wt, mpg)) + geom_point()

# 转换为plotly对象后修改尺寸策略
ply_plot <- ggplotly(p)
ply_plot$sizingPolicy$defaultWidth <- "100%"
ply_plot$sizingPolicy$defaultHeight <- "100%"
ply_plot$sizingPolicy$fill <- TRUE

# 导出HTML验证效果，容器会自动生成width:100%;height:100%的内联样式
htmlwidgets::saveWidget(ply_plot, "auto_size_plot.html")

• 配置说明：
  • 修改sizingPolicy下的defaultWidth、defaultHeight为"100%"，可覆盖默认固定像素的配置，直接给容器注入百分比宽高样式
  • 开启fill=TRUE参数后，plotly内部渲染画布会自动撑满父容器，不会出现容器尺寸自适应但内部画布留白、尺寸不匹配的问题
• 适配注意点：如果将导出的图表嵌入自定义页面，需要给图表容器的所有上级元素（包括<html>、<body>标签）设置明确的高度规则，否则height:100%会因为父元素无高度参考值失效。

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