MathGroup Archive 2011

[Date Index] [Thread Index] [Author Index]

Search the Archive

PairedBarChart "Education and Training pay..."

  • To: mathgroup at smc.vnet.net
  • Subject: [mg123915] PairedBarChart "Education and Training pay..."
  • From: Gilmar Rodriguez-pierluissi <peacenova at yahoo.com>
  • Date: Fri, 30 Dec 2011 07:04:57 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • Reply-to: Gilmar Rodriguez-pierluissi <peacenova at yahoo.com>

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


  • Prev by Date: Re: DeleteCases
  • Next by Date: Re: Why does Manipulate leak global symbols? (Potential bug here?)
  • Previous by thread: CUDAImageConvolve kernel size
  • Next by thread: Nested factor in LinearModelFit