| Title: | Functions for Plotting Graphical Shapes, Colors |
|---|---|
| Description: | Functions for plotting graphical shapes such as ellipses, circles, cylinders, arrows, ... |
| Authors: | Karline Soetaert <[email protected]> |
| Maintainer: | Karline Soetaert <[email protected]> |
| License: | GPL (>= 3) |
| Version: | 1.4.6.1 |
| Built: | 2024-10-31 20:26:25 UTC |
| Source: | https://github.com/cran/shape |
Functions for plotting graphical shapes such as ellipses, circles, cylinders, arrows, ...
Support for the book "A practical guide to ecological modelling - using R as a simulation platform" by Karline Soetaert and Peter M.J. Herman (2009). Springer.
| Package: | shape |
| Type: | Package |
| Version: | 1.3.4 |
| Date: | 2011-07-30 |
| License: | GNU Public License 3 or above |
This package is used in R-package ecolMod, which includes many more examples.
See also R-package diagram.
Changes in version 1.3.4: more consistent drawing of ellipse and circle segments, (functions getellipse, getcircle), added textflag. (both suggested by Tom Wilson)
Karline Soetaert (Maintainer)
A4, writelabel, emptyplot,
drapecol, femmecol, intpalette,
shadepalette, colorlegend,
greycol, rotatexy, Arrowhead,
Arrows, cylindersegment,
filledcylinder, filledcircle,
filledellipse, filledmultigonal,
filledrectangle, filledshape,
getellipse, plotcircle,
plotellipse, roundrect, textflag.
## Not run: ## show examples (see respective help pages for details) example(rotatexy) example(filledshape) ## run demos demo("colorshapes") # creating colored shapes ## open the directory with source code of demos browseURL(paste(system.file(package="shape"), "/demo", sep="")) ## show package vignette vignette("shape") edit(vignette("shape")) browseURL(paste(system.file(package="shape"), "/doc", sep="")) ## End(Not run)## Not run: ## show examples (see respective help pages for details) example(rotatexy) example(filledshape) ## run demos demo("colorshapes") # creating colored shapes ## open the directory with source code of demos browseURL(paste(system.file(package="shape"), "/demo", sep="")) ## show package vignette vignette("shape") edit(vignette("shape")) browseURL(paste(system.file(package="shape"), "/doc", sep="")) ## End(Not run)
opens a graphics window, 8.5 inches wide, 11 inches high
A4 (...)A4 (...)
... |
arguments passed to R-function X11. |
Karline Soetaert <[email protected]>
adds one or more arrowheads to a plot; shape is either curved, a triangle, a circle or ellipse.
Arrowhead(x0, y0, angle = 0, arr.length = 0.4, arr.width = arr.length/2, arr.adj = 0.5, arr.type = "curved", lcol = "black", lty = 1, arr.col = lcol, arr.lwd = 2, npoint = 5, ...)Arrowhead(x0, y0, angle = 0, arr.length = 0.4, arr.width = arr.length/2, arr.adj = 0.5, arr.type = "curved", lcol = "black", lty = 1, arr.col = lcol, arr.lwd = 2, npoint = 5, ...)
x0 |
x-coordinates of points at which to draw arrowhead; either one value or a vector. |
y0 |
y-coordinates of points at which to draw arrowhead; either one value or a vector. |
angle |
angle of arrowhead (anti-clockwise, relative to x-axis), in degrees [0,360]; either one value or a vector. |
arr.length |
approximate length of arrowhead, in cm; either one value or a vector. |
arr.width |
approximate width of arrowhead, in cm; either one value or a vector. |
arr.adj |
0,0.5,1 specifying the adjustment of the arrowhead. |
arr.type |
type of arrowhead to draw, one of "curved", "triangle", "circle", "ellipse". |
lcol |
line color specifications; either one value or a vector. |
lty |
line type specifications; either one value or a vector. |
arr.col |
color of arrowhead; either one value or a vector. |
arr.lwd |
line width of arrowhead. |
npoint |
only if |
... |
arguments passed to the |
x0, y0, angle, arr.length, arr.width,
lcol, lty and arr.col can be a vector,
of the same length.
if arr.adj = 0.5, then the centre of the arrowhead is
at the point at which it is drawn.
arr.adj = 1 causes the tip of the arrowhead to
touch the point.
arr.adj = 0 causes the base of the arrowhead to
touch the point.
The type of the arrowhead is set with arr.type which can take
the values:
"triangle": uses filled triangle
"curved" : draws arrowhead with curved edges
"circle" : draws circular head (where arr.width=arr.length)
"ellipse" : draws ellipsoid head
Karline Soetaert <[email protected]>
emptyplot(main = "Arrowhead") Arrowhead(x0 = runif(10), y0 = runif(10), angle = runif(10)*360, arr.length = 0.3, arr.type = "circle", arr.col = "green") Arrowhead(x0 = runif(10), y0 = runif(10), angle = runif(10)*360, arr.length = 0.4, arr.type = "curved", arr.col = "red") Arrowhead(x0 = runif(10), y0 = runif(10), angle = runif(10)*360, arr.length = runif(10), arr.type = "triangle", arr.col = rainbow(10))emptyplot(main = "Arrowhead") Arrowhead(x0 = runif(10), y0 = runif(10), angle = runif(10)*360, arr.length = 0.3, arr.type = "circle", arr.col = "green") Arrowhead(x0 = runif(10), y0 = runif(10), angle = runif(10)*360, arr.length = 0.4, arr.type = "curved", arr.col = "red") Arrowhead(x0 = runif(10), y0 = runif(10), angle = runif(10)*360, arr.length = runif(10), arr.type = "triangle", arr.col = rainbow(10))
adds one or more arrows to a plot; arrowhead shape is either curved, a triangle, a circle or simple
Arrows(x0, y0, x1, y1, code = 2, arr.length = 0.4, arr.width = arr.length/2, arr.adj = 0.5, arr.type = "curved", segment = TRUE, col = "black", lcol = col, lty = 1, arr.col = lcol, lwd = 1, arr.lwd = lwd, ...)Arrows(x0, y0, x1, y1, code = 2, arr.length = 0.4, arr.width = arr.length/2, arr.adj = 0.5, arr.type = "curved", segment = TRUE, col = "black", lcol = col, lty = 1, arr.col = lcol, lwd = 1, arr.lwd = lwd, ...)
x0 |
x-coordinates of points *from* which to draw arrows; either one value or a vector. |
y0 |
y-coordinates of points *from* which to draw arrows; either one value or a vector. |
x1 |
x-coordinates of points *to* which to draw arrows; either one value or a vector. |
y1 |
y-coordinates of points *to* which to draw arrows; either one value or a vector. |
code |
integer code determining kind of arrows to draw. |
arr.length |
approximate length of arrowhead, in cm; either one value or a vector. |
arr.width |
approximate width of arrowhead, in cm; either one value or a vector. |
arr.adj |
0,0.5,1 specifying the adjustment of the arrowhead. |
arr.type |
type of arrowhead to draw, one of "none", "simple", "curved", "triangle", "circle", "ellipse" or "T". |
segment |
logical specifying whether or not to draw line segments. |
col |
general line color specification; one value or a vector. |
lcol |
line color specifications; either one value or a vector.
ignored when arr.type = |
lty |
line type specifications; either one value or a vector. |
arr.col |
color of arrowhead; either one value or a vector. |
lwd |
general line width specification. The default value changed to 1 from version 1.4 (was 2) |
arr.lwd |
line width of arrowhead. |
... |
arguments passed to lines, segments or Arrowhead function. |
x0, y0, x1, y1, arr.length,
arr.width, arr.adj, lcol, lty and
arr.col can be a vector, of the same length.
For each 'i', an arrow is drawn between the point '(x0[i], y0[i])' and the point '(x1[i],y1[i])'.
If code=1 an arrowhead is drawn at '(x0[i],y0[i])'
if code=2 an arrowhead is drawn at '(x1[i],y1[i])'.
If code=3 an arrowhead is drawn at both ends of the arrow
unless arr.length = 0, when no head is drawn.
If arr.adj = 0.5 then the centre of the arrowhead is at
the point at which it is drawn.
arr.adj = 1 causes the tip of the arrowhead to touch
the point.
arr.adj = 2 causes the base of the arrowhead to touch
the point.
The type of the arrowhead is set with arr.type which can take
the values:
"simple" : uses comparable R function arrows
"triangle": uses filled triangle
"curved" : draws arrowhead with curved edges
"circle" : draws circular head
"ellipse" : draws ellepsoid head
"T" : draws T-shaped (blunt) head
Karline Soetaert <[email protected]>
arrows the comparable R function
xlim <- c(-5 , 5) ylim <- c(-10, 10) plot(0, type = "n", xlim = xlim, ylim = ylim, main = "Arrows, type = 'curved'") x0 <- runif(100, xlim[1], xlim[2]) y0 <- runif(100, ylim[1], ylim[2]) x1 <- x0+runif(100, -1, 1) y1 <- y0+runif(100, -1, 1) Arrows(x0, y0, x1, y1, arr.length = runif(100), code = 2, arr.type = "curved", arr.col = 1:100, lcol = 1:100) plot(0, type = "n", xlim = xlim, ylim = ylim, main = "Arrows, type = 'circle'") x0 <- runif(100, xlim[1], xlim[2]) y0 <- runif(100, ylim[1], ylim[2]) x1 <- x0 + runif(100, -1, 1) y1 <- y0 + runif(100, -1, 1) Arrows(x0, y0, x1, y1, arr.length = 0.2, code = 3, arr.type = "circle", arr.col = "grey") plot(0, type = "n", xlim = xlim, ylim = ylim, main = "Arrows, type = 'ellipse'") Arrows(x0, y0, x1, y1, arr.length = 0.2, arr.width = 0.5, code = 3, arr.type = "ellipse", arr.col = "grey") curve(expr = sin(x), 0, 2*pi+0.25, main = "Arrows") x <- seq(0, 2*pi, length.out = 10) xd <- x + 0.025 Arrows(x, sin(x), xd, sin(xd), type = "triangle", arr.length = 0.5, segment = FALSE) xx <- seq(0, 10*pi, length.out = 1000) plot(sin(xx)*xx, cos(xx)*xx, type = "l", axes = FALSE, xlab = "", ylab = "", main = "Arrows, type = 'curved'") x <- seq(0, 10*pi, length.out = 20) x1 <- sin(x)*x y1 <- cos(x)*x xd <- x+0.01 x2 <- sin(xd)*xd y2 <- cos(xd)*xd Arrows(x1, y1, x2, y2, arr.type = "curved", arr.length = 0.4, segment = FALSE, code = 1, arr.adj = 0.5 ) plot(sin(xx)*xx, cos(xx)*xx, type = "l", axes = FALSE, xlab = "", ylab = "", main = "Arrows, type = 'T'") Arrows(x1, y1, x2, y2, arr.type = "T", arr.length = 0.4, code = 1, arr.lwd = 2) # arguments passed to polygon: xlim <- c(-5 , 5) ylim <- c(-10, 10) plot(0, type = "n", xlim = xlim, ylim = ylim, main = "Arrows, type = 'curved'") x0 <- runif(100, xlim[1]-1, xlim[2]+0.5) # exceeds the x-range y0 <- runif(100, ylim[1], ylim[2]) x1 <- x0+runif(100, -1, 1) y1 <- y0+runif(100, -1, 1) Arrows(x0, y0, x1, y1, arr.length = runif(100), code = 2, arr.type = "curved", arr.col = 1:100, lcol = 1:100, xpd = TRUE)xlim <- c(-5 , 5) ylim <- c(-10, 10) plot(0, type = "n", xlim = xlim, ylim = ylim, main = "Arrows, type = 'curved'") x0 <- runif(100, xlim[1], xlim[2]) y0 <- runif(100, ylim[1], ylim[2]) x1 <- x0+runif(100, -1, 1) y1 <- y0+runif(100, -1, 1) Arrows(x0, y0, x1, y1, arr.length = runif(100), code = 2, arr.type = "curved", arr.col = 1:100, lcol = 1:100) plot(0, type = "n", xlim = xlim, ylim = ylim, main = "Arrows, type = 'circle'") x0 <- runif(100, xlim[1], xlim[2]) y0 <- runif(100, ylim[1], ylim[2]) x1 <- x0 + runif(100, -1, 1) y1 <- y0 + runif(100, -1, 1) Arrows(x0, y0, x1, y1, arr.length = 0.2, code = 3, arr.type = "circle", arr.col = "grey") plot(0, type = "n", xlim = xlim, ylim = ylim, main = "Arrows, type = 'ellipse'") Arrows(x0, y0, x1, y1, arr.length = 0.2, arr.width = 0.5, code = 3, arr.type = "ellipse", arr.col = "grey") curve(expr = sin(x), 0, 2*pi+0.25, main = "Arrows") x <- seq(0, 2*pi, length.out = 10) xd <- x + 0.025 Arrows(x, sin(x), xd, sin(xd), type = "triangle", arr.length = 0.5, segment = FALSE) xx <- seq(0, 10*pi, length.out = 1000) plot(sin(xx)*xx, cos(xx)*xx, type = "l", axes = FALSE, xlab = "", ylab = "", main = "Arrows, type = 'curved'") x <- seq(0, 10*pi, length.out = 20) x1 <- sin(x)*x y1 <- cos(x)*x xd <- x+0.01 x2 <- sin(xd)*xd y2 <- cos(xd)*xd Arrows(x1, y1, x2, y2, arr.type = "curved", arr.length = 0.4, segment = FALSE, code = 1, arr.adj = 0.5 ) plot(sin(xx)*xx, cos(xx)*xx, type = "l", axes = FALSE, xlab = "", ylab = "", main = "Arrows, type = 'T'") Arrows(x1, y1, x2, y2, arr.type = "T", arr.length = 0.4, code = 1, arr.lwd = 2) # arguments passed to polygon: xlim <- c(-5 , 5) ylim <- c(-10, 10) plot(0, type = "n", xlim = xlim, ylim = ylim, main = "Arrows, type = 'curved'") x0 <- runif(100, xlim[1]-1, xlim[2]+0.5) # exceeds the x-range y0 <- runif(100, ylim[1], ylim[2]) x1 <- x0+runif(100, -1, 1) y1 <- y0+runif(100, -1, 1) Arrows(x0, y0, x1, y1, arr.length = runif(100), code = 2, arr.type = "curved", arr.col = 1:100, lcol = 1:100, xpd = TRUE)
Adds a color legend to a plot.
colorlegend(col = femmecol(100), zlim, zlevels = 5, dz = NULL, zval = NULL, log = FALSE, posx = c(0.9, 0.93), posy = c(0.05, 0.9), main = NULL, main.cex = 1.0, main.col = "black", lab.col = "black", digit = 0, left = FALSE, ...)colorlegend(col = femmecol(100), zlim, zlevels = 5, dz = NULL, zval = NULL, log = FALSE, posx = c(0.9, 0.93), posy = c(0.05, 0.9), main = NULL, main.cex = 1.0, main.col = "black", lab.col = "black", digit = 0, left = FALSE, ...)
col |
color palette to be used; also allowed are two extremes or one value. |
zlim |
two-valued vector, the minimum and maximum z values. |
zlevels |
number of z-levels, one value, ignored if |
dz |
increment in legend values, one value; ignored if |
zval |
a vector of z-values to label legend. |
log |
logical indicating whether to log transform or not. |
posx |
relative position of left and right edge of color bar on first axis, [0,1]. |
posy |
relative position on lower and upper edge of colar bar on second axis, [0,1]. |
main |
main title, written above the color bar. |
main.cex |
relative size of main title. |
main.col |
color of main title. |
lab.col |
color of labels. |
digit |
number of significant digits in labels. |
left |
logical indicating whether to put the labels on the right
( |
... |
arguments passed to R-function text when writing labels. |
Karline Soetaert <[email protected]>
emptyplot(main = "colorlegend") colorlegend(zlim = c(0, 10)) colorlegend(posx = c(0.8, 0.83), col = greycol(100), zlim = c(0, 1), digit = 1) colorlegend(posx = c(0.7, 0.73), left = TRUE, col = rainbow(100), zlim = c(0, 10), digit = 1, dz = 2.5) colorlegend(posx = c(0.5, 0.53), col = intpalette(c("red", "yellow", "black"), 100), zlim = c(0, 20), zval = c(1, 3, 7, 15)) colorlegend(posy = c(0.0, 0.15), posx = c(0.2, 0.3), col = rainbow(100), zlim = c(0, 1), zlevels = NULL, main = "rainbow") colorlegend(posy = c(0.25, 0.4), posx = c(0.2, 0.3), zlim = c(0, 1), zlevels = NULL, main = "femmecol") colorlegend(posy = c(0.5, 0.65), posx = c(0.2, 0.3), col = terrain.colors(100), zlim = c(0, 1), zlevels = NULL, main = "terrain.colors") colorlegend(posy = c(0.75, 0.9), posx = c(0.2, 0.3), col = heat.colors(100), zlim = c(0, 1), zlevels = NULL, main = "heat.colors")emptyplot(main = "colorlegend") colorlegend(zlim = c(0, 10)) colorlegend(posx = c(0.8, 0.83), col = greycol(100), zlim = c(0, 1), digit = 1) colorlegend(posx = c(0.7, 0.73), left = TRUE, col = rainbow(100), zlim = c(0, 10), digit = 1, dz = 2.5) colorlegend(posx = c(0.5, 0.53), col = intpalette(c("red", "yellow", "black"), 100), zlim = c(0, 20), zval = c(1, 3, 7, 15)) colorlegend(posy = c(0.0, 0.15), posx = c(0.2, 0.3), col = rainbow(100), zlim = c(0, 1), zlevels = NULL, main = "rainbow") colorlegend(posy = c(0.25, 0.4), posx = c(0.2, 0.3), zlim = c(0, 1), zlevels = NULL, main = "femmecol") colorlegend(posy = c(0.5, 0.65), posx = c(0.2, 0.3), col = terrain.colors(100), zlim = c(0, 1), zlevels = NULL, main = "terrain.colors") colorlegend(posy = c(0.75, 0.9), posx = c(0.2, 0.3), col = heat.colors(100), zlim = c(0, 1), zlevels = NULL, main = "heat.colors")
adds a segment of a cylinder to a plot
cylindersegment(rx = 1, ry = rx, from = pi, to = 3*pi/2, len = 1, mid = c(0,0), angle = 0, dr = 0.01, col = "black", delt = 1.0, ...)cylindersegment(rx = 1, ry = rx, from = pi, to = 3*pi/2, len = 1, mid = c(0,0), angle = 0, dr = 0.01, col = "black", delt = 1.0, ...)
rx |
horizontal radius of full cylinder. |
ry |
vertical radius of full cylinder. |
from |
start radius of segment, radians. |
to |
end radius of segment, radians. |
len |
cylinder length. |
mid |
midpoint of cylinder. |
angle |
rotation angle, degrees. |
dr |
size of segments, in radians, to draw top/bottom ellipse (decrease for smoother). |
col |
color of slice. |
delt |
increase factor, from left to right. |
... |
arguments passed to polygon function. |
When angle = 0 (the default), the cylindersegment is parallel
to the x-axis.
rx and ry are the horizontal and vertical radiusses of
the bordering ellipses.
Here "horizontal" and "vertical" denote the position BEFORE rotation
if delt > 1, the width of the cylinder will increase from
left to right.
Karline Soetaert <[email protected]>
emptyplot(main = "cylindersegment") cylindersegment(mid = c(0.1, 0.5), rx = 0.1, ry = 0.1, from = pi, to = 3*pi/2, col = "blue", len = 0.5, delt = 1.1, lwd = 2, angle = 90) cylindersegment(mid = c(0.8, 0.5), rx = 0.1, ry = 0.1, from = 0, to = pi/2, col = "red", len = 0.5, delt = 1.0, lwd = 2, angle = 45) cylindersegment(mid = c(0.5, 0.5), rx = 0.1, ry = 0.1, from = pi/2, to = pi, col = "lightblue", len = 0.2, delt = 1.5, lwd = 2) for (i in seq(0.1, 0.9, 0.1)) cylindersegment(mid = c(i, 0.9), rx = 0.035, ry = 0.05, from = pi/2, to = 3*pi/2, col = "darkblue", len = 0.1, angle = 90)emptyplot(main = "cylindersegment") cylindersegment(mid = c(0.1, 0.5), rx = 0.1, ry = 0.1, from = pi, to = 3*pi/2, col = "blue", len = 0.5, delt = 1.1, lwd = 2, angle = 90) cylindersegment(mid = c(0.8, 0.5), rx = 0.1, ry = 0.1, from = 0, to = pi/2, col = "red", len = 0.5, delt = 1.0, lwd = 2, angle = 45) cylindersegment(mid = c(0.5, 0.5), rx = 0.1, ry = 0.1, from = pi/2, to = pi, col = "lightblue", len = 0.2, delt = 1.5, lwd = 2) for (i in seq(0.1, 0.9, 0.1)) cylindersegment(mid = c(i, 0.9), rx = 0.035, ry = 0.05, from = pi/2, to = 3*pi/2, col = "darkblue", len = 0.1, angle = 90)
generates color(s) that will appear on the surface facets of a "persp" plot.
drapecol(A, col = femmecol(100), NAcol = "white", lim = NULL)drapecol(A, col = femmecol(100), NAcol = "white", lim = NULL)
A |
matrix with input grid. |
col |
color palette. |
NAcol |
color of |
lim |
The limits of the data; if |
a vector of character strings giving the colors in hexadecimal format, one for each surface facet.
This function is inspired by a similar function in package fields,
unfortunately made unavailable in most recent version of fields
Karline Soetaert <[email protected]>
persp(volcano, theta = 135, phi = 30, col = drapecol(volcano), main = "drapecol") persp(volcano, theta = 135, phi = 30, col = drapecol(volcano), border = NA, main = "drapecol")persp(volcano, theta = 135, phi = 30, col = drapecol(volcano), main = "drapecol") persp(volcano, theta = 135, phi = 30, col = drapecol(volcano), border = NA, main = "drapecol")
Creates a plotting region, bounded by xlim and ylim; without axes, labels, titles, useful for plotting shapes.
emptyplot(xlim = c(0, 1), ylim = xlim, asp = 1, frame.plot = FALSE, col = NULL, ...)emptyplot(xlim = c(0, 1), ylim = xlim, asp = 1, frame.plot = FALSE, col = NULL, ...)
xlim |
the x limits (min,max) of the plot. |
ylim |
the y limits (min,max) of the plot. |
asp |
the y/x aspect ratio. |
frame.plot |
to toggle off drawing of a bounding box. |
col |
the background color. |
... |
arguments passed to R-function plot. |
Karline Soetaert <[email protected]>
Creates a vector of (n) contiguous colors (darkblue-blue-cyan-yellow-red-darkred).
femmecol(n = 100)femmecol(n = 100)
n |
number of colors. |
a vector of character strings giving the colors in hexadecimal format
Karline Soetaert <[email protected]>
rainbow, heat.colors,
topo.colors, the comparable R-functions.
filled.contour(volcano, color = femmecol, asp = 1, main = "femmecol") femmecol(10) image(matrix(nrow = 1, ncol = 100, data = 1:100), col = femmecol(100), main = "femmecol")filled.contour(volcano, color = femmecol, asp = 1, main = "femmecol") femmecol(10) image(matrix(nrow = 1, ncol = 100, data = 1:100), col = femmecol(100), main = "femmecol")
plots (part of) outer and inner circle and colors inbetween; color can be a palette.
filledcircle(r1 = 1, r2 = 0, mid = c(0,0), dr = 0.01, from = -pi, to = pi, col = femmecol(100), values = NULL, zlim = NULL, lwd = 2, lcol = NA, ...)filledcircle(r1 = 1, r2 = 0, mid = c(0,0), dr = 0.01, from = -pi, to = pi, col = femmecol(100), values = NULL, zlim = NULL, lwd = 2, lcol = NA, ...)
r1 |
radius of outer circle. |
r2 |
radius of inner circle. |
mid |
midpoint of circle. |
dr |
size of segments, in radians, to draw circle (decrease for smoother). |
from |
starting angle for circle segment, radians. |
to |
final angle for circle segment, radians. The segment is drawn counterclockwise. The default is to draw a full circle. |
col |
color palette to be used; also allowed are two extremes or one value. |
values |
if not |
zlim |
Only if |
lwd |
width of external line. |
lcol |
line color. |
... |
arguments passed to R-function polygon. |
see filledellipse for details
returns, as invisible a list containing "xyouter" and "xyinner", the points that define the outer and inner ellipse.
Karline Soetaert <[email protected]>
filledshape, filledcylinder,
filledellipse
color <-graycol(n = 50) dr <- 0.05 emptyplot(xlim = c(-2, 2), col = color[length(color)], main = "filledcircle") filledcircle(r1 = 1, mid = c(1, 1), dr = dr, col = shadepalette(endcol = "darkblue")) filledcircle(r1 = 1, mid = c(-1, -1), dr = dr, col = shadepalette(endcol = "darkred")) filledcircle(r1 = 1, r2 = 0.5, mid = c(0, 0), dr = dr, col = c(rev(color), color)) filledcircle(r1 = 1, mid = c(1, -1), dr = dr, col = intpalette(c("red", "blue", "orange"), 100)) filledcircle(mid = c(-1, 1)) emptyplot(main = "filledcircle") for (i in seq(0, 0.45, 0.05)) filledcircle(r1 = i+0.05, r2 = i, mid = c(0.5, 0.5), col = i*20)color <-graycol(n = 50) dr <- 0.05 emptyplot(xlim = c(-2, 2), col = color[length(color)], main = "filledcircle") filledcircle(r1 = 1, mid = c(1, 1), dr = dr, col = shadepalette(endcol = "darkblue")) filledcircle(r1 = 1, mid = c(-1, -1), dr = dr, col = shadepalette(endcol = "darkred")) filledcircle(r1 = 1, r2 = 0.5, mid = c(0, 0), dr = dr, col = c(rev(color), color)) filledcircle(r1 = 1, mid = c(1, -1), dr = dr, col = intpalette(c("red", "blue", "orange"), 100)) filledcircle(mid = c(-1, 1)) emptyplot(main = "filledcircle") for (i in seq(0, 0.45, 0.05)) filledcircle(r1 = i+0.05, r2 = i, mid = c(0.5, 0.5), col = i*20)
adds a rotated and colored cylinder to a plot; color can be a palette
filledcylinder(rx = 1, ry = rx, len = 1, col = femmecol(100), lcol = NA, lwd = 2, lcolint = NULL, ltyint = 1, lwdint = lwd, mid = c(0,0), angle = 0, delt = 1, dr = 0.01, topcol = NULL, botcol = NULL, ...)filledcylinder(rx = 1, ry = rx, len = 1, col = femmecol(100), lcol = NA, lwd = 2, lcolint = NULL, ltyint = 1, lwdint = lwd, mid = c(0,0), angle = 0, delt = 1, dr = 0.01, topcol = NULL, botcol = NULL, ...)
rx |
horizontal radius. |
ry |
vertical radius. |
len |
length. |
col |
color palette to be used; also allowed are two extremes or one value. |
lcol |
line color on external surface. |
lwd |
only if lcol!=NA, width of external line. |
lcolint |
only if lcol!=NA, line color on internal (hidden) surface. |
ltyint |
only if lcol!=NA, line type on internal (hidden) surface. |
lwdint |
only if dlcol!=NA, line width on internal (hidden) surface. |
mid |
midpoint of cylinder. |
angle |
rotation angle, degrees. |
delt |
increase factor, from left to right. |
dr |
size of segments, in radians, to draw top/bottom ellipse (decrease for smoother). |
topcol |
color (palette) of top (right) surface. |
botcol |
color (palette) of bottom (left) surface. |
... |
arguments passed to function filledellipse. |
When angle = 0 (the default), the cylinder is parallel to the x-axis
rx and ry are the horizontal and vertical radiusses of the
bordering ellipses.
Here "horizontal" and "vertical" denote the position BEFORE rotation
if delt > 1, the width of the cylinder will increase from left
to right.
Karline Soetaert <[email protected]>
emptyplot(c(-1.2, 1.2), c(-1, 1), main = "filledcylinder") col <- c(rev(greycol(n = 50)), greycol(n = 50)) col2 <- shadepalette("red", "blue", n = 50) col3 <- shadepalette("yellow", "black", n = 50) filledcylinder(rx = 0., ry = 0.2, len = 0.25, angle = 0, col = col, mid = c(-1, 0), topcol = col[25]) filledcylinder(rx = 0., ry = 0.2, angle = 90, col = col, mid = c(-0.5, 0), topcol = col[25]) filledcylinder(rx = 0.1, ry = 0.2, angle = 90, col = c(col2, rev(col2)), mid = c(0.45, 0), topcol = col2[25]) filledcylinder(rx = 0.05, ry = 0.2, angle = 90, col = c(col3, rev(col3)), mid = c(0.9, 0), topcol = col3[25]) filledcylinder(rx = 0.1, ry = 0.2, angle = 90, col = "white", lcol = "black", lcolint = "grey") emptyplot(c(-1, 1), c(-1, 1), main = "filledcylinder") col <- shadepalette("blue", "black", n = 50) col2 <- shadepalette("red", "black", n = 50) col3 <- shadepalette("yellow", "black", n = 50) filledcylinder(rx = 0.025, ry = 0.2, angle = 90, col = c(col2, rev(col2)), mid = c(-0.8, 0), topcol = col2[25], delt = -1, lcol = "black") filledcylinder(rx = 0.1, ry = 0.2, angle = 00, col = c(col, rev(col)), mid = c(0.0, 0.0), topcol = col, delt = -1.2, lcol = "black") filledcylinder(rx = 0.075, ry = 0.2, angle = 90, col = c(col3, rev(col3)), mid = c(0.8, 0), topcol = col3[25], delt = 0.0, lcol = "black")emptyplot(c(-1.2, 1.2), c(-1, 1), main = "filledcylinder") col <- c(rev(greycol(n = 50)), greycol(n = 50)) col2 <- shadepalette("red", "blue", n = 50) col3 <- shadepalette("yellow", "black", n = 50) filledcylinder(rx = 0., ry = 0.2, len = 0.25, angle = 0, col = col, mid = c(-1, 0), topcol = col[25]) filledcylinder(rx = 0., ry = 0.2, angle = 90, col = col, mid = c(-0.5, 0), topcol = col[25]) filledcylinder(rx = 0.1, ry = 0.2, angle = 90, col = c(col2, rev(col2)), mid = c(0.45, 0), topcol = col2[25]) filledcylinder(rx = 0.05, ry = 0.2, angle = 90, col = c(col3, rev(col3)), mid = c(0.9, 0), topcol = col3[25]) filledcylinder(rx = 0.1, ry = 0.2, angle = 90, col = "white", lcol = "black", lcolint = "grey") emptyplot(c(-1, 1), c(-1, 1), main = "filledcylinder") col <- shadepalette("blue", "black", n = 50) col2 <- shadepalette("red", "black", n = 50) col3 <- shadepalette("yellow", "black", n = 50) filledcylinder(rx = 0.025, ry = 0.2, angle = 90, col = c(col2, rev(col2)), mid = c(-0.8, 0), topcol = col2[25], delt = -1, lcol = "black") filledcylinder(rx = 0.1, ry = 0.2, angle = 00, col = c(col, rev(col)), mid = c(0.0, 0.0), topcol = col, delt = -1.2, lcol = "black") filledcylinder(rx = 0.075, ry = 0.2, angle = 90, col = c(col3, rev(col3)), mid = c(0.8, 0), topcol = col3[25], delt = 0.0, lcol = "black")
plots (part of) outer and inner ellipses and colors inbetween; color can be a palette
filledellipse(rx1 = 1, rx2 = 0, ry1 = rx1, ry2 = NULL, mid = c(0,0), dr = 0.01, angle = 0, from = -pi, to = pi, col = femmecol(100), values = NULL, zlim = NULL, lwd = 2, lcol = NA, ...)filledellipse(rx1 = 1, rx2 = 0, ry1 = rx1, ry2 = NULL, mid = c(0,0), dr = 0.01, angle = 0, from = -pi, to = pi, col = femmecol(100), values = NULL, zlim = NULL, lwd = 2, lcol = NA, ...)
rx1 |
horizontal radius of outer ellipse. |
rx2 |
horizontal radius of inner ellipse. |
ry1 |
vertical radius of outer ellipse. |
ry2 |
vertical radius of inner ellipse. |
mid |
midpoint of ellipse. |
dr |
size of segments, in radians, to draw ellipse (decrease for smoother). |
angle |
rotation angle, degrees. |
from |
starting angle for ellipse segment, radians. |
to |
final angle for ellipse segment, radians. The segment is drawn counterclockwise. The default is draw a full ellipse. |
col |
color palette to be used; also allowed are two extremes or one value. |
values |
if not |
zlim |
Only if |
lwd |
width of external line. |
lcol |
line color. |
... |
arguments passed to R-function polygon. |
draws (part of) an outer and inner ellipse, as specified by inner and outer radiusses:
rx1,ry1: horizontal and vertical radiusses of outer ellipse;
rx2,ry2: same for inner ellipse.
Here "horizontal" and "vertical" denote the position BEFORE rotation
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 rx2, the radius of the inner ellipse is 0, the ellipse is full.
returns, as invisible a list containing "xyouter" and "xyinner", the points that define the outer and inner ellipse.
Karline Soetaert <[email protected]>
color <- greycol(50) dr <- 0.05 emptyplot(xlim = c(-2, 2), ylim = c(-2, 2), col = color[length(color)], main = "filledellipse") filledellipse(rx1 = 1, mid = c(1, 1) , dr = dr, col = shadepalette(endcol = "darkblue")) filledellipse(rx1 = 1, ry1 = 0.5, mid = c(-1, -1), dr = dr, angle = 90, col = shadepalette(endcol = "darkred")) filledellipse(rx1 = 1, ry1 = 0.5, rx2 = 0.5, dr = dr, mid = c(0, 0), col = c(rev(color), color)) filledellipse(rx1 = 0.5, mid = c(1, -1), dr = dr, from = pi, to = 1.5*pi, col = rev(shadepalette(endcol = "black"))) filledellipse(mid = c(-1, 1)) emptyplot(xlim = c(-2, 2), ylim = c(-2, 2), main = "filledellipse") filledellipse(rx1 = 0.75, mid = c(-1, 1), col = greycol(100) , dr = dr, values = cbind (1:100, (1:100)^0.5)) filledellipse(rx1 = 0.75, mid = c(1, 1), col = greycol(100) , dr = dr, values = cbind (1:100, (1:100))) filledellipse(rx1 = 0.75, mid = c(-1, -1), col = greycol(100), dr = dr, values = cbind (1:100, (1:100)^2)) filledellipse(rx1 = 0.75, mid = c(1, -1), col = greycol(100) , dr = dr, values = cbind (1:100, (1:100)^5))color <- greycol(50) dr <- 0.05 emptyplot(xlim = c(-2, 2), ylim = c(-2, 2), col = color[length(color)], main = "filledellipse") filledellipse(rx1 = 1, mid = c(1, 1) , dr = dr, col = shadepalette(endcol = "darkblue")) filledellipse(rx1 = 1, ry1 = 0.5, mid = c(-1, -1), dr = dr, angle = 90, col = shadepalette(endcol = "darkred")) filledellipse(rx1 = 1, ry1 = 0.5, rx2 = 0.5, dr = dr, mid = c(0, 0), col = c(rev(color), color)) filledellipse(rx1 = 0.5, mid = c(1, -1), dr = dr, from = pi, to = 1.5*pi, col = rev(shadepalette(endcol = "black"))) filledellipse(mid = c(-1, 1)) emptyplot(xlim = c(-2, 2), ylim = c(-2, 2), main = "filledellipse") filledellipse(rx1 = 0.75, mid = c(-1, 1), col = greycol(100) , dr = dr, values = cbind (1:100, (1:100)^0.5)) filledellipse(rx1 = 0.75, mid = c(1, 1), col = greycol(100) , dr = dr, values = cbind (1:100, (1:100))) filledellipse(rx1 = 0.75, mid = c(-1, -1), col = greycol(100), dr = dr, values = cbind (1:100, (1:100)^2)) filledellipse(rx1 = 0.75, mid = c(1, -1), col = greycol(100) , dr = dr, values = cbind (1:100, (1:100)^5))
draws and colors a rotated shape with equal-sized vertices ; color can be a palette.
filledmultigonal(mid = c(0, 0), rx = 1, ry = rx, nr = 4, col = femmecol(100), values = NULL, zlim = NULL, lwd = 2, lcol = NA, angle = 0, ...)filledmultigonal(mid = c(0, 0), rx = 1, ry = rx, nr = 4, col = femmecol(100), values = NULL, zlim = NULL, lwd = 2, lcol = NA, angle = 0, ...)
mid |
midpoint of multigonal. |
rx |
horizontal radius. |
ry |
vertical radius. |
nr |
number of sides. |
col |
color palette to be used; also allowed are two extremes or one value. |
values |
if not |
zlim |
Only if |
lwd |
width of external line. |
lcol |
line color. |
angle |
angle of rotation, in degrees. |
... |
arguments passed to R-function polygon. |
Coloration proceeds from midpoint to external edge
rx,ry: horizontal and vertical radiusses of the shape.
Here "horizontal" and "vertical" denote the position BEFORE rotation
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.
returns, as invisible a list containing "xyouter" and "xyinner", the points that define the outer and inner ellipse.
Karline Soetaert <[email protected]>
filledrectangle, filledshape,
filledcylinder, filledellipse
emptyplot(c(-1, 1), main = "filledmultigonal") filledmultigonal(rx = 0.25, ry = 0.125, nr = 3, mid = c(-0.75, 0.75), angle = 45, col = shadepalette("red", "blue", n = 50)) filledmultigonal(rx = 0.125, ry = 0.25, nr = 3, mid = c(-0.25, 0.75), col = shadepalette("red", "yellow", n = 50)) filledmultigonal(rx = 0.25, ry = 0.25 , nr = 3, mid = c(0.25, 0.75), col = c("red", "orange")) filledmultigonal(rx = 0.25, ry = 0.25 , nr = 3, mid = c(0.75, 0.75), angle = 90, col = "red") filledmultigonal(rx = 0.25, ry = 0.25, nr = 4, mid = c(-0.75, 0.25), angle = 0, col = shadepalette("red", "blue", n = 50)) filledmultigonal(rx = 0.25, ry = 0.25, nr = 4, mid = c(-0.25, 0.25), angle = 45, col = shadepalette("red", "blue", n = 50)) filledmultigonal(rx = 0.25, ry = 0.125, nr = 4, mid = c(0.25, 0.25), angle = 0, col = shadepalette("red", "blue", n = 50)) filledmultigonal(rx = 0.25, ry = 0.125, nr = 4, mid = c(0.75, 0.25), angle = 45, col = shadepalette("red", "blue", n = 50)) filledmultigonal(rx = 0.25, ry = 0.25, nr = 5, mid = c(-0.75, -0.25), angle = 0, col = shadepalette("darkgreen", "lightgreen", n = 50)) filledmultigonal(rx = 0.25, angle = 0, nr = 5, mid = c(-0.25, -0.25), col = rainbow(50)) filledmultigonal(rx = 0.25, angle = 30, nr = 6, mid = c(0.25, -0.25), col = femmecol(50)) filledmultigonal(rx = 0.25, ry = 0.125, angle = 30, nr = 6, mid = c(0.75, -0.25), col = "black") filledmultigonal(rx = 0.25, col = "darkblue", nr = 7, mid = c(-0.75, -0.75)) filledmultigonal(rx = 0.25, col = "darkblue", nr = 9, mid = c(-0.25, -0.75)) filledmultigonal(rx = 0.25, col = "darkblue", nr = 3.7, mid = c(0.25, -0.75)) filledmultigonal(rx = 0.25, col = "darkblue", nr = 4.5, mid = c(0.75, -0.75))emptyplot(c(-1, 1), main = "filledmultigonal") filledmultigonal(rx = 0.25, ry = 0.125, nr = 3, mid = c(-0.75, 0.75), angle = 45, col = shadepalette("red", "blue", n = 50)) filledmultigonal(rx = 0.125, ry = 0.25, nr = 3, mid = c(-0.25, 0.75), col = shadepalette("red", "yellow", n = 50)) filledmultigonal(rx = 0.25, ry = 0.25 , nr = 3, mid = c(0.25, 0.75), col = c("red", "orange")) filledmultigonal(rx = 0.25, ry = 0.25 , nr = 3, mid = c(0.75, 0.75), angle = 90, col = "red") filledmultigonal(rx = 0.25, ry = 0.25, nr = 4, mid = c(-0.75, 0.25), angle = 0, col = shadepalette("red", "blue", n = 50)) filledmultigonal(rx = 0.25, ry = 0.25, nr = 4, mid = c(-0.25, 0.25), angle = 45, col = shadepalette("red", "blue", n = 50)) filledmultigonal(rx = 0.25, ry = 0.125, nr = 4, mid = c(0.25, 0.25), angle = 0, col = shadepalette("red", "blue", n = 50)) filledmultigonal(rx = 0.25, ry = 0.125, nr = 4, mid = c(0.75, 0.25), angle = 45, col = shadepalette("red", "blue", n = 50)) filledmultigonal(rx = 0.25, ry = 0.25, nr = 5, mid = c(-0.75, -0.25), angle = 0, col = shadepalette("darkgreen", "lightgreen", n = 50)) filledmultigonal(rx = 0.25, angle = 0, nr = 5, mid = c(-0.25, -0.25), col = rainbow(50)) filledmultigonal(rx = 0.25, angle = 30, nr = 6, mid = c(0.25, -0.25), col = femmecol(50)) filledmultigonal(rx = 0.25, ry = 0.125, angle = 30, nr = 6, mid = c(0.75, -0.25), col = "black") filledmultigonal(rx = 0.25, col = "darkblue", nr = 7, mid = c(-0.75, -0.75)) filledmultigonal(rx = 0.25, col = "darkblue", nr = 9, mid = c(-0.25, -0.75)) filledmultigonal(rx = 0.25, col = "darkblue", nr = 3.7, mid = c(0.25, -0.75)) filledmultigonal(rx = 0.25, col = "darkblue", nr = 4.5, mid = c(0.75, -0.75))
plots and colors a rotated rectangle; color can be a palette
filledrectangle(mid = c(0, 0), wx = 1, wy = wx, col = femmecol(100), values = NULL, zlim = NULL, lwd = 2, lcol = NA, angle = 0, ...)filledrectangle(mid = c(0, 0), wx = 1, wy = wx, col = femmecol(100), values = NULL, zlim = NULL, lwd = 2, lcol = NA, angle = 0, ...)
mid |
midpoint of rectangle. |
wx |
horizontal width. |
wy |
vertical width. |
col |
color palette to be used; also allowed are two extremes or one value. |
values |
if not |
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 |
lwd |
width of external line. |
lcol |
line color. |
angle |
angle of rotation, in degrees. |
... |
arguments passed to R-function polygon. |
If angle=0, coloration starts from top to bottom. This is different
from filledmultigonal,
where coloration proceeds from middle to external
wx,wy: horizontal and vertical width of the shape
Here "horizontal" and "vertical" denote the position BEFORE rotation
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.
Karline Soetaert <[email protected]>
filledmultigonal, filledshape,
filledcylinder, filledellipse
polygon, rect for corresponding R-functions.
color <- shadepalette(grey(0.3), "lightblue", n = 50) emptyplot(main = "filledrectangle") filledrectangle(wx = 0.5, wy = 0.5, col = color, mid = c(0.5, 0.5), angle = 0) filledrectangle(wx = 0.25, wy = 0.25, col = "darkblue", mid = c(0.5, 0.5), angle = 45) filledrectangle(wx = 0.125, wy = 0.125, col = c("lightblue","blue"), mid = c(0.5, 0.5), angle = 90) color <- shadepalette(grey(0.3), "blue", n = 50) emptyplot(c(-1, 1), main = "filledrectangle") filledrectangle(wx = 0.5, wy = 0.5, col = color, mid = c(0, 0), angle = 0) filledrectangle(wx = 0.5, wy = 0.5, col = color, mid = c(0.5, 0.5), angle = 90) filledrectangle(wx = 0.5, wy = 0.5, col = color, mid = c(-0.5, -0.5), angle = -90) filledrectangle(wx = 0.5, wy = 0.5, col = color, mid = c(0.5, -0.5), angle = 180) filledrectangle(wx = 0.5, wy = 0.5, col = color, mid = c(-0.5, 0.5), angle = 270)color <- shadepalette(grey(0.3), "lightblue", n = 50) emptyplot(main = "filledrectangle") filledrectangle(wx = 0.5, wy = 0.5, col = color, mid = c(0.5, 0.5), angle = 0) filledrectangle(wx = 0.25, wy = 0.25, col = "darkblue", mid = c(0.5, 0.5), angle = 45) filledrectangle(wx = 0.125, wy = 0.125, col = c("lightblue","blue"), mid = c(0.5, 0.5), angle = 90) color <- shadepalette(grey(0.3), "blue", n = 50) emptyplot(c(-1, 1), main = "filledrectangle") filledrectangle(wx = 0.5, wy = 0.5, col = color, mid = c(0, 0), angle = 0) filledrectangle(wx = 0.5, wy = 0.5, col = color, mid = c(0.5, 0.5), angle = 90) filledrectangle(wx = 0.5, wy = 0.5, col = color, mid = c(-0.5, -0.5), angle = -90) filledrectangle(wx = 0.5, wy = 0.5, col = color, mid = c(0.5, -0.5), angle = 180) filledrectangle(wx = 0.5, wy = 0.5, col = color, mid = c(-0.5, 0.5), angle = 270)
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, ...)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 |
col |
color palette to be used; also allowed are two extremes. |
values |
if not |
zlim |
Only if |
lcol |
line color. |
lwd |
width of external line, only if |
... |
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 <[email protected]>
#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(ncol = 2, runif(100)), col = "darkblue")#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(ncol = 2, runif(100)), col = "darkblue")
calculates x-y values for (part of) an ellipse; the ellipse can be rotated
getellipse(rx = 1, ry = rx, mid = c(0, 0), dr = 0.01, angle = 0, from = -pi, to = pi)getellipse(rx = 1, ry = rx, mid = c(0, 0), dr = 0.01, angle = 0, from = -pi, to = pi)
rx |
long radius of ellipse. |
ry |
short radius of ellipse. |
mid |
midpoint of ellipse. |
dr |
size of segments, in radians, to specify ellipse (decrease for smoother). |
angle |
rotation angle, degrees. |
from |
starting angle for ellipse segment, radians. |
to |
final angle for ellipse segment, radians. The segment is generated counterclockwise. The default is draw a full ellipse. |
rx and ry are the horizontal and vertical radiusses of the
ellipses.
points from and to are joined counterclockwise. (this has changed
since version 1.3.4).
a 2-column matrix with x-y values of the ellipse
Karline Soetaert <[email protected]>
plot(getellipse(1, from = 0, to = pi/2), type = "l", col = "red", lwd = 2, main = "getellipse") lines(getellipse(0.5, 0.25, mid = c(0.5, 0.5)), type = "l", col = "blue", lwd = 2) lines(getellipse(0.5, 0.25, mid = c(0.5, 0.5), angle = 45), type = "l", col = "green", lwd = 2) lines(getellipse(0.2, 0.2, mid = c(0.5, 0.5), from = 0, to = pi/2), type = "l", col = "orange", lwd = 2) lines(getellipse(0.2, 0.2, mid = c(0.5, 0.5), from = pi/2, to = 0), type = "l", col = "black", lwd = 2) lines(getellipse(0.1, 0.1, mid = c(0.75, 0.5), from = -pi/2, to = pi/2), type = "l", col = "black", lwd = 2) emptyplot(main = "getellipse") col <- femmecol(90) for (i in seq(0, 180, by = 2)) lines(getellipse(0.5, 0.25, mid = c(0.5, 0.5), angle = i), type = "l", col = col[(i/2)+1], lwd = 2)plot(getellipse(1, from = 0, to = pi/2), type = "l", col = "red", lwd = 2, main = "getellipse") lines(getellipse(0.5, 0.25, mid = c(0.5, 0.5)), type = "l", col = "blue", lwd = 2) lines(getellipse(0.5, 0.25, mid = c(0.5, 0.5), angle = 45), type = "l", col = "green", lwd = 2) lines(getellipse(0.2, 0.2, mid = c(0.5, 0.5), from = 0, to = pi/2), type = "l", col = "orange", lwd = 2) lines(getellipse(0.2, 0.2, mid = c(0.5, 0.5), from = pi/2, to = 0), type = "l", col = "black", lwd = 2) lines(getellipse(0.1, 0.1, mid = c(0.75, 0.5), from = -pi/2, to = pi/2), type = "l", col = "black", lwd = 2) emptyplot(main = "getellipse") col <- femmecol(90) for (i in seq(0, 180, by = 2)) lines(getellipse(0.5, 0.25, mid = c(0.5, 0.5), angle = i), type = "l", col = col[(i/2)+1], lwd = 2)
Creates a vector of (n) contiguous colors from white/grey to black
greycol(n = 100, interval = c(0.0, 0.7))greycol(n = 100, interval = c(0.0, 0.7))
n |
number of colors. |
interval |
interval *to* where to interpolate. |
greycol is an alias of graycol
a vector of character strings giving the colors in hexadecimal format.
Karline Soetaert <[email protected]>
rainbow, heat.colors,
topo.colors, femmecol
filled.contour(volcano, color = graycol, asp = 1, main = "greycol,graycol") graycol(10) image(matrix(nrow = 1, ncol = 100, data = 1:100), col = graycol(100), main = "greycol,graycol")filled.contour(volcano, color = graycol, asp = 1, main = "greycol,graycol") graycol(10) image(matrix(nrow = 1, ncol = 100, data = 1:100), col = graycol(100), main = "greycol,graycol")
Returns color(s) that are a linear interpolation of a given set of colors.
intpalette(inputcol, numcol = length(x.to), x.from = NULL, x.to = NULL)intpalette(inputcol, numcol = length(x.to), x.from = NULL, x.to = NULL)
inputcol |
initial colors, *from* where to interpolate. |
numcol |
number of colors to interpolate *to*. |
x.from |
x-values *from* where to interpolate. |
x.to |
x-values where to interpolate *to*. |
Return value is a vector of *colors* in hexadecimal format.
This is different from colorRamp(R function),
that returns a *function*
a vector of character strings giving the interpolated colors in hexadecimal format
Karline Soetaert <[email protected]>
greycol, femmecol, shadepalette,
colorRamp for comparable R function
intpalette(c("white", "black"), n = 10) grey(seq(1, 0, length.out = 10)) image(matrix(nrow = 1,ncol = 100, data = 1:100), col = intpalette(c("red", "blue"), numcol = 100), main = "intpalette") image(matrix(nrow = 1, ncol = 100, data = 1:100), col = intpalette(c("red", "blue", "yellow"), numcol = 100), main = "intpalette")intpalette(c("white", "black"), n = 10) grey(seq(1, 0, length.out = 10)) image(matrix(nrow = 1,ncol = 100, data = 1:100), col = intpalette(c("red", "blue"), numcol = 100), main = "intpalette") image(matrix(nrow = 1, ncol = 100, data = 1:100), col = intpalette(c("red", "blue", "yellow"), numcol = 100), main = "intpalette")
adds (part of) a colored circle to a plot; an arrow can be drawn at a specified position
plotcircle(r = 1, ...)plotcircle(r = 1, ...)
r |
radius of circle. |
... |
arguments passed to function plotellipse. |
plotcircle calls plotellipse, making sure that the figure
drawn effectively looks like a circle.
For graphs that have both axes of equal size, the circle will be equal
to the ellipse with equal rx and ry. See second example
see plotellipse for details
Karline Soetaert <[email protected]>
plotellipse to draw ellipses
# symmetrical axes emptyplot(c(0, 1)) plotcircle(mid = c(0.5, 0.5), r = 0.25, from = 0, to = 3*pi/2, arrow = TRUE, arr.pos = 0.5, col = "red") # symmetrical plotellipse(mid = c(0.5, 0.5), rx = 0.2, ry = 0.2, arrow = TRUE, arr.pos = 0.5, col = "blue") #non-symmetrical axes emptyplot(c(0, 1), c(0, 2), main = "plotcircle", asp = FALSE) plotcircle(mid = c(0.5, 0.5), r = 0.25, from = 0, to = 3*pi/2, arrow = TRUE, arr.pos = 0.5, col = "red") plotellipse(mid = c(0.5, 0.5), rx = 0.25, ry = 0.25, arrow = TRUE, arr.pos = 0.5, col = "blue")# symmetrical axes emptyplot(c(0, 1)) plotcircle(mid = c(0.5, 0.5), r = 0.25, from = 0, to = 3*pi/2, arrow = TRUE, arr.pos = 0.5, col = "red") # symmetrical plotellipse(mid = c(0.5, 0.5), rx = 0.2, ry = 0.2, arrow = TRUE, arr.pos = 0.5, col = "blue") #non-symmetrical axes emptyplot(c(0, 1), c(0, 2), main = "plotcircle", asp = FALSE) plotcircle(mid = c(0.5, 0.5), r = 0.25, from = 0, to = 3*pi/2, arrow = TRUE, arr.pos = 0.5, col = "red") plotellipse(mid = c(0.5, 0.5), rx = 0.25, ry = 0.25, arrow = TRUE, arr.pos = 0.5, col = "blue")
adds (part of) a colored, and rotated ellipse to a plot; an arrow can be drawn at a specified position.
plotellipse(rx = 1, ry = 0.2, mid = c(0,0), dr = 0.01, angle = 0, from = -pi, to = pi, type = "l", lwd = 2, lcol = "black", col = NULL, arrow = FALSE, arr.length = 0.4, arr.width = arr.length*0.5, arr.type = "curved", arr.pos = 1, arr.code = 2, arr.adj = 0.5, arr.col = "black", ...)plotellipse(rx = 1, ry = 0.2, mid = c(0,0), dr = 0.01, angle = 0, from = -pi, to = pi, type = "l", lwd = 2, lcol = "black", col = NULL, arrow = FALSE, arr.length = 0.4, arr.width = arr.length*0.5, arr.type = "curved", arr.pos = 1, arr.code = 2, arr.adj = 0.5, arr.col = "black", ...)
rx |
long radius of ellipse. |
ry |
short radius of ellipse. |
mid |
midpoint of ellipse. |
dr |
size of segments, in radians, to draw ellipse (decrease for smoother). |
angle |
rotation angle, degrees. |
from |
starting angle for ellipse segment, radians. |
to |
final angle for ellipse segment, radians. |
type |
external line or points; "n" if no line. |
lwd |
width of external line. |
lcol |
line color. |
col |
fill color. |
arrow |
drawing arrowhead yes/no. |
arr.length |
length of arrowhead. |
arr.width |
width of arrowhead. |
arr.type |
type of arrow. |
arr.pos |
position of arrow, 0=start,1=end. |
arr.code |
integer code determining kind of arrows to draw. |
arr.adj |
adjustment of arrow. |
arr.col |
color of arrow head. |
... |
arguments passed to R-function lines. |
rx and ry are the horizontal and vertical radiusses of the
ellipses.
The ellipse is drawn from the point defined by from to the point defined
as to which are joined anti-clockwise.
if arrow is TRUE, an arrow is drawn along the path of the
ellipse.
arr.length and arr.width set the size of the arrow.
The type of the arrowhead is set with arr.type which can take
the values:
"simple" : uses comparable R function arrows.
"triangle": uses filled triangle.
"curved" : draws arrowhead with curved edges.
"circle" : draws circular head.
arr.pos, a real value between 0 and 1 gives the position
(0=start,1=end).
arr.col specifies the color, arr.code specifies where the
angle points to.
arr.adj specifies the position adjustment - see Arrows
for details.
Karline Soetaert <[email protected]>
getellipse, filledellipse,
plotcircle.
emptyplot(c(-1, 1), main = "plotellipse") plotellipse(rx = 0.8, ry = 0.3, angle = 60, col = "blue") plotellipse(rx = 1.0, ry = 0.6, angle = 0, from = pi, to = 2*pi, arrow = TRUE, arr.pos = seq(0.1, 0.5, by = 0.1), arr.col = rainbow(5)) plotellipse(rx = 1.0, ry = 0.6, angle = 30, from = pi, to = 1.2*pi, col = "red") plotellipse(rx = 0.1, ry = 0.6, from = 1.5*pi, to = pi, lcol = "orange", mid = c(0.2,0.2)) plotellipse(rx = 0.1, ry = 0.6, angle = 30, from = 1.5*pi, to = pi, lcol = "orange", mid = c(0.2,0.2))emptyplot(c(-1, 1), main = "plotellipse") plotellipse(rx = 0.8, ry = 0.3, angle = 60, col = "blue") plotellipse(rx = 1.0, ry = 0.6, angle = 0, from = pi, to = 2*pi, arrow = TRUE, arr.pos = seq(0.1, 0.5, by = 0.1), arr.col = rainbow(5)) plotellipse(rx = 1.0, ry = 0.6, angle = 30, from = pi, to = 1.2*pi, col = "red") plotellipse(rx = 0.1, ry = 0.6, from = 1.5*pi, to = pi, lcol = "orange", mid = c(0.2,0.2)) plotellipse(rx = 0.1, ry = 0.6, angle = 30, from = 1.5*pi, to = pi, lcol = "orange", mid = c(0.2,0.2))
rotates xy values around a midpoint; xy is either a 2-columned matrix or a 2-valued vector
rotatexy(xy, angle, mid = colMeans(xy), asp = FALSE)rotatexy(xy, angle, mid = colMeans(xy), asp = FALSE)
xy |
matrix with 2 columns, or a 2-valued vector to be rotated. |
angle |
angle of rotation, in degrees. |
mid |
rotation point, default=centroid. |
asp |
if true: aspect ratio is kept. |
a 2-column matrix with rotated values
Karline Soetaert <[email protected]>
x <- seq(0, 2*pi, pi/100) y <- sin(x) cols <- intpalette(c("blue", "green", "yellow", "red"), n = 500) cols <- c(cols,rev(cols)) plot(x, y, type = "l", ylim = c(-3, 3), main = "rotatexy", col = cols[1], lwd = 2) for (i in 2:1000) lines(rotatexy( cbind(x, y), angle = 0.18*i), col = cols[i], lwd = 2) cols <- femmecol(1000) plot(x, y, xlim = c(-1, 1), ylim = c(-1, 1), main = "rotatexy", col = cols[1], type = "n") for (i in 2:1000) { xy <- rotatexy(c(0, 1), angle = 0.36*i, mid = c(0,0)) points(xy[1], xy[2], col = cols[i], pch = ".", cex = 2) }x <- seq(0, 2*pi, pi/100) y <- sin(x) cols <- intpalette(c("blue", "green", "yellow", "red"), n = 500) cols <- c(cols,rev(cols)) plot(x, y, type = "l", ylim = c(-3, 3), main = "rotatexy", col = cols[1], lwd = 2) for (i in 2:1000) lines(rotatexy( cbind(x, y), angle = 0.18*i), col = cols[i], lwd = 2) cols <- femmecol(1000) plot(x, y, xlim = c(-1, 1), ylim = c(-1, 1), main = "rotatexy", col = cols[1], type = "n") for (i in 2:1000) { xy <- rotatexy(c(0, 1), angle = 0.36*i, mid = c(0,0)) points(xy[1], xy[2], col = cols[i], pch = ".", cex = 2) }
adds a rectangular box with rounded left and right edges to a plot
roundrect(mid, radx, rady, rx = rady, dr = 0.01, col = "white", lcol = "black", lwd = 2, angle = 0, ...)roundrect(mid, radx, rady, rx = rady, dr = 0.01, col = "white", lcol = "black", lwd = 2, angle = 0, ...)
mid |
midpoint (x,y) of the box. |
radx |
horizontal radius of the box. |
rady |
vertical radius of the box. |
rx |
radius of rounded part. |
dr |
size of segments, in radians, to draw the rounded line (decrease for smoother). |
col |
fill color of the box. |
lcol |
line color surrounding box. |
lwd |
line width of line surrounding the box. |
angle |
rotation angle, degrees. |
... |
arguments passed to function filledshape. |
radx and rady are the horizontal and vertical radiusses of
the box; rx is the horizontal radius of the rounded part.
Here horizontal and vertical denote the position BEFORE
rotation.
Karline Soetaert <[email protected]>
emptyplot(c(-0.1, 1.1), main = "roundrect") for (i in 1:10) roundrect(mid = runif(2), col = i, radx = 0.1, rady = 0.05) for (i in 1:5) roundrect(mid = runif(2), col = greycol(20), radx = 0.05, rady = 0.05, angle = runif(1)*360)emptyplot(c(-0.1, 1.1), main = "roundrect") for (i in 1:10) roundrect(mid = runif(2), col = i, radx = 0.1, rady = 0.05) for (i in 1:5) roundrect(mid = runif(2), col = greycol(20), radx = 0.05, rady = 0.05, angle = runif(1)*360)
Returns color(s) that are a linear interpolation between two colors
these colors are suitable for shading shapes
shadepalette(n = 100, endcol = "red", inicol = "white", interval = c(0.0, 1.0))shadepalette(n = 100, endcol = "red", inicol = "white", interval = c(0.0, 1.0))
n |
number of colors. |
endcol |
final color. |
inicol |
initial color. |
interval |
interval *to* where to interpolate. |
a vector of character strings giving the interpolated colors in hexadecimal format
Karline Soetaert <[email protected]>
intpalette, grey, femmecol
colorRamp for comparable R functions.
shadepalette(n = 10, "white", "black") image(matrix(nrow = 1, ncol = 100, data = 1:100), col = shadepalette(100, "red", "blue"), main = "shadepalette")shadepalette(n = 10, "white", "black") image(matrix(nrow = 1, ncol = 100, data = 1:100), col = shadepalette(100, "red", "blue"), main = "shadepalette")
adds a rectangular box with rounded left and right edges to a plot
textflag(mid, radx, rady, rx = rady, dr = 0.01, col = femmecol(100), lcol = "white", bcol = lcol, lwd = 2, angle = 0, lab = NULL, leftright = TRUE, tcol = NULL, ...)textflag(mid, radx, rady, rx = rady, dr = 0.01, col = femmecol(100), lcol = "white", bcol = lcol, lwd = 2, angle = 0, lab = NULL, leftright = TRUE, tcol = NULL, ...)
mid |
midpoint (x,y) of the box. |
radx |
horizontal radius of the box. |
rady |
vertical radius of the box. |
rx |
radius of rounded part. |
dr |
size of segments, in radians, to draw the rounded line (decrease for smoother). |
col |
fill color of the box; the box will be filled from left to right. |
lcol |
line color surrounding box. |
bcol |
line color to remove the ellipse from the rectangular box. |
tcol |
text color. |
lwd |
line width of line surrounding the box. |
angle |
rotation angle, degrees. |
lab |
one label or a vector string of labels to be added in box. |
leftright |
if |
... |
other arguments passed to function text. |
radx and rady are the horizontal and vertical radiusses of
the box; rx is the horizontal radius of the rounded part.
Here horizontal and vertical denote the position BEFORE
rotation.
This function is similar to function roundrect, except that coloring is from left to right.
Karline Soetaert <[email protected]>
emptyplot() textflag(mid = c(0.5, 0.5), radx = 0.5, rady = 0.1, lcol = "white", lab = "hello", cex = 5, font = 2:3) textflag(mid = c(0.5, 0.15), radx = 0.5, rady = 0.1, rx = 0.3,lcol = "black", lab = "hello 2", cex = 4, font = 2, angle = 20, tcol = "darkblue") textflag(mid = c(0.5, 0.85), radx = 0.5, rady = 0.1, rx = 0.03, lcol = "white", lab = "hello 3", cex = 4, font = 2, leftright = FALSE)emptyplot() textflag(mid = c(0.5, 0.5), radx = 0.5, rady = 0.1, lcol = "white", lab = "hello", cex = 5, font = 2:3) textflag(mid = c(0.5, 0.15), radx = 0.5, rady = 0.1, rx = 0.3,lcol = "black", lab = "hello 2", cex = 4, font = 2, angle = 20, tcol = "darkblue") textflag(mid = c(0.5, 0.85), radx = 0.5, rady = 0.1, rx = 0.03, lcol = "white", lab = "hello 3", cex = 4, font = 2, leftright = FALSE)
adds one-character label on left-upper margin, next to a plot
writelabel(text = NULL, nr = 1, at = -0.1, line = 1, cex = 1.5, ...)writelabel(text = NULL, nr = 1, at = -0.1, line = 1, cex = 1.5, ...)
text |
text to write. |
nr |
integer; if text = NULL: nr is converted to uppercase letter. |
at |
relative distance of label position, from left margin of plot region. |
line |
line above the plot region of label position. |
cex |
relative size of label. |
... |
arguments passed to R-function mtext. |
Karline Soetaert <[email protected]>
plot(runif(2), main = "writelabel") writelabel("A") writelabel("B", at = 0) writelabel("C", at = 1)plot(runif(2), main = "writelabel") writelabel("A") writelabel("B", at = 0) writelabel("C", at = 1)