R plotly to interact with annotation created by geom_text

Question

I created below plotly figure. I want to click each category to make the stacked barchart appear or disappear. I used geom_text to add the annotation in each bar chart as we