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
|
# display a pie chart at an arbitrary location on an existing plot
floating.pie<-function(xpos,ypos,x,edges=200,radius=1,col=NULL,
startpos=0,shadow=FALSE,...) {
if (!is.numeric(x) || any(is.na(x) | x<=0))
stop("floating.pie: x values must be positive.")
x<-c(0,cumsum(x)/sum(x))
dx <- diff(x)
nx <- length(dx)
if (is.null(col)) col<-rainbow(nx)
else if(length(col) < nx) col<-rep(col,nx)
# scale the y radius
xylim<-par("usr")
plotdim<-par("pin")
yradius<-radius*(xylim[4]-xylim[3])/(xylim[2]-xylim[1])*plotdim[1]/plotdim[2]
# get the center values in radians
bc<-2*pi*(x[1:nx]+dx/2)+startpos
if(shadow) {
xc<-c(cos(seq(0,2*pi,length=edges))*radius+xpos)
yc<-c(sin(seq(0,2*pi,length=edges))*yradius+ypos)
polygon.shadow(xc,yc)
}
for(i in 1:nx) {
n<-max(2,floor(edges*dx[i]))
t2p<-2*pi*seq(x[i],x[i + 1],length=n)+startpos
xc<-c(cos(t2p)*radius+xpos,xpos)
yc<-c(sin(t2p)*yradius+ypos,ypos)
polygon(xc,yc,col=col[i],...)
t2p<-2*pi*mean(x[i+0:1])+startpos
xc<-cos(t2p)*radius
yc<-sin(t2p)*radius
}
invisible(bc)
}
# place text labels at the specified distance from x,y on the radial lines
# specified by angles.
pie.labels<-function(x,y,angles,labels,radius=1,bg="white",border=TRUE,...) {
if(nargs()<4)
stop("Usage: pie.labels(x,y,angles,labels,radius=1,bg=\"white\",border=TRUE,...)")
# turn off clipping
par(xpd=TRUE)
# scale the y radius
xylim<-par("usr")
plotdim<-par("pin")
yradius<-radius*(xylim[4]-xylim[3])/(xylim[2]-xylim[1])*plotdim[1]/plotdim[2]
xc<-cos(angles)*radius+x
yc<-sin(angles)*yradius+y
boxed.labels(xc,yc,labels,bg=bg,border=border,...)
# turn clipping back on
par(xpd=FALSE)
}
|
