图表上方的rCharts highcharts图例和导出按钮

Question

我所要做的就是将我的图例和导出按钮放在我的图表区域上方，并固定y轴。但事实证明这很困难。它覆盖在图表区域上，如下所示。

这是我的R代码

library(rCharts)
df <- data.frame(month=rep(c('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'),2),
           type=c(rep("Type1",12),rep("Type2",12)),
          value=c(0.6, 0.5, 0.2, 0.3, 0.8, 1, 0.6, 0.5, 0.4, 0.1, 0.6, 0.8,
                  0.2, 0.8, 0.7, 0.3, 0.4, 0.7, 0.8, 0.9, 1, 0.3, 0.2, 0.5))


p <- hPlot(x = "month", y = "value", data = df, type = c("line"), group = "type")
p$yAxis(title=list(enabled="null"),max=1)
p$exporting(enabled=T,
             buttons=list(
               contextButton = list(
                 align = 'right',
                 verticalAlign = 'top'
               )
             ))
p$legend(
  align = 'left',
  verticalAlign = 'top',
  layout = 'horizontal',
  floating = 'false')
p

floating的{​​{1}}选项似乎没有做任何事情。我还尝试更改legend和x按钮的y，legend选项，但没有。

然后我决定检查Highcharts javascripts库中是否存在错误。但事实证明，js中的相同代码可以正常工作。它在R中生成时搞砸了。

以下是javascript代码和JsFiddle link here。正确的数字如下。

exporting

如果有人对我可能做错的事情或解决方法有任何想法，请告诉我。 感谢。