| Author |
Comment/Response |
mathematica user
|
 10/08/12 1:06pm
Hi there
I have a little Problem with a Bar Chart. Here is the code:
NumberOne = 20;
NumberTwo = 30;
NumberThree = 40;
NumberOneNew = NumberOne*1.2;
NumberTwoNew = NumberTwo*1.4;
NumberThreeNew = NumberThree*1.6;
SumOld = NumberOne + NumberTwo + NumberThree;
SumNew = NumberOneNew + NumberTwoNew + NumberThreeNew;
BarChart[{{NumberOne, NumberTwo, NumberThree}, {NumberOneNew,
NumberTwoNew, NumberThreeNew}},
ChartLabels -> {Placed[{Text[Style[SumOld, 24]],
Text[Style[SumNew, 24]]},
Above], {Text[Style["NumberOne", Bold, 12]],
Text[Style["NumberTwo", Bold, 12]],
Text[Style["NumberThree", Bold, 12]]}}, ChartLayout -> "Stacked",
LabelStyle ->
Directive[Bold, FontFamily -> "Helvetica", FontSize -> 12]]
So far so good. What I want to add is adding the Value for each Number in the Chart. I have uploaded the modified Chart in which I have the wished for Changes marked in red. Thanks in advance for anyone who can offer me a solution.
Attachment: BarChart.jpg, URL: , |
|
