Plotly in R. How to remove annotation based on the legend. The data points are still there when the legend is hidden.

Is there a way to remove the numbers when removing the line graph. It should display the correct data annotation when the particular legend is selected

library(plotly)

trace_0 <- rnorm(100, mean = 5)
trace_1 <- rnorm(100, mean = 0)
trace_2 <- rnorm(100, mean = -5)
x <- c(1:100)

data <- data.frame(x, trace_0, trace_1, trace_2)

fig <- plot_ly(data, x = ~x)
fig <- fig %>% add_trace(y = ~trace_0, name = 'trace 0',mode = 'lines') %>%
add_annotations(x = ~x, y = ~trace_0, text = ~x, showarrow = FALSE) %>%
layout(showlegend = TRUE)

fig

Reproduziere das Verhalten mit dem bereitgestellten R-Beispiel unter Verwendung von plotly und konzentriere dich auf add_trace(), add_annotations() und die Sichtbarkeit der Legende. Bestimme, wie die Sichtbarkeit von Annotationen dem ausgewählten Trace folgen sollte, und überprüfe anschließend, dass das Ausblenden eines Legendeneintrags auch dessen Annotationen ausblendet und dabei die korrekten Annotationen für sichtbare Traces beibehält.