Могу ли я получить информацию, такую ​​как: «местоположение при наведении», «местоположение кисти» или «местоположение щелчка»

Я хочу настроить интерактивный график с блеском и сюжетом. Shiny имеет встроенную функцию для получения информации о взаимодействии с пользователем. Например: input $ plot_click , input $ plot_dblclick , input $ plot_hover и input $ plot_brush . Увидеть: http://shiny.rstudio.com/articles/plot-interaction.html

Есть ли возможность получить это через API Plotly? Или API может обрабатывать только одно направление?

Plotly действительно круто. Хотел бы использовать его в моих блестящих приложениях.

Спасибо и наилучшие пожелания

Нико

4 голоса | спросил kn1g 23 J000000Thursday15 2015, 19:08:24

2 ответа


0

Да, есть привязки щелчков и наведения к графам Plotly через API postMessage: https://github.com/plotly/postMessage-API

Здесь показано, как использовать API postMessage с Shiny: http://moderndata.plot.ly/dashboards-in-r- с -глянцеватым-plotly /

И код здесь: https://github.com/chriddyp/plotly-shiny

ответил user1561393 23 J000000Thursday15 2015, 19:56:53
0

Теперь есть функция event_data из plotly сам пакет, который обрабатывает зависания, щелчки, чистку и т. д.

В пакете есть демо-версия Shiny, которая описывает использование:

library(plotly)
shiny::runApp(system.file("examples", "plotlyEvents", package = "plotly"))

app.R

library(shiny)
library(plotly)

ui <- fluidPage(
  radioButtons("plotType", "Plot Type:", choices = c("ggplotly", "plotly")),
  plotlyOutput("plot"),
  verbatimTextOutput("hover"),
  verbatimTextOutput("click"),
  verbatimTextOutput("brush"),
  verbatimTextOutput("zoom")
)

server <- function(input, output, session) {

  output$plot <- renderPlotly({
    # use the key aesthetic/argument to help uniquely identify selected observations
    key <- row.names(mtcars)
    if (identical(input$plotType, "ggplotly")) {
      p <- ggplot(mtcars, aes(x = mpg, y = wt, colour = factor(vs), key = key)) + 
        geom_point()
      ggplotly(p) %>% layout(dragmode = "select")
    } else {
      plot_ly(mtcars, x = mpg, y = wt, key = key, mode = "markers") %>%
        layout(dragmode = "select")
    }
  })

  output$hover <- renderPrint({
    d <- event_data("plotly_hover")
    if (is.null(d)) "Hover events appear here (unhover to clear)" else d
  })

  output$click <- renderPrint({
    d <- event_data("plotly_click")
    if (is.null(d)) "Click events appear here (double-click to clear)" else d
  })

  output$brush <- renderPrint({
    d <- event_data("plotly_selected")
    if (is.null(d)) "Click and drag events (i.e., select/lasso) appear here (double-click to clear)" else d
  })

  output$zoom <- renderPrint({
    d <- event_data("plotly_relayout")
    if (is.null(d)) "Relayout (i.e., zoom) events appear here" else d
  })

}

shinyApp(ui, server, options = list(display.mode = "showcase"))

У них также есть примеры связанных чисток и кликов на их главной странице GitHub:

https://github.com/ropensci/plotly

ответил mlegge 23 Maypm16 2016, 17:16:16

Похожие вопросы

Популярные теги

security × 330linux × 316macos × 2827 × 268performance × 244command-line × 241sql-server × 235joomla-3.x × 222java × 189c++ × 186windows × 180cisco × 168bash × 158c# × 142gmail × 139arduino-uno × 139javascript × 134ssh × 133seo × 132mysql × 132