2
$\begingroup$

How do you individually rotate labels on a pie chart? For example, I have this chart detailing money composition.

Chart2 = PieChart[{10, 5, 22, 63}, ImageSize -> Large, 
  ChartLabels -> 
   Placed[{"Gold (10%)", "Silver (5%)", "Currency (22%)", 
     "Demand Deposits (63%)"}, "RadialCenter", 
    Rotate[#, 45 Degree] &], BaseStyle -> {FontSize -> 20}]

How can I alter my code to only rotate and change the fontsize of certain labels?

$\endgroup$
2
$\begingroup$

With a custom ChartElementFunction you can automate the angles of the labels (using tricks similar to the ones used in this Q/A)

ClearAll[cedFunc];
cEDF = ChartElementDataFunction;
cedFunc[datafunc_: cEDF["Sector"]][{{t0_, t1_}, {r0_, r1_}}, y_, z___] :=
    {datafunc[{{ t0, t1}, {r0, r1}}, y, {}],
     Text[Style @@ z[[1]],
          ((r1 + r0)/2) {Cos[(t0 + t1)/2], Sin[(t0 + t1)/2]},
          Automatic, -(r0 + .0001) {Cos[(t0 + t1)/2], Sin[(t0 + t1)/2]}]};

Usage examples:

dt = {10, 5, 22, 63};
labels = {"Gold (10%)", "Silver (5%)", "Currency (22%)",  "Demand Deposits (63%)"};
styles = {RGBColor[0, 1, 0], RGBColor[0, 0, 1], 
          Directive[GrayLevel[0], 24], RGBColor[1, 1, 0]};
newdata = Thread[dt -> Thread[{labels, styles}]];

Row[PieChart[newdata, ImageSize -> 600, BaseStyle -> {FontSize -> 18},
           PlotLabel -> #, #, SectorOrigin -> {Automatic, .1},
           ChartElementFunction -> (cedFunc[])] & /@ 
   {ChartStyle -> 1,  ColorFunction -> "Rainbow"}]

enter image description here

Row[PieChart[newdata, ImageSize -> 600, BaseStyle -> {FontSize -> 18},
           ColorFunction -> "Rainbow", PlotLabel -> #, #,
           ChartElementFunction -> (cedFunc[])] & /@ 
   {SectorOrigin -> {{Pi/2, "Counterclockwise"}, .1}, SectorOrigin -> {{Pi}, .1}}]

enter image description here

dtf = cEDF["TriangleWaveSector", "AngularFrequency" -> 18, "RadialAmplitude" -> 0.1`];
Row[PieChart[newdata, ImageSize -> 600, BaseStyle -> {FontSize -> 18},
             PlotLabel -> #, #,
             ChartElementFunction -> (cedFunc[dtf])] & /@ 
   {ChartStyle -> 1, ColorFunction -> "Rainbow"}]

enter image description here

Update: Controlling label orientation

cedFunc2[datafunc_: cEDF["Sector"]][o_: (-1)][{{t0_, t1_}, {r0_, r1_}}, y_, z___] :=
      {datafunc[{{ t0, t1}, {r0, r1}}, y, {}],
       Text[Style @@  z[[1]],
           ((r1 + r0)/2) {Cos[(t0 + t1)/2], Sin[(t0 + t1)/2]},
           Automatic, o ( r0 + .0001) {Cos[(t0 + t1)/2], Sin[(t0 + t1)/2]}]};

Row[PieChart[newdata, ImageSize -> 600, BaseStyle -> {FontSize -> 18},
             ColorFunction -> "Rainbow",
             PlotLabel -> ("LabelOrientation: " <> ToString[#]), 
             SectorOrigin -> {{Pi}, .1},
             ChartElementFunction -> (cedFunc2[][#])] & /@
    {1, -1}]

enter image description here

$\endgroup$
4
$\begingroup$

Use Rotate on the specific Labels instead of on all them as group? And use Style on each to change font color and size

 Chart2 = PieChart[{10, 5, 22, 63},ImageSize -> Large, 
 ChartLabels -> Placed[{Rotate[Style["Gold (10%)", Red, 20], 45 Degree], 
 Rotate["Silver (5%)", -30 Degree], 
 Rotate["Currency (22%)", 30 Degree], "Demand Deposits (63%)"}, "RadialCenter"],
   BaseStyle -> {FontSize -> 20}]

Mathematica graphics

$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.