Thanks Daniel
Le mercredi 11 janvier 2017 16:47:42 UTC+1, Marieta Baramova a écrit :
>
> 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/78a020b3-1514-4653-85a8-a29344300886%40googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
