Add 'viewbox' attribute to ggplotly svg output to allow scaling in R Markdown

Hi,
I would like to autoscale SVG graphics produced by a call to ggplotly in order to fit them into the parent CSS container in a R Markdown document, as described here. For this, it is necessary for the SVG element to have a viewBox attribute that describes the bounding box of the visible contents. Do you think it would be possible to extend your package to include this attribute?

Cheers,
Andrzej

从 ggplotly 的 SVG 输出路径开始，检查生成的 SVG 以确定可见内容的边界。添加一个 viewBox 属性，使其能够在 R Markdown 的父级 CSS 容器中进行缩放，然后验证生成的图形是否能在 R Markdown 文档中正确缩放。