7

これを使用して棒グラフを作成します。

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

これdata = {7, 10, 0, 6, 0, 3, 5}で

Mathematicaグラフィックス

問題は、一部のデータ値が0でありBarChart、それらのラベルを追加しないことです。代わりに、それはオープンスペースを残します。値が0であっても、ラベルを追加するにはどうすればよいですか？

これはMathematica8の場合です。

4

3 に答える 3

6

どうですか

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"]

「前」は機能せず、「軸」は機能するようですか？

チャート

于 2012-01-12T21:12:44.043 に答える
3

最も簡単なアプローチは、のようなハックを使用することdata /. {(0|0.0) -> 0.00001}です。

これはハックを必要とせずに機能するはずなので、support@wolfram.comにもレポートを提出する必要があります。

于 2012-01-12T19:46:10.347 に答える
2

あなたのコードは、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"
]

Mathematica グラフィックス

于 2012-01-12T22:19:06.063 に答える