| Line 45... |
Line 45... |
| 45 |
through 9, 0) then the lowercase and uppercase letters.
|
45 |
through 9, 0) then the lowercase and uppercase letters.
|
| 46 |
%%__FIXME__ Which of the following is still true; what's the "right" UI ?
|
46 |
%%__FIXME__ Which of the following is still true; what's the "right" UI ?
|
| 47 |
% To mix special plotting symbols (those specified by integers) and
|
47 |
% To mix special plotting symbols (those specified by integers) and
|
| 48 |
% plotting characters, either use character escapes \code{pch = "Xe002"}
|
48 |
% plotting characters, either use character escapes \code{pch = "Xe002"}
|
| 49 |
% or figure out the numeric equivalent of the ASCII character,
|
49 |
% or figure out the numeric equivalent of the ASCII character,
|
| 50 |
% \code{pch=c(88,2)}.
|
50 |
% \code{pch = c(88, 2)}.
|
| 51 |
}
|
51 |
}
|
| 52 |
\item{col}{vector of colors. Colors are used cyclically.}
|
52 |
\item{col}{vector of colors. Colors are used cyclically.}
|
| 53 |
\item{cex}{vector of character expansion sizes, used cyclically.
|
53 |
\item{cex}{vector of character expansion sizes, used cyclically.
|
| 54 |
This works as a multiple of \code{\link{par}("cex")}. \code{NULL} is
|
54 |
This works as a multiple of \code{\link{par}("cex")}. \code{NULL} is
|
| 55 |
equivalent to \code{1.0}. }
|
55 |
equivalent to \code{1.0}. }
|
| Line 136... |
Line 136... |
| 136 |
nam.spec <- as.character(iris[1+50*0:2, "Species"])
|
136 |
nam.spec <- as.character(iris[1+50*0:2, "Species"])
|
| 137 |
iris.S <- array(NA, dim = c(50,4,3),
|
137 |
iris.S <- array(NA, dim = c(50,4,3),
|
| 138 |
dimnames = list(NULL, nam.var, nam.spec))
|
138 |
dimnames = list(NULL, nam.var, nam.spec))
|
| 139 |
for(i in 1:3) iris.S[,,i] <- data.matrix(iris[1:50+50*(i-1), -5])
|
139 |
for(i in 1:3) iris.S[,,i] <- data.matrix(iris[1:50+50*(i-1), -5])
|
| 140 |
|
140 |
|
| 141 |
matplot(iris.S[,"Petal.Length",], iris.S[,"Petal.Width",], pch = "SCV",
|
141 |
matplot(iris.S[, "Petal.Length",], iris.S[, "Petal.Width",], pch = "SCV",
|
| 142 |
col = rainbow(3, start = 0.8, end = 0.1),
|
142 |
col = rainbow(3, start = 0.8, end = 0.1),
|
| 143 |
sub = paste(c("S", "C", "V"), dimnames(iris.S)[[3]],
|
143 |
sub = paste(c("S", "C", "V"), dimnames(iris.S)[[3]],
|
| 144 |
sep = "=", collapse= ", "),
|
144 |
sep = "=", collapse= ", "),
|
| 145 |
main = "Fisher's Iris Data")
|
145 |
main = "Fisher's Iris Data")
|
| 146 |
par(op)
|
146 |
par(op)
|
The R Project SVN
R