Joonised

Lihtne tehe:

 3+2

## [1] 5

Arvude jada:

 1:8

## [1] 1 2 3 4 5 6 7 8

Tulpdiagramm:

 barplot(1:5)

Kabeoskuste andmed:

 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

Sugude jaotus

  table(lapsed$sugu) #absoluutarvud

## 
##  m  n 
## 17 13

  prop.table(table(lapsed$sugu)) #Suhtarvud

## 
##         m         n 
## 0.5666667 0.4333333

  100*prop.table(table(lapsed$sugu)) #Protsendid

## 
##        m        n 
## 56.66667 43.33333

  round(100*prop.table(table(lapsed$sugu))) #Ümardatuna

## 
##  m  n 
## 57 43

  paste(round(100*prop.table(table(lapsed$sugu))), "%") #Koos protsendimärgiga

## [1] "57 %" "43 %"

Sektordiagramm

  pie(table(lapsed$sugu))

  pie(table(lapsed$sugu), main="Jaotus sugude järgi", 
       labels = c("poisid", "tüdrukud"), col = c("lightblue", "pink"))

Harjutus:

Koostage sarnane ülevaade ka kabeoskuse kohta: absoluutarvud, suhtarvud, protsendid, samuti joonis.

Kabeoskus protsentides:

  round(100*prop.table(table(lapsed$kabe)), 1)

## 
##     ei    jah natuke 
##   43.3   30.0   26.7

  pie(table(lapsed$kabe), main="Jaotus kabeoskuse järgi")

  barplot(table(lapsed$kabe), col = c("red", "green", "yellow"))

  lapsed$kabe=factor(lapsed$kabe, levels=c("ei", "natuke", "jah")) #järjekorra muutus
  barplot(table(lapsed$kabe))

Ülevaade kabeoskuse kohta vastavalt soole

  table(lapsed$sugu, lapsed$kabe)

##    
##     ei natuke jah
##   m  8      5   4
##   n  5      3   5

  barplot(table(lapsed$sugu, lapsed$kabe))

  barplot(table(lapsed$sugu, lapsed$kabe), legend=c("m", "n"),
          ylab="Õpilaste arv", xlab="Oskuste tase", 
          main="Kabeoskus vastavalt soole")

  barplot(table(lapsed$sugu, lapsed$kabe), beside = TRUE) #Tulbad kõrvuti