Alustuseks teeme ühe "tühja" graafiku, kus poleks
midagi üleliigset ja segavat - vaid teljed, mille järgi jooni joonistada:
plot(NA,NA, xlab="", ylab="", xlim=c(0,6), ylim=c(0,5))
grid()
|
|
Joontega võime ühendada ka rohkem kui kaks punkti korraga, näiteks ühendame joontega punktid
(0,0); (1,2); (3,4); (6,1):
lines(c(0,1,3,6),c(0,2,4,1))
|
|
Kõige tavalisemas olukorras on meil olemas kaks tunnust - näiteks aasta ja kasum,
mida kasutades soovime lisada jooni graafikule:
# Algandmete tekitamine:
aasta=c(2000,2001,2002,2003,2004,2005)
kaive=c( 12, 14, 20, 21, 25, 30)
kasum=c( 1, -1, 2, 4, 5, 6)
# Joonistame algse pildi:
plot(aasta, kaive, type="l", main="Käibe ja kasumi muutumine",
ylim=c(-5,30), ylab="milj. krooni")
# Lisame kasumijoone kasutades tunnuseid aasta ja kasum:
lines(aasta, kasum, lty=2)
# Lisame seletuse
legend(2000,29, c("Käive","Kasum"), lty=c(1,2))
# Lisame 0-joone
lines(c(1999,2006),c(0,0))
|
|
Pane tähele!
- Joonist alustades (plot-käsku andes) muutsime y-telge selliselt, et mõlemad
jooned - nii käibe kui kasumikõver samaaegselt pildile mahuksid! (ylim=c(-5,30)).
- Aastad on järjestatud kasvavalt (Ehk x-tunnuse väärtused on järjestatud kasvavalt)!
Kui andmeid peaks olema vaja ümber järjestada, võib seda teha näiteks järgmiste käskude abil:
indeks=order(aasta)
plot(aasta[indeks], kaive[indeks], ylim=c(-5,30))
lines(aasta[indeks], kasum[indeks])
| |