1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
\name{pie3D}
\alias{pie3D}
\title{Display a 3D pie chart}
\description{
Displays a 3D pie chart with optional labels.
}
\usage{
pie3D(x,edges=NA,radius=1,height=0.1,theta=pi/6,start=0,border=par("fg"),
col=NULL,labels=NULL,labelpos=NULL,labelcol=par("fg"),labelcex=1.5,
sector.order=NULL,explode=0,shade=0.8,mar=c(4,4,4,4),pty="s",...)
}
\arguments{
\item{x}{a numeric vector for which each value will be a sector}
\item{edges}{the number of lines forming an ellipse}
\item{radius}{the radius of the pie in user units}
\item{height}{the height of the pie in user units}
\item{theta}{The angle of viewing in radians}
\item{start}{The angle at which to start drawing sectors.}
\item{border}{The color of the sector border lines}
\item{col}{The colors of the sectors}
\item{labels}{Optional labels for each sector}
\item{labelpos}{Optional positions for the labels (see examples)}
\item{labelcol}{The color of the labels}
\item{labelcex}{The character expansion factor for the labels}
\item{sector.order}{Allows the operator to specify the order in
which the sectors are drawn.}
\item{explode}{The amount to "explode" the pie in user units}
\item{shade}{If > 0 and < 1, the proportion to reduce the
brightness of the sector color to get a better 3D effect.}
\item{mar}{Margins around the pie.}
\item{pty}{Whether to force a square plot region or not. (see Details)}
\item{...}{graphical parameters passed to \samp{plot}}
}
\value{
The bisecting angle of the sectors in radians.
}
\details{
\samp{pie3D} scales the values in \samp{x} so that they total 2*pi,
dropping zeros and NAs. It then displays an empty plot, calculates
the sequence for drawing the sectors and calls \samp{draw.tilted.sector}
to draw each sector. If labels are supplied, it will call \samp{pie3D.label}
to place these outside each sector. If supplied, the number of labels, label
positions and sector colors must be at least equal to the number of values
in \samp{x}. If the labels are long, it may help to reduce the radius of
the pie or change the position as in the example below.
In order to make the dimensions of the pie reasonably accurate, a square plot
region (\samp{pty="s"}) is the default. If \samp{pty} is set to "m", the user
can change the margins, usually resulting in a non-square plot area. This will
probably distort the pie somewhat.
}
\note{
Due to the somewhat primitive method used to draw sectors, a sector that
extends beyond both pi/2 and 3*pi/2 radians in either direction may not
display properly. Setting \samp{start} to pi/2 will often fix this, but
the user may have to adjust \samp{start} and the order of sectors in extreme
cases. The argument \samp{sector.order} allows the user to specify a vector
of integers that will override the calculation of the order in which the
sectors are drawn. This is usually necessary when a very large sector that
extends past 3*pi/2 is overlapped by a smaller sector next to it. As a last
resort, the user can try setting \samp{explode} to zero. This only draws
the top and outer sides of each sector.
Also due to the sector drawing method, setting \samp{theta} to values smaller
than about pi/8 or larger than about pi/4 will produce obviously misaligned
sectors.
Contributed fixes and improvements:
thanks to Jesse Brown for the "shade" fix and Qinghua Zhao for alerting me to
the problem with labels and margins
}
\author{Jim Lemon}
\seealso{\link{pie3D.labels}, \link{draw.tilted.sector}}
\examples{
pieval<-c(2,4,6,8)
pielabels<-
c("We hate\n pies","We oppose\n pies","We don't\n care","We just love pies")
# grab the radial positions of the labels
lp<-pie3D(pieval,radius=0.9,labels=pielabels,explode=0.1,main="3D PIE OPINIONS")
# lengthen the last label and move it to the left
pielabels[4]<-"We cannot survive without our pies"
lp[4]<-4.8
# specify some new colors
pie3D(pieval,radius=0.9,labels=pielabels,explode=0.1,main="3D PIE OPINIONS",
col=c("brown","#ddaa00","pink","#dd00dd"),labelpos=lp)
}
\keyword{misc}
|
