Question

我想在凹坑线图中添加一个单点并使用它。

＆＃13;

vo <- (round(seq(0.5,0.6,0.001),5))
sh <- (1-((vo)^(1/3)))
sh <- 100*sh
dat <- data.frame(cbind(vo,sh))
ph <- data.frame(vo=0.55, sh=16)

d1 <- dPlot(sh~vo,
            data = dat,
            type = "line"
            ,defaultColors = "#!['blue']!#"
)
d1$yAxis('addMeasureAxis')
d1$layer(
  sh ~ vo
  ,groups = c("vo","sh")
  ,data = ph
  ,type="bubble"
)

＆＃13;

作为一个新手，我已经玩过我能找到的所有可能的解决方案，但结果 - 最好 - 就像上面这样。我要补充的一点就是我不希望他出现的地方。他没有出现在定义的位置，而是向上移动y轴。我做错了什么？

感谢timeportfolio我得到了一个很好的解决方案。从其他帖子中得到更多帮助，我能够将xAxis格式化为我期望的更多。但现在出现了其他问题，我无法找到答案：尽管规模可见，但xAx似乎被抑制了 2.当将overrideMin更改为15时，工具提示的虚线超出了xAxis。这可以改变吗？

＆＃13;

d1$setTemplate(afterScript = 
  "<script>
    myChart.axes[0].shapes.selectAll('text')
        .each(function(d,i){
            // remove incrementally, so something like every 5
            if( i % 20 == 0 ) {
              //remove transform - translate and rotate
              // do other styling and manipulation here also
              d3.select(this).style('transform','')
            } else {
              d3.select(this).remove()
            }
            })
        .attr('transform','rotate()')
        .style('text-anchor','middle')
        .style('font-size','50%')
    myChart.axes[0]
          .titleShape.text('Vol')
          .style('font-size','100%')
  </script>"
)
d1

＆＃13;

我只使用上面的代码插入了afterScript，并且更改overrideMin应该清楚我的意思。谢谢你的帮助。

Answer 1

考虑到此功能是实验性的且未记录的，您做得很好。截至目前，要使其工作，您需要在两个地方yAxis显式设置最大值和最小值以获得正确对齐（是的，我知道它很难看）。完整的代码就像是

library(rCharts)

vo <- (round(seq(0.5,0.6,0.001),5))
sh <- (1-((vo)^(1/3)))
sh <- 100*sh
dat <- data.frame(cbind(vo,sh))
ph <- data.frame(vo=0.55, sh=16)

d1 <- dPlot(sh~vo,
            data = dat,
            type = "line"
            ,defaultColors = "#!['blue']!#"
)
d1$yAxis('addMeasureAxis',overrideMin = 0, overrideMax = 30)
d1$layer(
  sh ~ vo
  ,groups = c("vo","sh")
  ,data = ph
  ,type="bubble"
  ,yAxis = d1$params$yAxis
)
d1

如果这对你有用，请告诉我。对不起，它仍然很笨重。

将一个单点添加到rChart凹坑线图中

1 个答案: