Mathematica: Могу ли я сопоставить BarChart Legend со сложенными барами?

Хотелось бы, чтобы вертикальное расположение цветов в стеке баров совпадало с расположением цветов в легенде графика. Но что бы я ни пытался, они не совпадают. Вот ситуация

BarChart[{{5, 37, 56}, {22, 49, 28}, {31, 60, 10}},
   ChartLayout -> "Percentile",
   ChartLegends -> Placed[{"1-Volume", "2-Area", "3-Length"}, Right],
   ChartLabels -> {{"Before", "During", "After"}, None}]

В реальном примере легенда имеет еще несколько записей (6), так что было бы неплохо, если бы порядок цветов легенды совпадал с порядком в барах. Я понимаю, что я мог бы установить ChartLegends для отображения на Bottom, но это выглядит не очень хорошо, учитывая большое количество записей легенды.

Кроме того, перевернуть список легенд не удается. Текст легенд был переупорядочен, но цвета не были переупорядочены (см. ниже), поэтому подписи к легендам больше не совпадают с данными на графике.

Изменение порядка следования данных (или данных и элементов легенд) также не работает.

Какие-нибудь предложения?