Làm thế nào để dừng barchart từ ẩn nhãn cho giá trị dữ liệu 0 trong Mathematica?

Question

Tôi sử dụng này để tạo ra một biểu đồ Bar:

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

Với data = {7, 10, 0, 6, 0, 3, 5} này cung cấp cho

Vấn đề là một số các giá trị dữ liệu là 0 và BarChart thậm chí sẽ không thêm các nhãn cho họ. Thay vào đó, nó để lại một không gian mở. Làm thế nào tôi có thể làm cho nó vẫn còn thêm các nhãn mặc dù các giá trị là 0?

Điều này là với Mathematica 8.

Answer 1

gì về

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

Có vẻ như rằng "Trước khi" không và "Trục" không làm việc?

Answer 2

Cách tiếp cận đơn giản nhất là sử dụng hack như data /. {(0|0.0) -> 0.00001}.

Tôi nghĩ rằng điều này sẽ hoạt động mà không cần hack, vì vậy bạn cũng nên gửi báo cáo với support@wolfram.com.

Answer 3

Mã của bạn hoạt động như trình bày trong Mathematica 7 trên 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" 
]