Slide 15
Slide 15 text
. . .
1
for (x in 1:5) {
a <- x * 10
plot( 2[ 2$V1==a, 2], 2[ 2$V1==a, 3],
type="o", lty=x, pch=x, col=x,
ylim=c(0, 100), xlim=c(0, 50),
axes=F, ann=F)
par(new=T)
}
axis(1)
axis(2)
mtext(" (%)", side=1, line=2)
mtext(" (%)", side=2, line=2)
legend("bottomleft", legend=c("a=50", "a=40", "a=30", "a=20", "a=10"),
lty=5:1, pch=5:1, col=5:1)
box() #
2024 8 (2) — 2024-11 – p.15/17