Title: | Add Continuous Legends to Plots |
---|---|
Description: | Annotate plots with legends for continuous variables and colour spectra using the base graphics plotting tools; and manipulate irregular polygons. |
Authors: | Martin R. Smith [aut, cre, cph] |
Maintainer: | Martin R. Smith <[email protected]> |
License: | GPL (>= 2) |
Version: | 0.3.1.9000 |
Built: | 2024-11-04 10:17:33 UTC |
Source: | https://github.com/ms609/plottools |
Convert R colour to hexadecimal representation.
Col2Hex(col, alpha = FALSE)
Col2Hex(col, alpha = FALSE)
col |
vector of any of the three kinds of R color specifications,
i.e., either a color name (as listed by |
alpha |
logical value indicating whether the alpha channel (opacity) values should be returned. |
Martin R. Smith ([email protected])
Col2Hex(1:3) Col2Hex(c("peachpuff", "blue"), TRUE)
Col2Hex(1:3) Col2Hex(c("peachpuff", "blue"), TRUE)
Geometry functions for irregular polygons.
PolygonArea(x, y = NULL, positive = TRUE) PolygonCentre(x, y = NULL) PolygonCenter(x, y = NULL) GrowPolygon(x, y = NULL, buffer = 0)
PolygonArea(x, y = NULL, positive = TRUE) PolygonCentre(x, y = NULL) PolygonCenter(x, y = NULL) GrowPolygon(x, y = NULL, buffer = 0)
x , y
|
Vectors containing the coordinates of the vertices of the polygon. |
positive |
If vertices are specified in an anticlockwise direction,
the polygon will be treated as a hole, with a negative area, unless
|
buffer |
Numeric specifying distance by which to grow polygon. |
PolygonArea()
returns the area of the specified polygon.
PolygonCentre()
returns a single-row matrix containing the
x and y coordinates of the geometric centre of the polygon.
GrowPolygon()
returns coordinates of the vertices of polygon
after moving each vertex buffer
away from the polygon's centre.
PolygonArea()
: Calculate the area of an irregular polygon
PolygonCentre()
: Locate the centre of a polygon
GrowPolygon()
: Enlarge a polygon in all directions
Martin R. Smith ([email protected])
x <- c(-3, -1, 6, 3, -4) y <- c(-2, 4, 1, 10, 9) plot(x, y, frame.plot = FALSE) polygon(x, y) PolygonArea(x, y) points(PolygonCentre(x, y), pch = 3, cex = 2) polygon(GrowPolygon(x, y, 1), border = "darkgreen", xpd = NA # Allow drawing beyond plot border ) # Negative values shrink the polygon polygon(GrowPolygon(x, y, -1), border = "red")
x <- c(-3, -1, 6, 3, -4) y <- c(-2, 4, 1, 10, 9) plot(x, y, frame.plot = FALSE) polygon(x, y) PolygonArea(x, y) points(PolygonCentre(x, y), pch = 3, cex = 2) polygon(GrowPolygon(x, y, 1), border = "darkgreen", xpd = NA # Allow drawing beyond plot border ) # Negative values shrink the polygon polygon(GrowPolygon(x, y, -1), border = "red")
Prints an annotated vertical bar coloured according to a continuous palette.
SpectrumLegend( x = "topright", ..., palette, legend, lty = 1, lwd = 4, bty = "o", adj = if (horiz) c(0.5, 0.5) else c(0, 0.5), horiz = FALSE, lend = "butt", cex = 1, seg.len = 1 ) SizeLegend( x = "topright", ..., legend = character(0), width = c(0, 1), palette = par("col"), scale = c("pch", "lwd"), lty = 0, lwd = 4, bty = "o", adj = if (horiz) c(0.5, 0.5) else c(0, 0.5), horiz = FALSE, lend = "butt", cex = 1, seg.len )
SpectrumLegend( x = "topright", ..., palette, legend, lty = 1, lwd = 4, bty = "o", adj = if (horiz) c(0.5, 0.5) else c(0, 0.5), horiz = FALSE, lend = "butt", cex = 1, seg.len = 1 ) SizeLegend( x = "topright", ..., legend = character(0), width = c(0, 1), palette = par("col"), scale = c("pch", "lwd"), lty = 0, lwd = 4, bty = "o", adj = if (horiz) c(0.5, 0.5) else c(0, 0.5), horiz = FALSE, lend = "butt", cex = 1, seg.len )
x , horiz , adj , seg.len , ...
|
Additional parameters to |
palette |
Colour palette to depict.
Specify either a vector of colours, or a function such that |
legend |
Character vector with which to label points on |
lwd , lty , lend
|
Additional parameters to |
bty |
Character specifying the type of box to be drawn around the
legend. The allowed values are |
cex |
Character expansion factor relative to current |
width |
Vector of length two specifying width of legend bar at base and top. |
scale |
Character string specifying whether |
col |
Colour used for the width bar. |
This convenience function is not yet very customizable; do file a GitHub issue if you would value additional functionality.
Note that the bg
parameter to specify the background colour for the legend
box is not presently supported in vertical legends.
For use in vertical legends, open a GitHub issue.
A list, returned invisibly, with components:
rect
A list with components:
w
, h
: positive numbers giving width and height of the
legend's box.
left
, top
: x and y coordinates of the upper left corner of the
box.
text
: A list with components x
, y
, numeric vectors of length
length(legend)
, giving the x and y coordinates of the legend's text(s).
Martin R. Smith ([email protected])
plot(0:1, 0:1, type = "n", frame.plot = FALSE, xlab = "x", ylab = "y") SpectrumLegend("bottomright", legend = c("Bright", "Middle", "Dark"), palette = heat.colors(32L), lwd = 5, inset = 0.05, # Inset from plot margin title = "Brightness") SpectrumLegend("topright", horiz = TRUE, legend = seq(1, 9, by = 2), palette = 1:8) SizeLegend( "topleft", inset = 0.05, width = c(0, 2), title = "Width", legend = c("max", ".", ".", "min"), palette = topo.colors, # Associate with a colour scale y.intersp = 1.5 # Vertical space between labels (also moves title) ) SizeLegend( "bottomleft", horiz = TRUE, width = c(4, 1), legend = c("Thick", "Thin"), palette = "darkred", inset = 0.06 # Make space for the bar. # A future release may calculate this automatically )
plot(0:1, 0:1, type = "n", frame.plot = FALSE, xlab = "x", ylab = "y") SpectrumLegend("bottomright", legend = c("Bright", "Middle", "Dark"), palette = heat.colors(32L), lwd = 5, inset = 0.05, # Inset from plot margin title = "Brightness") SpectrumLegend("topright", horiz = TRUE, legend = seq(1, 9, by = 2), palette = 1:8) SizeLegend( "topleft", inset = 0.05, width = c(0, 2), title = "Width", legend = c("max", ".", ".", "min"), palette = topo.colors, # Associate with a colour scale y.intersp = 1.5 # Vertical space between labels (also moves title) ) SizeLegend( "bottomleft", horiz = TRUE, width = c(4, 1), legend = c("Thick", "Thin"), palette = "darkred", inset = 0.06 # Make space for the bar. # A future release may calculate this automatically )