How to add value for each legend and display the appropriate value when the particular legend is clicked?

Question

This is the code to hide the graph and display the appropriate legend when clicked

    library(plotly)
    library(tidyr)
    library(plyr)
 data <- spread(Ora