Временно исключить точки на графике

Question

В следующих plotly Например (взято отсюда), можно ли ввести функцию, которая позволяет пользователю щелкнуть по точке, чтобы "выделить ее серым", чтобы она была исключена из "активного" набора данных, и линия подбора лесса будет автоматически корректироваться к новому набору данных? Затем можно снова щелкнуть точки (точки), чтобы вернуть их в "активный" набор данных. Может быть сложно. Поскольку комментарии предполагают, что это вероятно потребует shinyНо у меня возникли проблемы с выяснением как.

   library(plotly)
   library(broom)

m <- loess(mpg ~ disp, data = mtcars)

p <- plot_ly(mtcars, x = ~disp, color = I("black")) %>%
  add_markers(y = ~mpg, text = rownames(mtcars), showlegend = FALSE) %>%
  add_lines(y = ~fitted(loess(mpg ~ disp)),
            line = list(color = 'rgba(7, 164, 181, 1)'),
            name = "Loess Smoother") %>%
  add_ribbons(data = augment(m),
              ymin = ~.fitted - 1.96 * .se.fit,
              ymax = ~.fitted + 1.96 * .se.fit,
              line = list(color = 'rgba(7, 164, 181, 0.05)'),
              fillcolor = 'rgba(7, 164, 181, 0.2)',
              name = "Standard Error") %>%
  layout(xaxis = list(title = 'Displacement (cu.in.)'),
         yaxis = list(title = 'Miles/(US) gallon'),
         legend = list(x = 0.80, y = 0.90))

# Create a shareable link to your chart
# Set up API credentials: https://plot.ly/r/getting-started
chart_link = api_create(p, filename="multiple-loess-se")
chart_link