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
, and
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")