Aquí hay un ejemplo práctico de extracción del evento al hacer clic. Me gustaría preguntarle si hay una manera de actualizar el punto en el que se hizo clic con un aumento de tamaño o resaltarlo, etc.

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)

He buscado SO y otras fuentes apropiadas para encontrar una solución a la siguiente pregunta, pero no pude encontrarla.

Actualizar:

Esta La solución funciona mejor para esta parcela de juguete. Pero, mi caso de uso original contiene más de 50 niveles para la variable de interés y hay muchas posibilidades de que Magenta o cualquier otro color ya esté presente. Además, lleva una cantidad considerable de tiempo cambiar el color.¿Hay alguna forma de aumentar el tamaño del punto cliqueado para diferenciarlo de cientos de puntos cercanos?

Se ha formulado una pregunta relacionada para cambiar la forma del punto en el que se hizo clic.aquí.