Блестящий обновите нажатую точку, чтобы выделить ее

Вы можете добавить события Plotly в свое приложение Shiny с помощью функции htmlwidget onrender.

ggplotly(p) %>% onRender(javascript)

Массив colors передается функции restyle. Выбранная точка (pointNumber) окрашена в пурпурный цвет, а остальные - в цвет из легенды. Вы можете сделать то же самое с размером marker, символ маркера немного сложнее, потому что Plotly не принимает здесь массивы.

function(el, x){
  el.on('plotly_click', function(data) {
    colors = [];
    var base_color = document.getElementsByClassName('legendpoints')[data.points[0].curveNumber].getElementsByTagName('path')[0].style['stroke']
    for (var i = 0; i < data.points[0].data.x.length; i += 1) {
      colors.push(base_color)
    };
    colors[data.points[0].pointNumber] = '#FF00FF';
    Plotly.restyle(el, 
                   {'marker':{color: colors}}, 
                   [data.points[0].curveNumber]
                  );

  });
}

library(shiny)
library(plotly)
library(htmlwidgets)

ui <- fluidPage(
  plotlyOutput("plot")
)

javascript <- "
function(el, x){
  el.on('plotly_click', function(data) {
    colors = [];

    var base_color = document.getElementsByClassName('legendpoints')[data.points[0].curveNumber].getElementsByTagName('path')[0].style['stroke']
    for (var i = 0; i < data.points[0].data.x.length; i += 1) {
      colors.push(base_color)
    };
    colors[data.points[0].pointNumber] = '#FF00FF';
    Plotly.restyle(el, 
                   {'marker':{color: colors}}, 
                   [data.points[0].curveNumber]
                  );
    //make sure all the other traces get back their original color
    for (i = 0; i < document.getElementsByClassName('plotly')[0].data.length; i += 1) {
      if (i != data.points[0].curveNumber) {
        colors = [];
        base_color = document.getElementsByClassName('legendpoints')[i].getElementsByTagName('path')[0].style['stroke'];
        for (var p = 0; p < document.getElementsByClassName('plotly')[0].data[i].x.length; p += 1) {
          colors.push(base_color);
        }
        Plotly.restyle(el, 
                       {'marker':{color: colors}}, 
                       [i]);
      }
    };
  });
}"
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) %>% onRender(javascript)

  })
}

shinyApp(ui, server)

Некоторые пояснения:

• События Plotly, например plotly_click передать некоторую информацию (data в данном случае) в функцию события
• data.points содержит точки, для которых событие было инициировано
• в этом случае у нас есть только одна точка data.points[0], где pointNumber - это индекс исходного массива, а curveNumber - номер трассировки.
• Графически сохраняет все входные данные в div, где строится график.
• Мы можем получить к нему доступ через document.getElementsByClassName('plotly')[0].data
• Доступ к легенде можно получить через document.getElementsByClassName('legendpoints')[i], где i - это индекс легенды.
• ggplotly или plot_ly возвращают htmlwidgets
• Код Javascript или HTML можно добавить с помощью любой из функций htmlwidget, например onrender в этом случае