pikkused=c(180, 160, 165, 164, 167)
barplot(pikkused)
barplot(pikkused, main="Inimeste pikkused")
barplot(pikkused, main="Inimeste pikkused", ylim=c(0, 200))
barplot(pikkused, main="Inimeste pikkused", 
   ylim=c(0, 200), ylab="cm", xlab="inimesed")
eesnimed=c("Madis", "Mati", "Juku", "Kati", "Kadri")
png("d:/r/naited/pikkused.png")
barplot(pikkused, main="Inimeste pikkused", 
  names.arg=eesnimed, ylim=c(0, 200), cex.names=1.5)
dev.off()
barplot(pikkused)
#abline(h=100) #horisontaaljoon kõrgusel 100 cm
abline(h=mean(pikkused), col="red")
abline(h=mean(pikkused)-sd(pikkused), lty=2) #line type
abline(h=mean(pikkused)+sd(pikkused), lty=2, lwd=3) #line width

barplot(pikkused, col=c("red", "green", "blue", "black", "white"))
barplot(pikkused, col=rainbow(length(pikkused)))
barplot(sort(pikkused))
barplot(rev(sort(pikkused)))
barplot(pikkused,  angle=30, density=5)
bp=barplot(pikkused,  angle=c(45, -45), density=c(4, 8),
         ylim=c(0, 220))
text(bp, pikkused+10, label=pikkused, pos=3, cex=0.8)
boxplot(pikkused)


read.csv("d:/r/5klass.txt", header=TRUE)

lapsed=read.csv("http://www.tlu.ee/~jaagup/andmed/muu/5klass.txt",
          header=TRUE)
tydrukud=lapsed[lapsed$sugu=="n",]
subset(lapsed, sugu=="n")
tydrukud=subset(lapsed, sugu=="n")
tydrukud=tydrukud[order(tydrukud$pikkus),]
bp=barplot(tydrukud$pikkus, names.arg=tydrukud$eesnimi, 
             las=2, ylim=c(0, 200))
text(bp, tydrukud$pikkus+20, tydrukud$pikkus, cex=0.7)
plot(tydrukud$pikkus, tydrukud$mass)
plot(tydrukud$pikkus, tydrukud$mass, type="n") #none ei joonista punkte
text(tydrukud$pikkus, tydrukud$mass, tydrukud$eesnimi)
abline(lm(tydrukud$mass~tydrukud$pikkus))
mean(lapsed$pikkus)
lapsed[, c("pikkus", "sugu")]
tapply(lapsed$pikkus, lapsed$sugu, mean)
barplot(tapply(lapsed$pikkus, lapsed$sugu, mean))
tapply(lapsed$pikkus, lapsed$sugu, sd)
rbind(
  tapply(lapsed$pikkus, lapsed$sugu, mean),
  tapply(lapsed$pikkus, lapsed$sugu, sd)
)

barplot(rbind(
  tapply(lapsed$pikkus, lapsed$sugu, mean),
  tapply(lapsed$pikkus, lapsed$sugu, sd)
)) #Üksteise peal

toonid=c("blue", "pink")
par(mar=c(2, 2, 1, 1)) #Joonistusala servade suurus alt, vasakult, ülalt, paremalt
barplot(rbind(
  tapply(lapsed$pikkus, lapsed$sugu, mean),
  tapply(lapsed$pikkus, lapsed$sugu, sd)
),beside = TRUE, col=toonid, ylim=c(0, 220)) #kõrvuti tulbad
legend("topright", legend=c("Pikkus", "Standardhälve"),
        fill=toonid)


#ekslemine
sammupikkused=rnorm(10, 0, 5) # kümne sammu pikkused
  #keskväärtus 0 - võib liikuda mõlemas suunas
  #standardhälve 5(m) - 2/3 juhtudes liigu ühe sammuga kuni 5m
#sammupikkused
par(mfrow=c(2, 1)) #Joonised 2 reas, ühes veerus
barplot(sammupikkused)
asukohad=cumsum(sammupikkused)
plot(asukohad, type="l")
par(mfrow=c(1, 1)) #Uued joonised jälle ühekaupa


ridu=3
veerge=4
par(mfrow=c(ridu, veerge))
for(nr in 1:(ridu*veerge)){
  sammupikkused=rnorm(100, 0, 5)
  asukohad=cumsum(sammupikkused)
  plot(asukohad, type="l", ylim=c(-100, 100))
}
par(mfrow=c(1, 1))