하나의 단일 점을 rChart 딤플 형 차트에 추가하십시오.

Question

딤플 형 차트에 하나의 점을 추가하여 사용하고 싶습니다. 이상과 같은 -에서 최선을 - 내가 찾을 수있는 모든 가능한 솔루션을 해왔다 초보자로서

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

,하지만 결국. 추가하고 싶은 요점은 내가 기대하는 곳이 아닐뿐입니다. 정의 된 위치에 나타나지 않고 y 축 위로 올라갑니다. 내가 뭘 잘못하고 있니?

timeportfolio 덕분에 좋은 해결책이 있습니다. 다른 게시물에서 그에게 도움을 조금 더 받으면 xAxis를 내가 기대하는 것 이상으로 포맷 할 수있었습니다. 그러나 이제 다른 문제가 나타납니다. 응답을 찾을 수 없습니다. 1. xAxis가 축약 되어도 아무렇게나 표시되지 않는 것 같습니다. 2. overrideMin을 변경하면 15라고 할 수 있습니다. 툴팁은 xAxis를 넘어선 다. 변경 될 수 있습니까?

내가에서 위의 코드를 사용하고 overrideMin을 변경하면 무슨 뜻인지 분명히해야한다, 다만 afterScript 삽입 한

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

. 도움 주셔서 감사합니다.

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 

이 기능이 작동하는지 알려주십시오. 미안하지만 아직도 너무 clunky.