Как остановить диаграмму от скрытия меток для значения данных 0 в Mathematica?

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}.

Я думаю, что это должно работать без необходимости взлома, поэтому вы также должны подать отчет на support@wolfram.com.

Answer 3

Ваш код работает, как указано в Mathematica 7 в Windows 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"
]