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
|
\name{triax.fill}
\alias{triax.fill}
\title{Triangle plot fill}
\description{
Fill a triangle plot with smaller triangles.
}
\usage{
triax.fill(col)
}
\arguments{
\item{col}{List of colors (see Details).}
}
\details{
In order for \samp{triax.fill} to fill an existing plot that has
been created by a call to \samp{triax.plot}, the user must supply
a list of fill colors. The first element of the list must begin with
at least one value that can be interpreted as a color. The second
element must begin with at least three such values, and so on, adding
two values for each element of the list. Each list element will be
displayed as a row of colored triangles starting at the top of the
plot. The number of elements in the list determines the number of
rows that will be displayed.
}
\value{nil}
\author{Jim Lemon}
\seealso{\link{triax.plot},\link{color.scale}}
\examples{
# the data will be something like response at different proportions
fillval<-list(0,c(0,0.1,0),c(0,0.1,0.2,0.1,0),
c(0,0.1,0.2,0.3,0.2,0.1,0),c(0,0.1,0.2,0.3,0.4,0.3,0.2,0.1,0),
c(0,0.1,0.2,0.3,0.4,0.5,0.4,0.3,0.2,0.1,0),
c(0,0,0.1,0.2,0.3,0.4,0.5,0.4,0.3,0.2,0.1,0,0),
c(0,0,0,0.1,0.1,0.2,0.3,0.4,0.3,0.2,0.1,0.1,0,0,0))
# use some method of converting values to colors
fillcol<-sapply(fillval,function(x) {x*10+1} )
oldpar<-triax.plot(main="Test of triax.fill function")
triax.fill(fillcol)
par(oldpar)
}
\keyword{misc}
|