可旋转的列值对齐

Question

我正在使用rpivotTable生成一个html文件，该文件包含用于大量类别的数据透视表。一切似乎都工作正常，除了类别的数目很多之外，顶层列的值不容易看到；这些值放在长的长列的中间（类似于Excel的顶部/中间/底部对齐方式）。

我正在寻找一种将值放在顶部的方法。我的猜测是，通过rendererOptions参数，我也许可以实现这一目标，但是到目前为止，我在网络上还没有找到任何相关的问题/答案。甚至在ivottable.js中执行此操作的方法也会很有帮助。

代码本身如下，位于我用来生成html文件的RMD文件中。

rp <- rpivotTable(
pivotdata, 
vals = "Val",
rows = c("Cat1", "Cat2", "Cat3", "Cat4"), 
cols = c('Horizon'), 
width = "200%",
rendererName = "Heatmap",
aggregatorName = 'Average',
            rendererOptions = list(
              heatmap = list(colorScaleGenerator = htmlwidgets::JS('function(values) {
                                                           return d3.scale.linear()
                                                           .domain([20, 0, -20])
                                                           .range(["#7F7", "#FFF", "#F77"])}')
                     ))
)

同样，以上代码默认将列值放在中间。因此，不容易看到顶级列（在上述情况下为“ Cat1”列..）的值。奇怪的是，这以前没有发生过。这仅在我将R版本更改为R Client（可在R 3.4.3上运行）时发生

在此先感谢您的帮助。