Laste andmed

Viienda klassi lapsed

lapsed=read.table("http://www.tlu.ee/~jaagup/andmed/muu/5klass.txt", 
                   header=TRUE, sep=",", stringsAsFactors = FALSE)
head(lapsed)

##   eesnimi pikkus mass sugu
## 1    Juku    170   45    m
## 2    Kati    160   35    n
## 3    Mati    160   72    m
## 4   Madis    165   53    m
## 5    Mati    163   60    m
## 6  Katrin    165   43    n

Laste sugude jaotuse tuldiagramm

 barplot(table(lapsed$sugu))

 plot(lapsed$pikkus, lapsed$mass, 
       col=ifelse(lapsed$sugu=="n", "red", "blue"))
 text(lapsed$eesnimi, x=lapsed$pikkus, y=lapsed$mass-2, 
      cex=0.5)

Laste nimed joonisel

 barplot(table(lapsed$sugu))

 plot(lapsed$pikkus, lapsed$mass, type="n")
 text(lapsed$eesnimi, x=lapsed$pikkus, y=lapsed$mass, 
      cex=0.5,  col=ifelse(lapsed$sugu=="n", "red", "blue"))
 abline(v=mean(lapsed$pikkus), lty=2, col="gray")
 #Lisage horisontaaljoon keskmise massi kohta
 abline(h=mean(lapsed$mass), lty=2, col="gray")