filledshape {shape} | R Documentation |
plots outer and inner shape and colors inbetween; color can be a palette
filledshape(xyouter, xyinner=colMeans(xyouter), col=femmecol(100),values=NULL, zlim=NULL,lcol=NA,lwd=2, ...)
xyouter |
2-column matrix with x,y values of outer shape |
xyinner |
2-column matrix of 2-valued vector with x,y values of inner shape; default is centroid of xyouter |
col |
color palette to be used; also allowed are two extremes |
values |
if not null, a matrix providing (radius,z-values) couples, used for coloring. |
zlim |
Only if values is not NULL: the minimum and maximum z values for which colors should be plotted, defaulting to the range of the finite values of the second column of *values*. |
lcol |
line color |
lwd |
width of external line, only if lcol!=NA |
... |
arguments passed to R-function "polygon" |
draws and outer and inner shape, as specified in xyouter, xyinner and fills with a palette of colors inbetween;
values: if not null, a matrix providing (radius,z-values) couples, used for coloring. Here radius are positive values denoting the relative distance between the shapes centre and edge. The radiusses are rescaled to be in [0,1] if needed. z-values (2nd column of *values*) together with zlim and col denote the coloration level. Colors in *col* will be interpolated to the z-values and used to color an interval as given by the input radiusses.
If xyinner is a point, the shape is full
Karline Soetaert <k.soetaert@nioo.knaw.nl>
#an egg color <-greycol(100) emptyplot(c(-3.2,3.2),col=color[length(color)],main="filledshape") b<-4 a<-9 x <- seq(-sqrt(a),sqrt(a),by=0.01) g <- b-b/a*x^2-0.2*b*x+0.2*b/a*x^3 g[g<0] <- 0 x1 <-c(x,rev(x)) g1 <-c(sqrt(g),rev(-sqrt(g))) xouter <-cbind(x1,g1) xouter <-rbind(xouter,xouter[1,]) filledshape(xouter,xyinner=c(-1,0),col=color) # a mill color <-shadepalette(grey(0.3),"yellow",n=50) emptyplot(c(-3.3,3.3),col=color[length(color)],main="filledshape") x <- seq(0,0.8*pi,pi/100) y <- sin(x) xouter <- cbind(x,y) for (i in seq(0,360,60)) xouter <- rbind(xouter,rotatexy(cbind(x,y),mid=c(0,0),angle = i)) filledshape(xouter,c(0,0),col=color) # abstract art emptyplot(col="darkgrey",main="filledshape") filledshape(matrix(nc=2,runif(100)),col="darkblue")