info-bulle sur brillant R?
Je veux avoir une info-bulle dans mon Shiny
R
application. Est-il un moyen facile d'y parvenir? Pour l'instant, je suis entrain de créer une carte de la densité et je veux d'un simple outil de pointe en montrant "cliquez ici pour glisser à travers les années", tandis que le curseur de la souris sur le curseur de l'ANNÉE.
De L'Interface Utilisateur:
library(shiny)
shinyUI(pageWithSidebar(
headerPanel("Density Map"),
sidebarPanel(
sliderInput("slider_year", "YEAR:",
min = 2001, max = 2011, value = 2009,
format="####", locale="us"
)
)
),
mainPanel(
plotOutput("event_heatmap_map", width = "100%", height = "100%")
)
))
Code Serveur:
library(shiny)
library(ggmap)
library(ggplot2)
mydata <- read.csv("/var/shiny-server/www/dMetrics.csv")
shinyServer(function(input, output) {
output$event_heatmap_map <- renderPlot(width = "auto", height = 640,{
slice_year <- mydata[mydata$YEAR==input$slider_year,]
map <- get_map(c(lon = -55.3632715, lat = 31.7632836), zoom = 3, source = 'google', maptype = c("terrain"), messaging = FALSE, color = 'color')
world <- ggmap(map)
world <- world + stat_density2d(data = slice_year, aes(x = WEST, y = NORTH, fill = ..level.., alpha = ..level..), show_guide = FALSE, geom = "polygon", na.rm = TRUE) + scale_fill_gradient(name="Density", low="maroon", high="yellow", guide = 'colorbar')
plot(world)
})
})
Merci pour l'aide.
- Pourriez-vous fournir plus d'informations? stackoverflow.com/a/5963610/509782
Vous devez vous connecter pour publier un commentaire.
Je pense que vous devriez être en mesure de remplacer ce:
avec ceci:
output$view_gviz <- renderGvis({ chart <- gvisMotionChart(visdata, idvar="Storm", timevar="Year",......)
. Je vous remercie une fois encore pour l'aide.C'est un peu plus facile et plus élégant.
Vous pouvez ajouter l'info-bulle dans
ui.R
ouserver.R
,De plus, vous pouvez également utiliser la Liste.