абочий пример извлечения события нажатия. Я хотел бы спросить вас, есть ли способ обновить точку щелчка либо увеличением размера, либо выделением и т. Д.,?

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 уровней для переменной, представляющей интерес, и есть большие шансы, что пурпурный или любой другой цвет уже будет присутствовать. Кроме того, для изменения цвета требуется значительное количество времени.Есть ли способ увеличить размер точки, по которой щелкают, чтобы отличить ее от сотен ближайших точек?

Был задан связанный вопрос, чтобы изменить форму точки нажатияВот.