Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

Re: Piechart labels Mathematica 7

  • To: mathgroup at smc.vnet.net
  • Subject: [mg97358] Re: Piechart labels Mathematica 7
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Wed, 11 Mar 2009 05:09:04 -0500 (EST)
  • Organization: Uni Leipzig
  • References: <gp7vvh$1fn$1@smc.vnet.net>
  • Reply-to: kuska at informatik.uni-leipzig.de

Hi,

varAFreq = {{"Alive", 41169}, {"Dead", 1916}, {"Missing", 2009}};

pc = PieChart[varAFreq[[All, 2]], ImageSize -> Medium,
   ChartStyle -> {LightGreen, Red, LightRed},
   PlotLabel ->
    Column[{Style["Phase I Trees", Bold, 14],
      Style[Row[{" (",
         NumberForm[Total[varAFreq[[All, 2]]], DigitBlock -> 3],
         " trees surveyed)"}], Italic, 14]}],
   ChartLabels ->
    Placed[N[varAFreq[[All, 2]]/Total[varAFreq[[All, 2]]]*100] "%",
     "RadialCallout", Style[NumberForm[#, {3, 1}], 12] &],
   SectorOrigin -> {.5 Pi, -1},
   LabelingFunction -> (Placed[
       Style[NumberForm[#, DigitBlock -> 3], Italic, 12],
       "RadialOuter"] &)]

and

Show[DeleteCases[pc, _Text, Infinity],
  Graphics[Cases[cc , _Text, Infinity]]]

will bring the text labels in front, but destroy the dynamic
functionality of the pie chart

Regards
   Jens

jackie.lu wrote:
> Hello all,
> 
> I'm creating pie charts with sector labels but unfortunately the labels are
> partially hidden by the next section of the pie chart because the slice
> itself is rather narrow.  Is there a way to place labels such that the label
> for a narrow slice isn't partially obscured by the next one?  I've searched
> the documentation and the forum but haven't been able to figure this out.
> 
> This is the code I'm using.
> 
> varAFreq={{"Alive", 41169}, {"Dead", 1916}, {"Missing", 2009}};
> 
> PieChart[varAFreq[[All, 2]],
>  ImageSize -> Medium,
>  ChartStyle -> {LightGreen, Red, LightRed},
>  PlotLabel ->
>   Column[{Style["Phase I Trees", Bold, 14],
>     Style[Row[{" (",
>        NumberForm[Total[varAFreq[[All, 2]]], DigitBlock -> 3],
>        " trees surveyed)"}], Italic, 14]}],
>  ChartLabels ->
>   Placed[N[varAFreq[[All, 2]]/Total[varAFreq[[All, 2]]]*100] "%",
>    "RadialCallout", Style[NumberForm[#, {3, 1}], 12] &],
>  SectorOrigin -> {.5 Pi, -1},
>  LabelingFunction -> (Placed[
>      Style[NumberForm[#, DigitBlock -> 3], Italic, 12],
>      "RadialCenter"] &)]
> 
> Thank you in advance!
> -jackie
> 
> 


  • Prev by Date: Re: StringCases and Shortest
  • Next by Date: Re: Re: Re: Re: Mathematica 7.0.1.0 and
  • Previous by thread: Piechart labels Mathematica 7
  • Next by thread: Re: Re: Piechart labels Mathematica 7