Re: Vertical tick labels in BarChart

*To*: mathgroup at smc.vnet.net*Subject*: [mg84038] Re: Vertical tick labels in BarChart*From*: sdw <nospam.warwick at jps.net>*Date*: Fri, 7 Dec 2007 03:09:03 -0500 (EST)*References*: <fj8qal$jg5$1@smc.vnet.net>

ok - here you go.... (* create the bar chart with labels in the wrong orientation, then convert the whole thing to primitives with FullGraphics to circumvent all of the graphics ticks bugs*) b = BarChart[vals, BarLabels -> labels] // FullGraphics ; (* apply a transformation to all text primitives, being careful to only modify the non-numeric ones since the numeric ones are the vertical axis text marks. The transformation replaces the offending label with a rotated and translated version of the label. *) b /. Text[ v_String, al_List, bl_List] -> Translate[Rotate[Text[v, {0, 0}, {-1, 0}], -\[Pi]/2, {0, 0}], al] --- John Jowett wrote: > I would have thought this is a FAQ but it doesn't seem to be ... > > Consider the following construction of simple Bar Charts where the bar > labels are strings. The first one looks OK. In the second one, where > there are more bars, it's a mess because all the labels overlap > (unless the graphics is increased a lot in size): > > Needs["BarCharts`"] > > labels = {"MQM.A7L2B1", "MQMC.9R2.B1", "MQTLI.11R2.B1"}; > vals = {5, 6, 7}; > > BarChart[vals, BarLabels -> labels] > > vals = Flatten[Table[vals, {5}]]; > labels = Flatten[Table[labels, {5}]]; > > BarChart[vals, BarLabels -> labels] > > This could be neatly solved if the labels were oriented vertically > instead of horizontally (it's easy to do this, e.g., in certain > spreadsheet applications). However I can't find any option that > allows it. > I suspect it might be possible using some special Ticks construction > but haven't taken the time to see. But this should be easy ... does > anyone know how ? > > Thanks, > John Jowett > >