Question

使用以下代码创建的蜘蛛网图可以在Rstudio图面板中很好地呈现，如下所示。

但是，使用如下所示的Shiny渲染时，它显示为线图。

library(rCharts)

shinyServer(function(input,output){
  output$plot <- renderChart2({

    plot <- Highcharts$new()
    table = data.frame(id = c("a1","g3","k5","y9","z11"),
                       value = c(252,345,421,189,236))
    plot$chart(polar = TRUE, type = "line")
    plot$xAxis(categories=table$id, tickmarkPlacement= 'on', lineWidth= 0)
    plot$yAxis(gridLineInterpolation= 'polygon', lineWidth= 0, min= 0)
    plot$series(data = toJSONArray2(table[,c("id","value")], json = F, names = F),
                name = "Series", pointPlacement="on")
    plot
  })
})

HTML：

<head>
    <script src="js/jquery.min.js"></script>
    <link rel="stylesheet" href="shared/shiny.css" type="text/css" />
    <script src="shared/shiny.js" type="text/javascript"></script>
    <script src="js/highcharts.js" type="text/javascript"></script>
</head>
<body>
 <div id="plot" class="shiny-html-output rChart highcharts" style="width: 4px; height: 60px"></div>
<body>

有什么想法可以将图显示为“ Shiny”吗？根据{{3}}可以很好地绘制该图，但是不同的是，在我的情况下，UI是完全使用HTML构建的，而他们使用的是ui.R。

Answer 1

需要添加

 <script src="js/highcharts-more.js" type="text/javascript"></script>

现在可以使用了。

rCharts蜘蛛网图以线图形式呈现在Shiny中

1 个答案: