2
$\begingroup$

In the following PieChart encoding, 

 bf16 = {100.164, 67.070, 45.159, 39.689, 26.189, 187.33, 18.358, 
         18.151, 11.701, 10.931, 9.164, 8.183, 6.320, 3.193, 3.034, 2.717, 
         2.613, 2.549, 2.510, 2.062, 1.701, 1.346, 1.251, 988, 804, 705, 
         639, 617, 561, 36};

 dbf16 = {
    {"Remboursement et dégrèvements"}, {"Enseignement scolaire"}, 
    {"Engagements financiers de l'État"}, {"Défense"}, 
    {"Recherche et enseignement supérieur"}, {"Sécurités"}, 
    {"Sécurité, insertion et égalité des chances"}, 
    {"Égalité des territoires, logement et ville"}, {"Travail et emploi"}, 
    {"Gestion des finances publiques et des ressoures humaines"}, 
    {"Écologie, développement et mobilités durables"}, {"Justice"}, 
    {"Régimes sociaux et retraites"}, {"Action extérieure de l'État"},  
    {"Relations avec les collectivités territoriales"}, 
    {"Agriculture, pêche, alimentation, forêt et affaires rurales"},
    {"Anciens combattants, mémoire et liens avec la Nation"}, 
    {"Administration générale et territoriale de l'État"}, 
    {"Aide publique au développement"}, {"Outre-mer"}, {"Économie"},
    {"Direction de l'action du gouvernement"}, {"Santé"}, {"Pouvoirs publics"}, 
    {"Immigration, asile et intégration"}, {"Politique des territoires"}, 
    {"Conseil et contrôle de l'État"}, {"Sport, jeunesse et vie associative"}, 
    {"Médias, livre et industries culturelles"}, {"Culture"}
};

 l := Array[{#} &, 30];

 Grid[{
  {PieChart[bf16, ChartStyle -> "Pastel", ChartLabels -> Placed[Range[30], "RadialCallout"], 
            SectorOrigin -> {Automatic, 0}], 
  Text[Grid[l, Alignment -> {Left, Top}]], 
  Text[Grid[dbf16, Alignment -> {Left, Bottom}]]}
 }]

I have two main problems:

  1. the pie doesn't start where it should (24 should be 1),
  2. the numbers in the grid are not aligned with the texts.

I have two secondary problems:

  1. the size of the pie --- or the size of the text,
  2. the overcrowding of the labels --- but it is an already asked question

Last but not mandatory:

  1. when clicking on a part, it would be nice that the number and the text be highlighted

Thanks.

Improve this question
$\endgroup$
6
  • $\begingroup$ About label crowding, for reference: (9045) $\endgroup$
    – user31159
    Aug 28, 2016 at 8:38
  • $\begingroup$ About #1, looking at your values, it seems that the numbers are displayed correctly. About #2 and #3, see this and this. $\endgroup$
    – user31159
    Aug 28, 2016 at 9:15
  • $\begingroup$ Sorry Xavier, the main part in the french budget --- 100.164 --- is "Remboursement et dégrèvements that is 1 not 24 $\endgroup$
    – cyrille.piatecki
    Aug 28, 2016 at 9:18
  • $\begingroup$ "Pouvoirs publics" has value 988 in bf16 which is greater than 100.164. Unless you meant 100164? $\endgroup$
    – user31159
    Aug 28, 2016 at 9:20
  • $\begingroup$ Sorry, have a look at file:///C:/Users/cyrille.piatecki/Downloads/%E2%80%A2%20Budget%20de%20l'%C3%89tat%20fran%C3%A7ais%202016%20_%20Statistique.htm. I think the they forget a point and I have been one more time too fast $\endgroup$
    – cyrille.piatecki
    Aug 28, 2016 at 10:10

1 Answer 1

Reset to default
6
$\begingroup$

For 1: This is incorrect, you have labelled your values incorrectly, Mathematica uses the US convention of a . for the decimal.

bf16 = {100.164, 67.070, 45.159, 39.689, 26.189, 18.733, 18.358, 
    18.151, 11.701, 10.931, 9.164, 8.183, 6.320, 3.193, 3.034, 2.717, 
    2.613, 2.549, 2.510, 2.062, 1.701, 1.346, 
    1.251, .988, .804, .705, .639, .617, .561, .036}*1000;

For 2: You Shouldn't separate your elements so:

dbf16=Flatten[dbf16];
l=Range[30];

See Grid code for rest:

For 3: Use ImageSize->

Grid[{{PieChart[bf16, ChartStyle -> "Pastel", 
    ChartLabels -> Placed[Range[30], "RadialCallout"], 
    SectorOrigin -> {Automatic, 0}, ImageSize -> Medium], 
   Text[Grid[Transpose[{l, dbf16}], Alignment -> {Left}]]}}]

You have an answer for 4, if you still feel it's necessary.

enter image description here

Improve this answer
$\endgroup$
5
  • 1
    $\begingroup$ There is a typo in OP's list, element #6 should be 18.733. $\endgroup$
    – user31159
    Aug 28, 2016 at 11:38
  • $\begingroup$ @Xavier So noted. I hope you don't mind I collated the comments in an answer, since it didn't seem forthcoming. $\endgroup$
    – Feyre
    Aug 28, 2016 at 11:40
  • $\begingroup$ All is fine. Thank you both. Has any one an answer for 5 ? There is a little added point. When clicking on a part, from 17 to 20 the number become unreadable due to the poor size of the margin in the figure. How to augment it ? $\endgroup$
    – cyrille.piatecki
    Aug 28, 2016 at 18:22
  • 1
    $\begingroup$ Good answer. (Although I feel the best way to improve a pie chart is not to use them in the first place. But I know that's a very hard sell.) My only suggestion is to use blanks for some of the overlapping labels: l[[{14, 16, 17, 18, 19, 21, 22, 23, 24, 25, 26, 27, 28, 29}]] = " "; Grid[{{PieChart[bf16, ChartStyle -> "Pastel", ChartLabels -> Placed[l, "RadialCallout"], SectorOrigin -> {Automatic, 0}, ImageSize -> Medium], Text[Grid[Transpose[{Range[30], dbf16}], Alignment -> {Left}]]}}]. That's essentially what's done for axis tick labels. $\endgroup$
    – JimB
    Aug 28, 2016 at 21:06
  • 2
    $\begingroup$ Pie charts exist to placate people who care little about objectivity or readable data but want a nice graph to look at, like business people, or economists. $\endgroup$
    – Feyre
    Aug 29, 2016 at 7:05

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

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