获取或设置ggplot区域的宽度和高度

Question

我在Shiny中有一个动态大小的情节。

output$myplotui <- 
renderUI({
    my_width_pixels = ...
    my_height_pixels = ...

    div(style = "position:relative",
     renderPlot({
        ggplot() + ...
    }, width=my_width_pixels, height=my_height_pixels, hover=hoverOpts("plot_hover"))
})

代码设置整个图的宽度和高度。如何在保持悬停功能的同时设置绘图区域尺寸？

我尝试使用

grid.draw(set_panel_size(ggplot() + ...))

来自此软件包https://github.com/baptiste/egg/blob/master/R/set_panel_size.r的函数set_panel_size，但是我在悬停时出现了一个闪亮的错误

Error in nearPoints: nearPoints: not able to automatically infer `xvar` from coordinfo

作为一种解决方法，当我知道最终尺寸时，我怎么能至少得到我的ggplot对象的绘图区域尺寸？这将允许我通过首先生成一个或多个额外的隐形图来获得正确的维度。