Ühefaktoriline graafik
Graafikul on illustreeritud katse: erinevate fosfori ja lämmastiku annuste korral on mõõdetud saagikus. Tahetakse saada vastus küsimusele, kas fosforväetise kogus mõjutab saagi suurust (H0: ei mõjuta). Mis näitab mõju olemasolu? Tehtud on 9 katset iga väetise annuse juures, vaatame saagikuse aritmeetilisi keskmisi ja usalduspiire. Kui keskmised ei erine, pole mõju. Kui keskmisepiirid on laiad ja langevad eri annuste korral kokku, ei saa me mõju oluliseks pidada. Näitegraafikut vaadates võime väita, et kui fosfori väärtus on 2 , siis on saagikus tunduvalt madalam kui teiste fosfori annuste korral.
R käsud (andmed fosfor_disp.csv)
library(gplots) # see pakett on vaja sisse lugeda, et käsk töötaks!
plotmeans(saagikus~Fosfor,ylab="Keskmine saagikus 95% usalduspiiridega")
MÄRKUS! Kui vajalik pakett puudub sinu arvutis, tuleks see sinna istalleerida, kasutades R console menüü järgmist teekonda: Packages->Install package(s) . Vali riik ja otsi vajalik pakett nime järgi üles.
R käsud (andmed fosfor_disp.csv)
library(gplots) # see pakett on vaja sisse lugeda, et käsk töötaks!
plotmeans(saagikus~Fosfor,ylab="Keskmine saagikus 95% usalduspiiridega")
MÄRKUS! Kui vajalik pakett puudub sinu arvutis, tuleks see sinna istalleerida, kasutades R console menüü järgmist teekonda: Packages->Install package(s) . Vali riik ja otsi vajalik pakett nime järgi üles.
Sellel graafikul on toodud Peipsi järve seireandmed proovipunktide kaupa. Kuna meid huvitab läbipaistvuse muutumine mitte proovipunktide nimede järjestuses, vaid lõunast põhja suunas, siis on vaja luua uus faktortunnus, mis järjestab punktid põhjalaiuskraadi järgi (andmestikus näitaja PL). Punktide nimed, nagu seirefailis, on käsitsi loetletud õiges järjekorras.
#Faktori nimetamine andmed failis peipsi.csv
punktF=factor(PL,labels=c("22","52","51","27","17","16","38","91","11","10","7", "5", "4" ,"2"),ordered=is.ordered(PL))
library(gplots) # see pakett on vaja sisse lugeda, et käsk töötaks!
plotmeans(SECCHI~punktF,ylab="Läbipaistvus, m", xlab="Proovipunktid lõunast põhja suunas",las=1)
Järeldus joonise põhjal: Lõunapoolsetes punktides on läbipaistvus tunduvalt väiksem kui põhjapool, kusjuures järveosade sees punktid oluliselt läbipaistvuse poolest ei erine. Läbipaistvuse poolest erineb teistest punkt 38.
Eelmine Järgmine
#Faktori nimetamine andmed failis peipsi.csv
punktF=factor(PL,labels=c("22","52","51","27","17","16","38","91","11","10","7", "5", "4" ,"2"),ordered=is.ordered(PL))
library(gplots) # see pakett on vaja sisse lugeda, et käsk töötaks!
plotmeans(SECCHI~punktF,ylab="Läbipaistvus, m", xlab="Proovipunktid lõunast põhja suunas",las=1)
Järeldus joonise põhjal: Lõunapoolsetes punktides on läbipaistvus tunduvalt väiksem kui põhjapool, kusjuures järveosade sees punktid oluliselt läbipaistvuse poolest ei erine. Läbipaistvuse poolest erineb teistest punkt 38.
Eelmine Järgmine