barplot( c(145,108,80,33,26,12,5), names.arg=c("mänd", "kask", "kuusk", "hall-lepp", "haab", "sanglepp", "muud"), main="Eesti metsade üldtagavara \n RMK 2001. aasta keskkonnaraporti andmetel", ylab="miljonid tihumeetrid", col=rgb(0.1,(5:12)/12,0.2)) |
Tulpade kõrguseid sisaldav vektor nimed tulpade alla main - käsuga saab anda joonise pealkirja ylab ja xlab - käsuga saab muuta y- ja x-telje nime col- käsk võimaldab ette anda tulpade värvi, vaata värvid |
# Algandmed tm=c(145,108,80,45,26,5) names(tm)=c("mänd","kask","kuusk","lepp","haab","muud") # Joonis barplot(tm, col=grey(seq(0.9,0,length=7)), horiz=TRUE) |
Algandmete etteandmine tulpade värviks valime hallid toonid (vaata värvid) Nõuame horisontaalasendis tulpi |
# Algandmed Mehed=c(32012, 33436, 49985, 54436, 50013, 46842, 46481, 43018, 47275, 44554, 41446, 30717, 33478, 27144, 22274, 12846, 5454, 3285) Naised=c(30163, 31671, 47494, 52292, 48118, 46252, 47311, 45694, 51741, 51012, 49685, 38993, 46476, 42164, 40402, 31861, 17066, 12513) Vanus=c("0-4", "5-9", "10-14", "15-19", "20-24", "25-29", "30-34", "35-39", "40-44", "45-49", "50-54", "55-59", "60-64", "65-69", "70-74", "75-79", "80-84", "85+") # Joonis abi=barplot(rbind(Mehed,Naised), beside=TRUE, ylab="inimeste arv", legend.text=TRUE, main="Eesti rahvastiku jaotus vanuse ja soo järgi \n 1. jaanuaril 2003", col=c("Green4","Green2")) axis(side=1, at=abi[1,]+0.5, label=Vanus, las=3) |
Kommentaarid: rbind - käsk moodustab argumentiteks antud vektoritest maatriksi legen.text=TRUE nõuab legendi lisamist joonisele Omistamine abi=barplot(...) salvestab tulpade keskkohtade asupaigad vektorisse abi. Sel viisil salvestatud tulpade asupaiku on hea hiljem kasutada uute elementide lisamiseks joonisele. axis - käsk võimaldab joonisele lisada oma soovi järgi joonistatavaid telgi. Antud juhul kasutame seda käsku seetarvis, et muuta teksti kirjutamise suunda (las=3 kirjutab vanused alumisele teljele teljega risti). |
# Algandmed Mehed=c(32012, 33436, 49985, 54436, 50013, 46842, 46481, 43018, 47275, 44554, 41446, 30717, 33478, 27144, 22274, 12846, 5454, 3285) Naised=c(30163, 31671, 47494, 52292, 48118, 46252, 47311, 45694, 51741, 51012, 49685, 38993, 46476, 42164, 40402, 31861, 17066, 12513) Vanus=c("0-4", "5-9", "10-14", "15-19", "20-24", "25-29", "30-34", "35-39", "40-44", "45-49", "50-54", "55-59", "60-64", "65-69", "70-74", "75-79", "80-84", "85+") # Joonis abi=barplot(rbind(Mehed,Naised), beside=FALSE, ylab="inimeste arv", legend.text=TRUE, main="Eesti rahvastiku jaotus vanuse ja soo järgi \n 1. jaanuaril 2003", col=c("Green4","Green2")) axis(side=1, at=abi, label=Vanus, las=3) |
Kommentaarid: rbind - käsk moodustab argumentiteks antud vektoritest maatriksi legen.text=TRUE nõuab legendi lisamist joonisele Omistamine abi=barplot(...) salvestab tulpade keskkohtade asupaigad vektorisse abi. Sel viisil salvestatud tulpade asupaiku on hea hiljem kasutada uute elementide lisamiseks joonisele. axis - käsk võimaldab joonisele lisada oma soovi järgi joonistatavaid telgi. Antud juhul kasutame seda käsku seetarvis, et muuta teksti kirjutamise suunda (las=3 kirjutab vanused alumisele teljele teljega risti). |
# Algandmete tekitamine: sugu=c("mees","naine")[rbinom(100,1,0.6)+1] kavalus=rbinom(100,4,0.4) # Graafikute joonistamine barplot(table(sugu,kavalus), main="beside=TRUE", legend.text=TRUE, beside=TRUE) barplot(table(sugu,kavalus), main="beside=FALSE", legend.text=TRUE, beside=FALSE) |
# Algandmed: liik=c("mänd","kask","mänd","kuusk","mänd","kask","lepp","haab","mänd","kask","mänd", "kuusk","kuusk","lepp") # Joonistamine par(mfrow=c(3,1)) barplot(table(liik), space=0, main="space=0") barplot(table(liik), space=0.5, main="space=0.5") barplot(table(liik), space=2, main="space=2") par(mfrow=c(1,1)) |
Kommentaarid: mfrow=c(3,1) - parameeter käseb järgmisele joonisele mahutada üksteise alla kolm graafikut. par(mfrow=c(1,1)) - käsuga taastame "normaalse" olukorra - ekraanile joonistatakse üks graafik korraga. |