Joon väljapool joonistamisala
Joont on võimalik tõmmata väljapoole joonistamisala, kui enne joone
tõmbamist seada graafikaparameeter xpd võrdseks NA-ga:
# Algandmed:
Konkurent=c(115,100, 90, 100, 75,60)
Meie=c(25, 40, 80, 90, 100, 150)
Aasta=2000:2005
# Esimene, joonise piiridesse jääv joon
plot(Aasta, Konkurent, type="l", bty="u",
ylim=c(0,120), yaxs="i", xaxs="i",
main="Muud trikid", xlim=c(2000,2005))
# Lubame joonistada kõikjale graafikaaknas:
par(xpd=NA)
# Kasutame saadud luba:
lines(Aasta,Meie, lwd=4)
# Lõpetame joonisekasti, jättes tühemiku
# graafikult väljuva joone tarvis:
lines(c(2000,2004.25, NA, 2004.55,2005),c(120,120,NA,120,120))
# lisame selgitavad tekstid:
text(2001,20, "Meie", cex=1.2)
text(2004.25,60, "Nemad")
|
|
lines käsk on peaaegu plot käsk!
lines ja points käsud on oma loomult
plot käsud veidi erinevate vaikimisi väärtustega. Samuti pole võimalik
nende käskude puhul ette anda telgede määramisega jms. seotud parameetreid.
Aga näiteks type=... lisaparameetrit saab küll kasutada -- lines
käsk koos type="p" argumendiga joonistab punkte ja points käsk
koos type="l" argumendiga joonistab jooni. Siit tuleneb ka järgmine näide -
lisame ühe lines käsu abil nii vaatlused kui ka jooned!
# Algandmed
x1=c(10,12, 15,14, 18, 26)
x2=c(14, 15, 19, 14.5, 12, 16)
aasta=2000:2005
# Joonistame kaks joont koos punktidega (type="b"):
plot(aasta, x1, type="b",
ylim=c(0,25),
col="green4", lwd=2,
pch=21, bg="green", cex=1.5)
lines(aasta, x2, type="b",
col="slateblue3", lwd=2,
pch=22, bg="slategray1", cex=1.5)
# Lisame abijooned
grid(col="limegreen")
|
|