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
|
\name{floating.pie}
\alias{floating.pie}
\title{Display a floating pie chart}
\description{
Displays a pie chart at an arbitrary position on an existing plot
}
\usage{
floating.pie(xpos=0,ypos=0,x,edges=200,radius=1,col=NULL,startpos=0,
shadow=FALSE,shadow.col=c("#ffffff","#cccccc"),explode=0,...)
}
\arguments{
\item{xpos,ypos}{x and y position of the center of the pie chart}
\item{x}{a numeric vector for which each value will be a sector}
\item{edges}{the number of lines forming a circle}
\item{radius}{the radius of the pie in user units}
\item{col}{the colors of the sectors - defaults to \samp{rainbow}}
\item{startpos}{The starting position for drawing sectors in radians.}
\item{shadow}{Logical - whether to draw a shadow}
\item{shadow.col}{Colors to use for a shadow.}
\item{explode}{How much to "explode" one or more of the sectors.}
\item{...}{graphical parameters passed to \samp{polygon}}
}
\details{
\samp{floating.pie} displays a pie chart with an optional shadow on an
existing plot (see \samp{polygon.shadow}). \samp{floating.pie} now accepts
NAs or zeros in \samp{x}, but simply ignores them.
\samp{floating.pie} can be useful when multiple pie charts are placed on a
plot overlaying something else, like a map.
}
\value{
The bisecting angle of the sectors in radians. Useful for placing
text labels for each sector. If any values in \samp{x} were zero or NA,
no angle is returned for that value. This means that the user must adjust
the labels accordingly if \samp{pie.labels} is called.
If \samp{floating.pie} is called with no graphics device, it will try to
open one with the appropriate dimensions.
If \samp{pie.labels} is called, ensure that the center of the pie chart
and any \samp{explode} values are the same.
}
\note{
As with most pie charts, simplicity is essential. Trying to display a
complicated breakdown of data rarely succeeds.
}
\author{Jim Lemon}
\seealso{\link{pie.labels}, \link{boxed.labels}, \link{polygon.shadow}}
\examples{
plot(1:5,type="n",main="Floating Pie test",xlab="",ylab="",axes=FALSE)
box()
polygon(c(0,0,5.5,5.5),c(0,3,3,0),border="#44aaff",col="#44aaff")
floating.pie(1.7,3,c(2,4,4,2,8),radius=0.5,
col=c("#ff0000","#80ff00","#00ffff","#44bbff","#8000ff"))
floating.pie(3.1,3,c(1,4,5,2,8),radius=0.5,
col=c("#ff0000","#80ff00","#00ffff","#44bbff","#8000ff"))
floating.pie(4,1.5,c(3,4,6,7),radius=0.5,
col=c("#ff0066","#00cc88","#44bbff","#8000ff"))
draw.circle(3.9,2.1,radius=0.04,col="white")
draw.circle(3.9,2.1,radius=0.04,col="white")
draw.circle(3.9,2.1,radius=0.04,col="white")
draw.circle(4,2.3,radius=0.04,col="white")
draw.circle(4.07,2.55,radius=0.04,col="white")
draw.circle(4.03,2.85,radius=0.04,col="white")
text(c(1.7,3.1,4),c(3.7,3.7,3.7),c("Pass","Pass","Fail"))
plot(0,xlim=c(-1.5,1.5),ylim=c(-1.5,1.5),type="n",axes=FALSE,
main="Floating pie with minor explosions",xlab="",ylab="")
floating.pie(x=1:5,explode=c(0,0.1,0,0.2,0))
}
\keyword{misc}
|
