相关疑难解决方法(0)

这是提取点击事件的工作示例。我想问你是否有办法通过增加大小或突出显示等来更新点击点？

library(shiny)
library(plotly)

ui <- fluidPage(
    plotlyOutput("plot"),
    verbatimTextOutput("click")
)

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

    nms <- row.names(mtcars)

    output$plot <- renderPlotly({
        p <- ggplot(mtcars, aes(x = mpg, y = wt, col = as.factor(cyl), key = nms)) + 
           geom_point()
        ggplotly(p)

    })

    output$click <- renderPrint({
        d <- event_data("plotly_click")
        if (is.null(d)) "Click events appear here (double-click to clear)" 
        else cat("Selected point associated with Car: ", d$key)
    })

}

shinyApp(ui, server)

我已经搜索了 SO 和其他合适的来源以找到以下问题的解决方案，但找不到。

更新：

• 这个解决方案更适合这个玩具情节。但是，我的原始用例包含 50 多个感兴趣的变量级别，并且很有可能已经存在洋红色或任何其他颜色。此外，改变颜色需要相当长的时间。
• 有没有办法增加点击点的大小以将其与附近的数百个点区分开来？

已在此处询问有关更改单击点形状的相关问题。