Crthuky

There's a nice answer to a pie chart question over here. I tried to bend it to my needs but found some aspects difficult. Specifically:

• 
  

  I'd like to be able to manually adjust the labels.

  
  
  

  • Rather than adding the degree labels
    (newcommanddegre$^circ$, I assume), I just want to be able
    to write something in manually, like a year or date or note or the
    variable name for instance.

  
  

  • I'd liked to have the option of replacing the percentage labels with
    something else too, like the actual value shown in the legend
    perhaps.

  
  

  • And finally, the numbers aren't formatted nicely. For instance, the
    value 1236 should ideally be written as 1,236.

  
  

Is this kind of customization possible? There are various similar questions about other pie chart designs, but this design is a bit different to most I've seen. Anyway the current code is below.

PS: I kept getting lost in it, so to make reading a bit quicker and easier, I've set:
begindocument through enddocument in bold, and:
value list=149/A,1236/R+L+D,740/N+F,346/C,75/E in italics, so you can identify it at a glance.

documentclass[margin=5pt]article
usepackage[svgnames]xcolor
usepackagetikz,fourier,ifthen
usetikzlibrarycalc

newcommanddegre$^circ$

colorletcolor0blue!40
colorletcolor1orange!60
colorletcolor2DarkGreen!40
colorletcolor3yellow!60
colorletcolor4red!60
colorletcolor5blue!60!cyan!60
colorletcolor6cyan!60!yellow!60
colorletcolor7red!60!cyan!60
colorletcolor8red!60!blue!60
colorletcolor9orange!60!cyan!60


makeatletter
 tikzset%
 dc tag/.style=align=center,
 dc legend/.style=align=left,anchor=west,
 dc sector/.style=fill=Cj,line join=round
 

 pgfkeys/DiagCirc/.cd,
 % list of Name/Value
 value list/.store in=Value@list,
 % circular : 360 - semi circular 180
 angle max/.store in=Angle@max,
 angle max=360,
 % radius of the diagram
 radius/.store in=R@dius,
 radius=4cm,
 % composition of the legend
 % V value
 % N name
 % P percent
 % A angle
 % Cj color
 legend/.store in=L@gend,
 legend=,
 % location of the legend
 legend location/.store in=Legend@Loc,
 legend location=($(R@dius,R@dius)+(.5,-.5)$), 
 % poisition of the node in the sector
 % 0 center, 1 on the edge, 1.++ external
 factor/.store in=F@ctor,
 factor=.80,
 % composition of the node in the sector
 tags/.store in=T@gs,
 tags=,
 % correction of round errors in percents
 percent corr/.store in=C@rrP,
 percent corr=,
 % correction of round errors in angles
 angle corr/.store in=C@rrA,
 angle corr=,
 % individual shift
 shift sector/.store in=Shift@j,
 shift sector=,
 % more nodes in the sectors, or new legeng
 sup loop/.store in=Sup@Loop,
 sup loop=,
 % code of the diagram
 diagram/.code=%
 % Calculation of the sum
 pgfmathsetmacroS@m0
 foreach i/y in Value@list xdefS@mS@m+i 
 pgfmathsetmacroS@mS@m
 pgfmathsetmacroC@effAngle@max/S@m

 % beginning of the first sector
 xdef@ngleA0

 % main loop
 foreach V/N [count=j from 0] in Value@list %

 % calculation of the current angle
 pgfmathsetmacroAV*C@eff

 % superior limit of the sector
 pgfmathsetmacro@ngleB@ngleA+A ;

 % mean angle
 pgfmathsetmacroMedA(@ngleA+@ngleB)/2 ; 

 % color
 pgfmathtruncatemacro@kmod(j,10)
 defCjcolor@k

 % individual shift
 ifthenelseequalShift@j%
 edefSh@ft0%
 pgfmathparsearray(Shift@j,j)
 edefSh@ftpgfmathresult 
 

 % drawing of the sector
 draw[dc sector,shift=(MedA:Sh@ft)] (0,0)
 -- (@ngleA:R@dius) arc (@ngleA:@ngleB:R@dius)
 node[midway] (DCj) -- cycle ;

 % low limit of the next sector
 xdef@ngleA@ngleB ;

 % current percent correction
 pgfmathtruncatemacroPround(V/S@m*100)
 ifthenelseequalC@rrP%
 pgfmathparsearray(C@rrP,j)
 pgfmathtruncatemacroPP+pgfmathresult
 
 edefPP,%

 % current angle and corection
 pgfmathtruncatemacroAround(A)
 ifthenelseequalC@rrA%
 pgfmathparsearray(C@rrA,j)
 pgfmathtruncatemacroAA+pgfmathresult 
 edefAA,degre
 

 % the sector node
 ifthenelseequalT@gs%
 DiagNode[dc tag]F@ctor T@gs ;
 

 % the legend
 ifthenelseequalL@gend%
 beginscope[shift=Legend@Loc]
 draw[fill=Cj] (0,-.5*j)
 rectangle ++(.25,.25) ++(0,-.15)
 node[dc legend] strutL@gend ;
 endscope
 

 % some more stuff
 Sup@Loop ;
 

 % end of diagram code
 
makeatother

% Node on the j sector
newcommandDiagNode[2][]node[#1] at ($(0,0)!#2!(DCj)$)

begindocument

begintikzpicture
path[%
 % style options
 dc sector/.append style=shift=(MedA:5pt), % shift all sectors
 dc dtag/.append style=,
 dc legend/.append style=text width=2cm, align=right,
 every pin/.style=fill=Cj,draw=Cj!50!black,thick,
 % diagram options
 /DiagCirc/.cd,
 value list=149/A,1236/R+L+D,740/N+F,346/C,75/E,
 angle max=180, % semi-circular
 angle corr=0,1,0,0,0, % correct round angle error
 legend=N :hfill V, % custom legend
 factor=.9,
 percent corr=0,-1,0,0,0, % correct round percent error
 shift sector=0,0,.3,0,0, % shift individual sector
 tags=P, % custom sector nodes
 sup loop=% custom features : 
 %DiagNode1.1 N; % some other sector nodes
 % or something else
 defPin10,40,150,120,150
 pgfmathparsearray(Pin,j)
 edefPinjpgfmathresult
 node[pin=Pinj:A] at (DCj) ;
 ,
 diagram] ;

endtikzpicture
enddocument