r - 是否可以自定义可旋转树图的大小

Question

这段代码有效，并且绘制了数据透视表，但是树形图很大，我需要它渲染到当前大小的 50% 左右，现在 500px 就可以了。它似乎忽略了大小设置。绘制时，一个数据透视表与另一个重叠。

output$pivot3 <- renderRpivotTable({
rpivotTable(data = dotsData,
rows="county",
cols="shortBreath",
width="500px",
height="500px",
aggregatorName = "Count",
aggregators = list(
Percentage = htmlwidgets::JS('$.pivotUtilities.aggregators["Count as Fraction of Columns"]'),
Count = htmlwidgets::JS('$.pivotUtilities.aggregators["Count"]')),
sorters="function(attr) { 
                          var sortAs = $.pivotUtilities.sortAs;
                          if (attr == \"county\") { 
                               return sortAs;
                          } 
                        }")
})