joonis2

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

##      eesnimi pikkus mass sugu   kabe
## 1       Juku    170   45    m    jah
## 2       Kati    160   35    n    jah
## 3       Mati    160   72    m natuke
## 4      Madis    165   53    m     ei
## 5       Mati    163   60    m     ei
## 6     Katrin    165   43    n natuke
## 7       Siim    141   38    m     ei
## 8     Martin    159   46    m     ei
## 9      Kadri    164   57    n natuke
## 10 Katariina    148   35    n    jah
## 11     Maria    143   38    n     ei
## 12     Marta    169   55    n     ei
## 13     Madis    156   65    m natuke
## 14    Mihkel    165   69    m natuke
## 15     Tiina    170   38    n    jah
## 16      Miia    145   68    n     ei
## 17      Siim    151   55    m     ei
## 18     Priit    156   63    m     ei
## 19  Kristjan    164   59    m    jah
## 20    Kristi    155   53    n natuke
## 21 Kristiina    158   62    n    jah
## 22     Killu    164   49    n     ei
## 23      Mart    170   69    m     ei
## 24      Kert    143   36    m    jah
## 25      Gert    152   67    m     ei
## 26     Lauri    156   53    m natuke
## 27   Moonika    164   58    n    jah
## 28   Jaanika    165   59    n     ei
## 29    Jaanus    164   63    m natuke
## 30      Jaan    162   65    m    jah

  plot(lapsed$pikkus, lapsed$mass)

  plot(lapsed$pikkus, lapsed$mass, main="Laste pikkused ja massid",
        xlab="pikkus (cm)", ylab = "mass (kg)")

  plot(lapsed$pikkus, lapsed$mass, main="Laste pikkused ja massid",
        xlab="pikkus (cm)", ylab = "mass (kg)", type="n")
  text(lapsed$pikkus, lapsed$mass, lapsed$eesnimi)

Poisid ja tüdrukud eri värviga

  plot(lapsed$pikkus, lapsed$mass, main="Laste pikkused ja massid",
        xlab="pikkus (cm)", ylab = "mass (kg)", 
        col=ifelse(lapsed$sugu=="m", "blue", "red" ) )