title: How to create an interactive waterfall plot? R
body: <p>I obtained a waterfall chart and I would like to make it reactive. 
  To display my waterfall plot I used the following line :</p>
  
  <pre><code>ggplot(a, aes(WorkArea, fill = type)) + geom_rect(aes(x = WorkArea, xmin = id -0.45, xmax = id + 0.45, ymin = end, ymax =start))+scale_y_continuous(breaks=seq(0,round(max(as.numeric(a$TEST))),1))
  </code></pre>
  
  <p>My data are the following :</p>
  
  <pre><code>&gt;dput(a)
  structure(list(WorkArea = structure(1:12, .Label = c("W04-2017","1","2","3","4", "5", "6", "7", "8", "9", "10", "W02-2017"), class ="factor"), type = c("Reference", "GAP -", "GAP +", "GAP +", "GAP +", "GAP -","GAP +", "GAP +", "GAP -", "GAP +", "GAP -", "Reference"), id = 1:12, end =c(7.76, 7.74633088087763, 7.9153571928874, 8.00995033541827, 8.12310088678836, 7.95370807262163, 8.29697519437368, 8.31463895449699, 8.28302107983506,8.29280710260114, 8.28, 0), start = c(0, 7.76, 7.74633088087763, 7.9153571928874, 8.00995033541827, 8.12310088678836, 7.95370807262163,8.29697519437368,8.31463895449699, 8.28302107983506, 8.29280710260114, 8.28),TEST = list(7.76, -0.0136691191223706, 0.169026312009775, 0.0945931425308611, 0.113150551370094, -0.169392814166733, 0.343267121752054, 0.017663760123311, -0.0316178746619267,0.00978602276607453, -0.01280710260114, 9.45)), .Names = c("WorkArea","type", "id", "end", "start", "TEST"), class = "data.frame", row.names = c(NA, 12L))
  </code></pre>
  
  <p>My idea is : when an user click on a bar it becomes highlighted and a table is displayed with the details concerning this group(this bar). To do that I have to obtain the informations about the group.</p>
  
  <p>How could I do that?</p>
  
  <p><a href="https://i.stack.imgur.com/t0V6t.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/t0V6t.jpg" alt="enter image description here"></a></p>