Re: when draw the piechart,how to write the label outside
- To: mathgroup at smc.vnet.net
- Subject: [mg72963] Re: [mg72932] when draw the piechart,how to write the label outside
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Fri, 26 Jan 2007 07:38:41 -0500 (EST)
- Reply-to: hanlonr at cox.net
Needs["Graphics`"];
angle[data_?VectorQ,n_Integer?Positive]:=
(2Total[Take[data,n-1]]+data[[n]])Pi/Total[data];
data={.2,.3,.1};
pieLabels={"First","Second","Third"};
PieChart[data,PieLabels->None,Epilog->{Table[
Text[pieLabels[[n]],1.2{Cos[#],Sin[#]}&[angle[data,n]]],
{n,Length[data]}]}];
Bob Hanlon
---- birch2002 <birch2002 at gmail.com> wrote:
> if i use PieLabels, the words will be inside of the pie,but when the
> pie is cut into very small one,the word hardly be written inside the
> pie,so how to write the words outside the pie,which function can do
> that,thank you.
>