Kabeandmete kirjeldused

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

##     eesnimi pikkus mass sugu   kabe
## 1      Juku    170   45    m    jah
## 3      Mati    160   72    m natuke
## 4     Madis    165   53    m     ei
## 5      Mati    163   60    m     ei
## 7      Siim    141   38    m     ei
## 8    Martin    159   46    m     ei
## 13    Madis    156   65    m natuke
## 14   Mihkel    165   69    m natuke
## 17     Siim    151   55    m     ei
## 18    Priit    156   63    m     ei
## 19 Kristjan    164   59    m    jah
## 23     Mart    170   69    m     ei
## 24     Kert    143   36    m    jah
## 25     Gert    152   67    m     ei
## 26    Lauri    156   53    m natuke
## 29   Jaanus    164   63    m natuke
## 30     Jaan    162   65    m    jah

poisid$pikkus

##  [1] 170 160 165 163 141 159 156 165 151 156 164 170 143 152 156 164 162

poisterivi=poisid[order(poisid$pikkus),]
barplot(poisterivi$pikkus)

barplot(poisterivi$pikkus, names.arg=poisterivi$eesnimi)

barplot(poisterivi$pikkus, names.arg=poisterivi$eesnimi, las=2)

poisterivi=poisid[rev(order(poisid$pikkus)),]
barplot(poisterivi$pikkus, names.arg=poisterivi$eesnimi, las=2, main="Poiste rivi", ylim=c(0, 200), ylab="Pikkus sentimeetrites")

table(lapsed$sugu)

## 
##  m  n 
## 17 13

pie(table(lapsed$sugu))

barplot(table(lapsed$sugu))

sugudetabel=table(lapsed$sugu)
tulpadexid=barplot(sugudetabel, ylim=c(0, 25))
tulpadexid

##      [,1]
## [1,]  0.7
## [2,]  1.9

arvud=unname(sugudetabel)
arvud

## [1] 17 13

text(tulpadexid, arvud+2,  arvud) 

prop.table(table(lapsed$sugu))

## 
##         m         n 
## 0.5666667 0.4333333

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

## 
##    m    n 
## 56.7 43.3

protsenditabel=round(100*prop.table(table(lapsed$sugu)), 1)
protsenditabel

## 
##    m    n 
## 56.7 43.3

joonis=barplot(protsenditabel, ylim=c(0, 100))
text(joonis, unname(protsenditabel)+5,  paste(unname(protsenditabel), '%', sep=''))

table(lapsed$sugu, lapsed$kabe)

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

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

barplot(table(lapsed$sugu, lapsed$kabe), legend=c("m", "n"))

barplot(table(lapsed$sugu, lapsed$kabe), legend=c("m", "n"), beside=TRUE)

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

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

oskused=t(table(lapsed$sugu, lapsed$kabe))
barplot(oskused, legend=row.names(oskused))

lapsed$kabe=factor(lapsed$kabe, levels=c("ei", "natuke", "jah")) #ümberjärjestus
oskused=t(table(lapsed$sugu, lapsed$kabe))
barplot(oskused, legend=row.names(oskused))

table(lapsed$sugu, lapsed$kabe)

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

prop.table(table(lapsed$sugu, lapsed$kabe))

##    
##            ei    natuke       jah
##   m 0.2666667 0.1666667 0.1333333
##   n 0.1666667 0.1000000 0.1666667

prop.table(table(lapsed$sugu, lapsed$kabe), 1) #oskused sugude kaupa

##    
##            ei    natuke       jah
##   m 0.4705882 0.2941176 0.2352941
##   n 0.3846154 0.2307692 0.3846154

barplot(100*prop.table(table(lapsed$sugu, lapsed$kabe), 1), beside=TRUE)

barplot(table(lapsed$sugu, lapsed$kabe), beside=TRUE)

barplot(prop.table(table(lapsed$sugu, lapsed$kabe), 2)) #Sugude osakaalud oskustes