如何阻止条形图隐藏Mathematica中数据值0的标签？

Question

我用它来创建一个条形图：

BarChart[
 Reverse@data,
 BarOrigin -> Left,
 ChartLabels -> 
  Placed[{Reverse@labels, Reverse@data}, {Before, After}],
 ChartElementFunction -> "FadingRectangle"
 ]

使用data = {7, 10, 0, 6, 0, 3, 5}这给出了

问题是某些数据值为0，而BarChart甚至不会为它们添加标签。 相反，它留下了一个开放空间。 即使值为0，我怎样才能使它仍然添加标签？

这是Mathematica 8。

Answer 1

关于什么

data = {7, 10, 0, 6, 0, 3, 5}

labels = ("label " ~~ ToString[#]) & /@ data

BarChart[Reverse@data, BarOrigin -> Left,
ChartLabels -> Placed[{Reverse@labels, Reverse@data}, {Axis, After}],
ChartElementFunction -> "FadingRectangle"]

似乎“之前”没有，“轴心”确实有效吗？

Answer 2

最简单的方法是使用类似data /. {(0|0.0) -> 0.00001}的hack data /. {(0|0.0) -> 0.00001} data /. {(0|0.0) -> 0.00001} 。

我认为这应该可以在不需要黑客的情况下运行，因此您还应该向support@wolfram.com提交报告。

Answer 3

您的代码在Windows 7上的Mathematica 7中给出。

data = {7, 10, 0, 6, 0, 3, 5};

labels = Row[{"label",#}]& /@ data;

BarChart[
  Reverse@data,
  BarOrigin -> Left,
  ChartLabels ->
   Placed[{Reverse@labels, Reverse@data}, {Before, After}],
  ChartElementFunction -> "FadingRectangle"
]