joonistus

  plot(1:10, 1:10, type="n")
  segments(2, 4, 6, 4)
  segments(2, 4, 2, 8, col="green")
  points(4, 6, cex=3)
  rect(2, 2, 6, 3, col="black")

Harjutusülesanne: joonistage kriipsujuku

Kiirematele: katsetage suurusega, lisage silmad ja suu

plot(1:10, 1:10, xlim=c(0, 10), ylim=c(0, 200), type="n")
pikkused=c(167, 175, 145, 160, 140)
for(nr in 1:5){
  points(nr*2, 110, cex=2)
  segments(nr*2, 0, nr*2, 100)
  #Lisage ka käed ja jalad
}

plot(1:10, 1:10, xlim=c(0, 10), ylim=c(0, 200), type="n")
pikkused=c(167, 175, 145, 160, 140)
for(nr in 1:5){
  points(nr*2, pikkused[nr], cex=2)
  segments(nr*2, 0, nr*2, pikkused[nr])
  segments(nr*2-0.5, 0, nr*2, pikkused[nr]/2)
  #Lisage ka käed ja jalad
}

lapsed=read.table("http://www.tlu.ee/~jaagup/andmed/muu/5klass.txt", header=TRUE, sep=",")
poisid=lapsed[lapsed$sugu=="m",]
plot(1:10, 1:10, xlim=c(0, nrow(poisid)), ylim=c(0, 200), type="n")
for(nr in 1:nrow(poisid)){
  segments(nr, 0, nr, poisid[nr, "pikkus"])
  #Lisage käed ja jalad
  segments(nr-poisid[nr, "mass"]/100, 0, nr, poisid[nr, "pikkus"]/2,
            col=ifelse(poisid[nr, "pikkus"]<160, "green", "black"))
}