wolfram-mathematica - Mathematica : Can I match the BarChart Legend to the stacked bars?

Question

我希望堆叠条形图中的颜色垂直排列与图表图例中的颜色排列相匹配。但是，无论我尝试什么，它们都不匹配。这是情况

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上显示，但考虑到许多图例条目，效果并不理想。

同样，反转“图例”列表也无法按预期进行。图例的文本已重新排序，但颜色未重新排序(请参见下文)，因此图例标题不再与图表中的数据匹配。

更改数据(或数据和图例项目)的顺序也不起作用。

有什么建议？

Answer 1

BarChart[{{5, 37, 56}, {22, 49, 28}, {31, 60, 10}}, 
  ChartLayout -> "Percentile", 
  ChartLegends -> {"1-Volume", "2-Area", "3-Length"}, 
  ChartLabels -> {{"Before", "During", "After"}, None}] /. 
 Column[List[a : Grid[List[___]] ..]] :> Column[Reverse@List@a]

编辑

当您想弄乱Graphics/Chart/Plot内部时，请记住使用 FullForm