Drexel dragonThe Math ForumDonate to the Math Forum



Search All of the Math Forum:

Views expressed in these public forums are not endorsed by Drexel University or The Math Forum.


Math Forum » Discussions » Software » comp.soft-sys.math.mathematica

Topic: PairedBarChart "Education and Training pay..."
Replies: 0  

Advanced Search

Back to Topic List Back to Topic List  
Gilmar Rodriguez-pierluissi

Posts: 18
Registered: 5/4/11
PairedBarChart "Education and Training pay..."
Posted: Dec 30, 2011 6:37 AM
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic Reply

Dear MathGroup:

I'm attempting to build a chart similar to the one appearing on the
following web page: http://www.bls.gov/emp/ep_chart_001.htm

The following is what I have done far:

doctoralrate = {0, 1.9}; doctoralearning = {0, 80600};
profdegreerate = {0, 2.4}; profdegreeearning = {0, 83720};
masterdegreerate = {0, 4.0}; masterdegreeearning = {0, 66144};
bachelordegreerate = {0, 5.4}; bachelordegreeearning = {0, 53976};
associatedegreerate = {0, 7.0}; associatedegreeearning = {0,39884};
somecollegerate = {0, 9.2}; somecollegeearning = {0, 37024};
highschoolgradrate = {0, 10.3}; highschoolearning = {0, 32552};
somehighschoolrate = {0, 14.9}; somehighschoolearning = {0, 23088};

labels = {"Some high school, no diploma", "high school graduate",
"Some college, no degree", "Associate degree", "Bachelor's degree",
"Master's degree", "Professional degree", "Doctoral degree"};

labelsrates = {"1.9 %", "2.4 %", "4.0 %", "5.4 %", "7.0 %", "9.2 %",
"10.3 %", "14.9 %"};

labelsearnings = {"$80,600", "$83,720", "$66,144", "$53,976",
"$39,884", "$37,024", "$32,552", "$23,088"};

scalingfactorrate = 5000;

PairedBarChart[
Reverse[scalingfactorrate {doctoralrate, profdegreerate,
masterdegreerate, bachelordegreerate, associatedegreerate,
somecollegerate, highschoolgradrate, somehighschoolrate}],
Reverse[{doctoralearning, profdegreeearning, masterdegreeearning,
bachelordegreeearning, associatedegreeearning, somecollegeearning,
highschoolearning, somehighschoolearning}],
ChartLayout -> "Stacked", ChartStyle -> "Rainbow",
BarSpacing -> Large,
ChartLabels -> {Placed[{"Unemployment Rate in 2010 (%)",
"Median Earnings in 2010 ($)"}, Above],
Placed[labels, "CenterAxis"], None}, AxesLabel -> "Education",
ImageSize -> Large, PlotLabel -> "Education and Training pay...",
ChartElementFunction -> "GlassRectangle", Axes -> {False, True}]

I'm having difficulties inserting the labelsrates, outside and to the left of
the Unemployment rate bars. Similarly; I want to insert the labelsearnings, outside and to the right of the Median Earnings bars.

I'm also having difficulties separating the two vertical axes so that, the education level labels fit  properly between the axes.

Thank you for your help!

Gilmar Rodríguez Pierluissi



Point your RSS reader here for a feed of the latest messages in this topic.

[Privacy Policy] [Terms of Use]

© Drexel University 1994-2014. All Rights Reserved.
The Math Forum is a research and educational enterprise of the Drexel University School of Education.