Вопрос: Можно ли использовать график и блеск, чтобы извлечь список всех кривых, номеров точек, х и у одновременно?
Пример (см. Код): При нажатии на каждую полосу, p
возвращается ниже. Можно ли получить список значений x, pointNumbers et c без первоначального нажатия на график? Т.е. x-объект c (4, 6, 8), объект pointNumber c (0, 1, 2)
curveNumber pointNumber x y
1 0 2 8 15.1
curveNumber pointNumber x y
1 0 1 6 19.74286
Пример кода
ui <- fluidPage(
plotlyOutput("plot")
)
server <- function(input, output) {
output$plot <- renderPlotly({
mtcars %>%
group_by(cyl) %>%
summarise(m = mean(mpg)) %>%
plot_ly(., x = ~cyl,
y = ~m, source = "test_plot") %>%
add_bars()
})
observe({
p <- event_data("plotly_click", source = "test_plot")
print(p)
})
}
# Run the application
shinyApp(ui = ui, server = server)