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 54 55 56 57 58 59 60 61
|
\name{plot.divchain}
\alias{plot.divchain}
\title{
Plot a dividing chain.
}
\description{
Plot the dividing chain of a Dirchlet tesselation.
The tessellation must have been created from a set of points
having associated categorical \dQuote{weights}. The dividing
chain consists of those edges of Dirichlet tiles which separate
points having different values of the given weights.
}
\usage{
\method{plot}{divchain}(x, add = FALSE, ...)
}
\arguments{
\item{x}{
An object of class \dQuote{divchain}. See \code{\link{divchain.deldir}()}
for details.
}
\item{add}{
Logical scalar. It \code{add=TRUE} the plot of the dividing chain
is added to an existing plot.
}
\item{\dots}{
Graphical parameters such as \code{main}, \code{xlab}, \code{col.main},
\code{col.lab}. In particular if \code{bty} is supplied
(as a value other than \code{n}) a \dQuote{box} will be drawn
around the plot that is formed when \code{add=FALSE}.
Also a non-standard graphical parameter \code{boxcol} may be supplied
which will be taken to be the colour with which the box is drawn.
If a \code{col} argument is supplied, this determines the colour
for plotting the segments constituting the dividing chain.
}
}
\value{
None.
}
\author{
Rolf Turner
\email{r.turner@auckland.ac.nz}
% \url{https://www.stat.auckland.ac.nz/~rolf}
}
\note{
This function was created in response to a question asked
on \code{stackoverflow.com} by a user named \dQuote{Dan}.
}
\seealso{
\code{\link{divchain}()} \code{\link{divchain.default}()}
\code{\link{divchain.deldir}()} \code{\link{deldir}()}
}
\examples{
set.seed(42)
x <- runif(50)
y <- runif(50)
z <- factor(kmeans(cbind(x,y),centers=4)$cluster)
dc <- divchain(x,y,z,rw=c(0,1,0,1))
plot(dc,lwd=2,col="blue",bty="o")
}
\keyword{ spatial }
|