programing

빛나는 R에 대한 툴팁?

itsource 2021. 1. 14. 08:16
반응형

빛나는 R에 대한 툴팁?


Shiny R응용 프로그램 에 도구 설명이 필요합니다 . 그것을 달성하는 쉬운 방법이 있습니까? 지금은 밀도 맵을 만들고 있으며 슬라이더 YEAR 위로 마우스를 가져 가면서 "여기를 클릭하여 연도를 슬라이드"하는 간단한 도구 설명을 원합니다.

사용자 인터페이스 :

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%")
  )
))


서버 코드 :

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)
    })
})

도와 주셔서 감사합니다.


이것을 대체 할 수 있어야한다고 생각합니다.

sliderInput("slider_year", "YEAR:", 
            min = 2001, max = 2011, value = 2009, 
            format="####", locale="us"
)

이것으로 :

tags$div(title="Click here to slide through years",
    sliderInput("slider_year", "YEAR:", 
                min = 2001, max = 2011, value = 2009, 
                format="####", locale="us"
    )
)

이것은 약간 더 쉽고 우아한 방법입니다.

library(shinyBS) # Additional Bootstrap Controls

## From ui.R: Adds a tooltip to element with inputId = "someInput" 
## with text, "This is an input.", that appears to the left on hover.
bsTooltip(id = "someInput", title = "This is an input", 
          placement = "left", trigger = "hover")

## From server.R: Add the same tooltip as above
addTooltip(session, id = "someInput", title = "This is an input.",
           placement = "left", trigger = "hover")

ui.R또는 server.R, Additional에 도구 설명을 추가 할 수 있으며 Popover를 사용할 수도 있습니다.

참조 URL : https://stackoverflow.com/questions/16449252/tooltip-on-shiny-r

반응형