Subject: [visualization-api] Create a tooltip displaying my
x-axis and y-axis on my plot in shiny application



Dear all,
I am trying to create a tooltip for my graphic.
Here is my code:
data1=data.frame(absciss=c(0.00000000,0.08333333, 0.16666667, 0.25000000, 0.33333333, 0.41666667, 0.50000000, 0.58333333, 0.66666667, 0.75000000, 0.83333333, 0.91666667, 1.00000000, 1.00000000, 0.91666667, 0.83333333,0.75000000, 0.66666667, 0.58333333, 0.50000000, 0.41666667, 0.33333333, 0.25000000 ,0.16666667,0.08333333, 0.00000000),a=c(0.0000000, 0.0000000, 0.0000000, 0.0000000, 0.0000000 ,0.0000000,0.0000000 ,0.0000000 ,0.0000000 ,0.0000000, 0.0000000 ,0.0000000, 0.0000000, 0.3104093, 0.3673738, 0.4369944, 0.5223489, 0.6273225 ,0.7568293, 0.9171064 ,0.9366898, 0.9545479, 0.9702878 ,0.9834614, 0.9935587 ,1.0000000),b=c(1.0000000, 0.9935587, 0.9834614, 0.9702878, 0.9545479, 0.9366898, 0.9171064, 0.7568293, 0.6273225 ,0.5223489, 0.4369944, 0.3673738, 0.3104093, 5.3712182, 5.5752584, 5.7917893, 6.0230982, 6.2721479, 6.5427819, 6.8400031, 6.6000050, 6.3343244 ,6.0420686, 5.7225252, 5.3752221, 5.0000000),c=c(5.000000, 5.375222,5.722525 ,6.042069, 6.334324, 6.600005, 6.840003, 6.542782, 6.272148, 6.023098, 5.791789, 5.575258 ,5.371218, 5.735298 ,5.968894 ,6.217804, 6.484524, 6.772200, 7.084817, 7.427446, 7.239133, 7.030875, 6.802515, 6.554182, 6.286363 ,6.000000),d=c(6.000000 , 6.286363  ,6.554182,  6.802515,  7.030875,  7.239133,  7.427446 , 7.084817 , 6.772200 , 6.484524,  6.217804,  5.968894 , 5.735298 , 8.570569,  9.006399 , 9.473807,  9.976679, 10.519672, 11.108413, 11.749752 ,11.695621 ,11.616870 ,11.510890, 11.374844, 11.205658 ,11.000000))



 # Define UI for application that draws a plot
ui<-fluidPage(

  # Application title
  titlePanel("My Shiny Plot!"),

  sidebarLayout(
    sidebarPanel(),

    # Show the plot 
    mainPanel(
      plotOutput("Plot")
    )
  )
)

server<-function(input, output) {

  output$Plot <- renderPlot({
    plot(x=data1[,1],y=data1[,1],ylim=c(0,100),xlim=c(0,1),type="n")
        polygon(data1[,1],data1[,2],col=colors[1],border=F)
        polygon(data1[,1],data1[,3],col=colors[2],border=F)
        polygon(data1[,1],data1[,4],col=colors[3],border=F)
        polygon(data1[,1],data1[,5],col=colors[4],border=F)
  })
}
shinyApp(ui=ui, server=server)

How could I create a tooltip like these one: enter image description here

Or like these one: enter image description here

Thanks.


--
You received this message because you are subscribed to the Google Groups "Google Visualization API" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [email protected].
To post to this group, send email to [email protected].
Visit this group at https://groups.google.com/group/google-visualization-api.
To view this discussion on the web visit https://groups.google.com/d/msgid/google-visualization-api/049099f6-4914-4bbd-bc7e-9e45cd1f27d8%40googlegroups.com.
For more options, visit https://groups.google.com/d/optout.

Programming list archiving by: Enterprise Git Hosting