How to develop a drill down chart with hierarchy and how to add data label to it using R?

Question

I want to create a drill down chart. For that, I created a hierarchy. Unfortunately, I cannot drill down in the chart. I have the following working code:

library(