r - 将 plotly 输出居中到 html

Question

我正在以编程方式将 plotly 小部件写入 html。但是，我似乎找不到将结果图居中的选项。这是一个有代表性的例子:

library( ggplot2 )

gg <- ggplot( mtcars, aes( x=mpg, y=wt ) ) + geom_point()
pp <- plotly::ggplotly( gg, width=300, height=300 )
htmlwidgets::saveWidget( pp, "test.html" )

请注意，结果输出在页面上是左对齐的:

我查看了 ggplotly、plotly::layout 和 saveWidget 的选项，但是没有立即明显的方法来居中阴谋。过去，我将 plotly 元素包装在 Rmarkdown 文档中，并使用 markdown 关键字使 plotly 居中。然而，当前的 plotly 输出是动态生成的，作为更大框架的一部分，要包装在 Rmarkdown 中并不容易。在将 plotly 小部件写入 .html 时，有没有办法引入居中标签？

Answer 1

我发现最简单的方法是使用 htmltools 包将 ggplotly 的输出包装在 div 标签内。生成的 HTML 对象可以使用同一包中的 save_html 保存到文件中:

pp <- plotly::ggplotly( gg, width=300, height=300 )    # As before
ppc <- htmltools::div( pp, align="center" )  # Result is now an HTML object
htmltools::save_html( ppc, "test.html" )     # Use in place of htmlwidgets::saveWidget()

这是结果，现在已正确居中: