Question

我正在构建一个简单的应用程序，以查看分为象限的数据。

这是服务器文件：

shinyServer(function(input, output){
  output$chart1 = renderChart({
  library(rCharts)
  data = data.frame(z = c("a","b","c","d","e","f","g","h","i","j"),y = sample(100,10),x = sample(100,10))  
  d1 = dPlot(
    y ~ x,
    groups = c("z"),
    data =data,
    type = "bubble"
  )
  d1$xAxis(type="addMeasureAxis",overrideMin = 0, overrideMax = 100)
  d1$yAxis(type="addMeasureAxis",overrideMin = 0, overrideMax = 100)
  medY = median(data$y)
  medX = median(data$x)

  d1$setTemplate(
    afterScript = sprintf(
      paste(
        '
        <script>
        var line = d3.svg.line()
        .x(function(d) { return myChart.axes[0]._draw.scale()(d.x); })
        .y(function(d) { return myChart.axes[1]._draw.scale()(d.y); });

        d3.select("#%s svg g")
        .append("path")
        .datum([{x:',medX,',y:0},{x:',medX,',y:100}])
        .attr("d",line)
        .style("stroke","red")
        .style("stroke-width",1)
        </script>
        '
      ,sep = "")
    ,d1$params$dom
  ))

  d1$layer(
    y ~ x
    ,groups = c("x","y")
    ,data = data.frame(x = c(0,100), y = rep(medX,2))
    ,type="line"
    ,color='red'
  )

  d1$set(dom = 'chart1')
  return(d1)
})

}）

这是ui：

shinyUI(pageWithSidebar(
  headerPanel("Test"),
  sidebarPanel(),
  mainPanel(showOutput("chart1", lib = "dimple"))
))

我得到一张图表但当我将鼠标悬停在图表中的数据点上方时，框内没有任何描述。

当我在没有闪亮应用程序的情况下运行相同的代码并查看RStudio上查看器的输出时，我会看到描述。

我还添加了一条在闪亮的应用程序中看不到的垂直线。

任何人都知道如何克服这个问题？

感谢。

观察数据未在闪亮的应用程序中显示

0 个答案: