Question

我正在寻找将简单工具提示添加到由ggplot绘制的基本折线图的最简单方法。我的数据集遇到了rCharts的一些问题，所以我想看看gridSVG是否符合我的需求。

我正在Shiny构建我的viz，我正在尝试按照此git上的代码：https://github.com/timelyportfolio/shiny-grid-svg-v2

 ##ui.R##
reactiveSvg <- function (outputId) 
{
  HTML(paste("<div id=\"", outputId, "\" class=\"shiny-network-output\"><svg /></div>", sep=""))
}    

mainPanel(
              htmlOutput(outputId = "svg.grid")
               )

##server.R##
output$svg.grid <- reactiveText(function() {
    ggplot(data = sampleData, aes(x=year, y=quantity, group=sample_data))+
      geom_line()+
      ggtitle("Basic gridSVG Example")
    NOT SURE HOW TO USE GRID.SVG TO CREATE A BASIC TOOLTIP ON MY CHART
  })

在上面的git中，以下代码位于server.R中。这就是我需要的吗？

print(get(exampleInput()))
    #print((paste(input$example,"example",sep=".")))
    tempsvg <- tempfile(fileext=".svg")
    on.exit(unlink(tempsvg))
    gridToSVG(name=tempsvg)
    svgoutput <- readLines(tempsvg, n=-1)
    paste(svgoutput,sep="")

如何在ggplot上实现gridSVG Tooltip？

0 个答案: