The R Project SVN – R – Diff – /trunk/tests/reg-plot.R



 
## PR 816 (label sizes in dotchart)
 
### Prior to 1.2.2, the label sizes were unaffected by cex.
 
 
dotchart(VADeaths, main = "Death Rates in Virginia - 1940", cex = 0.5)
dotchart(VADeaths, main = "Death Rates in Virginia - 1940", cex = 1.5)
 
## killed by 0 prior to 1.4.0 and in 1.4.1:
t1 <- ts(0:100)

## lty = "blank" killed the fill colour too.
plot(1:10, type="n")
polygon(c(1, 3, 3, 1), c(1, 1, 3, 3), col="yellow", border="red", lty="blank")
rect(6, 6, 10, 10,  col="blue", border="red", lty="blank")
## in 1.5.0 all omit the fill colours.
 
with(trees, symbols(Height, Volume, circles=Girth/24, inches=FALSE,
                    lty="blank", bg="blue"))
## in 1.5.0 ignored the lty.
 
## axis() and par(mgp < 0) {keep this example S+ compatible!}:

par(op)
axis(1, pos = 0, at=c(-2,2,3), lty = lt, col=4)
mtext(side=1,"note the x-ticks on the other side of the bars")
 
## plot.table(): explicit xlab and ylab for non-1D
 
plot(UCBAdmissions)# default x- and y-lab
plot(UCBAdmissions, xlab = "x label", ylab = "YY")# wrong in 1.5.1
##   axis suppression
plot(tt <- table(c(rep(0,7), rep(1,4), rep(5, 3))), axes = FALSE)
plot(tt, xaxt = "n")

The R Project SVN R

(root)/trunk/tests/reg-plot.R @ 28362 – Rev 29381 → 30453

Rev 29381		Rev 30453
Line 32...		Line 32...
32		32
33	`## PR 816 (label sizes in dotchart)`	33	`## PR 816 (label sizes in dotchart)`
34		34
35	`### Prior to 1.2.2, the label sizes were unaffected by cex.`	35	`### Prior to 1.2.2, the label sizes were unaffected by cex.`
36		36
37	`data(VADeaths)`	-
38	`dotchart(VADeaths, main = "Death Rates in Virginia - 1940", cex = 0.5)`	37	`dotchart(VADeaths, main = "Death Rates in Virginia - 1940", cex = 0.5)`
39	`dotchart(VADeaths, main = "Death Rates in Virginia - 1940", cex = 1.5)`	38	`dotchart(VADeaths, main = "Death Rates in Virginia - 1940", cex = 1.5)`
40		39
41	`## killed by 0 prior to 1.4.0 and in 1.4.1:`	40	`## killed by 0 prior to 1.4.0 and in 1.4.1:`
42	`t1 <- ts(0:100)`	41	`t1 <- ts(0:100)`
Line 50...		Line 49...
50	`## lty = "blank" killed the fill colour too.`	49	`## lty = "blank" killed the fill colour too.`
51	`plot(1:10, type="n")`	50	`plot(1:10, type="n")`
52	`polygon(c(1, 3, 3, 1), c(1, 1, 3, 3), col="yellow", border="red", lty="blank")`	51	`polygon(c(1, 3, 3, 1), c(1, 1, 3, 3), col="yellow", border="red", lty="blank")`
53	`rect(6, 6, 10, 10, col="blue", border="red", lty="blank")`	52	`rect(6, 6, 10, 10, col="blue", border="red", lty="blank")`
54	`## in 1.5.0 all omit the fill colours.`	53	`## in 1.5.0 all omit the fill colours.`
55	`data(trees)`	-
56	`with(trees, symbols(Height, Volume, circles=Girth/24, inches=FALSE,`	54	`with(trees, symbols(Height, Volume, circles=Girth/24, inches=FALSE,`
57	`lty="blank", bg="blue"))`	55	`lty="blank", bg="blue"))`
58	`## in 1.5.0 ignored the lty.`	56	`## in 1.5.0 ignored the lty.`
59		57
60	`## axis() and par(mgp < 0) {keep this example S+ compatible!}:`	58	`## axis() and par(mgp < 0) {keep this example S+ compatible!}:`
Line 69...		Line 67...
69	`par(op)`	67	`par(op)`
70	`axis(1, pos = 0, at=c(-2,2,3), lty = lt, col=4)`	68	`axis(1, pos = 0, at=c(-2,2,3), lty = lt, col=4)`
71	`mtext(side=1,"note the x-ticks on the other side of the bars")`	69	`mtext(side=1,"note the x-ticks on the other side of the bars")`
72		70
73	`## plot.table(): explicit xlab and ylab for non-1D`	71	`## plot.table(): explicit xlab and ylab for non-1D`
74	`data(UCBAdmissions)`	-
75	`plot(UCBAdmissions)# default x- and y-lab`	72	`plot(UCBAdmissions)# default x- and y-lab`
76	`plot(UCBAdmissions, xlab = "x label", ylab = "YY")# wrong in 1.5.1`	73	`plot(UCBAdmissions, xlab = "x label", ylab = "YY")# wrong in 1.5.1`
77	`## axis suppression`	74	`## axis suppression`
78	`plot(tt <- table(c(rep(0,7), rep(1,4), rep(5, 3))), axes = FALSE)`	75	`plot(tt <- table(c(rep(0,7), rep(1,4), rep(5, 3))), axes = FALSE)`
79	`plot(tt, xaxt = "n")`	76	`plot(tt, xaxt = "n")`