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.

$\endgroup$
  • $\begingroup$ About label crowding, for reference: (9045) $\endgroup$ – user31159 Aug 28 '16 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 '16 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 '16 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 '16 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 '16 at 10:10
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

$\endgroup$
  • 1
    $\begingroup$ There is a typo in OP's list, element #6 should be 18.733. $\endgroup$ – user31159 Aug 28 '16 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 '16 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 '16 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 '16 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 '16 at 7:05

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.