How filling cluster on a dendrogram instead of labels?

I´m working with a dendrogram containing 20 clusters, so to customize the plot, I´m looking to remove labels and paint the complete cluster.
Here is my dendrogram:

My expected result:

Here only drawn a few clusters because there are 20 of them, I expect to fill each cluster partially so you can see branches.
Here is my code:

p <- 
  ggplot(segment(dendr)) + 
  geom_segment(aes(x = x, y = y, xend = xend, yend = yend)) + 
  geom_text(data = kappaX, aes(x=x, y=y, label=label, hjust=0, color=clust), size=2) +
  scale_colour_manual(values=c( '#e6194b', '#3cb44b', '#ffe119', '#4363d8', '#f58231', 
                                '#911eb4', '#46f0f0', '#f032e6', '#bcf60c', '#fabebe', 
                                '#008080', '#e6beff', '#9a6324', '#fffac8', '#800000', 
                                '#aaffc3', '#808000', '#ffd8b1', '#000075', '#808080', 
                                '#ffffff', '#000000' )) +
  coord_flip() + 
  scale_y_reverse(expand = c(0.2, 0)) +
  labs(title = "") +
  theme_dendro()

I tried (to delete leaf), but obviously, I´m doing wrong:

leaflab = "none"

In the case of filling the complete cluster, I have not success.
Any idea is welcome!