Consider the following `BarChart`:

```
BarChart[{{1, 2, 3}, {None, 2, None}, {1, None, 5}},
         ChartLegends -> {"A", "B", "C"},
         ChartLabels -> {{"X", "Y", "Z"}, None},
         LabelingFunction -> (Placed[Row[{"", #}], Bottom] &),
         BarSpacing -> None, AxesLabel -> "l"]

```

How can the empty bars be removed to save space with the appropriate coloring/labels maintained?

[![enter image description here](https://i.stack.imgur.com/yih49.png)](https://i.stack.imgur.com/yih49.png)