是否可以自定义可重定向树映射的大小？

Question

此代码工作和枢轴表绘制，但树状地图是巨大的，我需要它渲染到大约50%的当前大小，500 be将是目前的好。它似乎忽略了大小设置。一张枢轴表在绘制时与另一张重叠。

​

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;
                          } 
                        }")
})

Answer 1

不久前，我还留下了一个注释，在这个方法中，您可以通过更改JS来控制大小。不过，我现在有了一个基于R的解决方案。

我分叉了这个包的Cran版本，并对它进行了修改。我的这个软件包的版本确实允许你控制树状图的大小。

若要安装已修改的包，请使用以下内容：

devtools::install_github("fraupflaume/rpivotTable")

您将像调用Cran版本一样调用库。要修改树状图，您需要知道这是一个D3图。这个包中的所有其他图都是C3。

下面的示例反映了如何指示D3或C3的特定大小。(我还为C3图提供了几个可控选项。)

library(rpivotTable)

rpivotTable(mtcars, rows = c("mpg", "am"), cols = "cyl", 
            width = "90%", height = "40%",
            rendererOptions = list(
              c3 = list(legend = list(show = FALSE), 
                        data = list(labels = TRUE),
                        options = list(responsive = TRUE,
                                       maintainAspectRatio = FALSE),
                        size = list(width = "600",
                                    height = "500")),
              d3 = list(size = list(width = "500", height = "500")))) 

我扩展了查看器窗格，以便您可以看到它不再填充查看器。

​

​

这是相同的视图，但是删除了D3控件。

​

​