Как получить фасетные данные из сюжетного события в Shiny

Я пытаюсь shiny включить некоторые plotly графики. Я хочу использовать реактивные события, поэтому, когда я нажимаю на график, другой график обновляется на основе отфильтрованных данных. Дело в том, что график, на котором я хочу иметь событие щелчка, имеет фасеты, и я хочу фильтровать данные на основе фасета, по которому щелкнули. Но насколько я могу судить, информация о фасетах не отправляется обратно в данных события.

Я упростил пример блестящих сюжетных событий, включив в него аспекты (см. Изображение ниже) , но ни одно из событий не получает информацию о фасете. В частности, event_data("plotly_click"), который мне интересен, нигде не получает нажатый фасет.

library(plotly)
library(shiny)

ui <- fluidPage(
    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)
        p <- ggplot(mtcars, aes(x = mpg, y = wt, colour = factor(vs), key = key)) + 
            geom_point() +
            facet_grid(rows = "gear")
        ggplotly(p) %>% 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)

Я искал это в Google и не могу найти решения. Могу ли я что-нибудь передать, например, функции рендеринга, чтобы она получила фасет и могла отправить его обратно в данных события?


r plotly r-plotly shiny
person Max    schedule 18.01.2019    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Что ж, вы можете видеть в адаптированном вами примере кода, что они «используют ключевой эстетический аргумент / аргумент, чтобы помочь однозначно идентифицировать выбранные наблюдения». Почему бы вам не использовать его для определения фасета?

Вам нужно будет настроить только одну строку в вашем коде, изменив key = gear в aes().

person elikesprogramming    schedule 18.01.2019