Kahefaktoriline graafik.
Saagikuse seos fosfor- ja lämmastikväetise annusega
Antud joonisel näeme ka juba lämmastiku mõju, nagu ka koosmõju (eri värvi jooned ristuvad). Ei ole nii, et annust suurendades saame alati suurema saagi! Mõtle ise, mida joonise põhjal väita võiks ja mida edasi uurida!
andmed failis fosfor_disp.csv
library(Rcmdr) # Järgnev käsk töötab ainult selle paketi sisselugemise järel
Lämmastik <- factor(N, labels=c('2','4','6')) # muudame arvtunnused faktoriks, väärtused jätame samaks
Fosfor <- factor(P, labels=c('2','4','6','8'))
plotMeans(saagikus, Fosfor, Lämmastik, error.bars="sd",ylab="Keskmine saagikus +- standardhälve", main=NULL )
Kui soovime standardhälbe asemel näidata standardviga, siis error.bars="se", kui usalduspiire, siis "conf"
andmed failis peipsi.csv
library(Rcmdr) # Järgnev käsk töötab ainult selle paketi sisselugemise järel
Faktorite nimetamine
Järveosa <- factor(osanr, labels=c("Pihkva järv","Lämmijärv", "Suurjärv"))
Aasta<-as.factor(aasta)
plotMeans(SECCHI,Aasta, Järveosa, error.bars="se",ylab="Läbipaistvuse keskmine+- standardviga", main=NULL
,xlab="aasta",col=c("red","black","blue"))
# andsime ise graafiku joontele värvused ette
Graafikul on toodud erinevate järveosade läbipaistvuse muutused uuritud järjestikustel aastatel. Näha on oluliselt erinev keskmine läbipaistvus eri järveosades. Kontrollida võiks ka seda, kas statistiliselt on tõestatav, et alates 2006.aastast on lõunapoolsetes järveosades läbipaistvus hakanud suurenema.
Eelmine Järgmine
Faktorite nimetamine
Järveosa <- factor(osanr, labels=c("Pihkva järv","Lämmijärv", "Suurjärv"))
Aasta<-as.factor(aasta)
plotMeans(SECCHI,Aasta, Järveosa, error.bars="se",ylab="Läbipaistvuse keskmine+- standardviga", main=NULL
,xlab="aasta",col=c("red","black","blue"))
# andsime ise graafiku joontele värvused ette
Graafikul on toodud erinevate järveosade läbipaistvuse muutused uuritud järjestikustel aastatel. Näha on oluliselt erinev keskmine läbipaistvus eri järveosades. Kontrollida võiks ka seda, kas statistiliselt on tõestatav, et alates 2006.aastast on lõunapoolsetes järveosades läbipaistvus hakanud suurenema.
Eelmine Järgmine