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: [image: enter image description
here] <https://i.stack.imgur.com/DJI1O.png>
Or like these one: [image: enter image description here]
<https://i.stack.imgur.com/VeIos.png>
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.
