BarChart without axes neglects the last zero of a list

Question

Creating a BarChart with {1, 2, 3, 0} as

BarChart[{1, 2, 3, 0}, Axes -> False, Frame -> True]

gives me only the first three bars, a chart identical to just

BarChart[{1, 2, 3}, Axes -> False, Frame -> True]

Is this an intended behaviour or a bug?
(Originally I asked for a workaround. I think I can just use Axes instead of Frame. Let me ask this instead for the sake of knowledge.) What to do if I need Frame but not Axes?

I'm using Mathematica 9.

is that cheating? BarChart[{1, 2, 3, 0}, AxesStyle -> Directive[Opacity[0]], Frame -> True]. There must be a smarter way - — Pinguin Dirk, Apr 04 '13 at 11:23
Your workaround is great. I think you have answered Question 2! Could you please post it as an answer so I can mark the question as solved? — Taiki, Apr 04 '13 at 12:45

bill s · Answer 1 · 2013-04-04T11:04:46.497

2

Are you sure it's not there? I get this picture:

enter image description here

What appears to be nothingness attached on the end is really a bar of height zero. You can see this more clearly if you do it in 3D

BarChart3D[{1, 2, 3, 0}]

which gives

enter image description here

Now you can see the stump of the zero bar. Another way to see it would be:

BarChart[{1, 2, 3, 0}, LabelingFunction -> (Placed[#, Above] &)]

enter image description here

which labels things with the number.

edited Apr 04 '13 at 11:04

answered Apr 04 '13 at 10:16

bill s

68,936
4
101
191

Thank you. I just updated my question a bit. It seems the option Axes -> False causes the last zero to disappear. – Taiki Apr 04 '13 at 10:26

score 2 · Accepted Answer · answered Apr 04 '13 at 14:21

2

I cannot answer why this is happening. Intuitively, I interpret BarChart as a chart with no "real", scaled, x-axis. Thus, a frame does not really make a lot of sense to me (with ticks)...

Nevertheless, you could use the following work-around to make the axis "vanish":

BarChart[{1, 2, 3, 0}, AxesStyle -> Directive[Opacity[0]], Frame -> True]

This will keep the last (zero) bar:

enter image description here

answered Apr 04 '13 at 14:21

Pinguin Dirk

6,519
1
26
36

Thank you for your idea. Now I'll just customise the chart further, like this. – Taiki Apr 04 '13 at 15:05

score 0 · Answer 3 · answered Apr 04 '13 at 10:17

0

Perhaps you could do:

GraphicsRow[BarChart[#, AxesOrigin -> {0, -1}] & /@ {{1, 2, 3, 0}, {1, 2, 3}}]

Mathematica graphics

Just to be sure

answered Apr 04 '13 at 10:17

Dr. belisarius

115,881
13
203
453

Thank you. Now I have updated my question. With Axes set to False, the last zero really disappears. – Taiki Apr 04 '13 at 10:39

BarChart without axes neglects the last zero of a list

3 Answers3

Linked