---
title: "Kabeandmete kirjeldused"
output: html_document
---

```{r }
lapsed=read.table("http://www.tlu.ee/~jaagup/andmed/muu/5klasskabe.txt", header=TRUE, sep=",")
poisid=lapsed[lapsed$sugu=="m",]
poisid
poisid$pikkus
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)
pie(table(lapsed$sugu))

barplot(table(lapsed$sugu))

sugudetabel=table(lapsed$sugu)
tulpadexid=barplot(sugudetabel, ylim=c(0, 25))
tulpadexid
arvud=unname(sugudetabel)
arvud
text(tulpadexid, arvud+2,  arvud) 

prop.table(table(lapsed$sugu))
round(100*prop.table(table(lapsed$sugu)), 1)
protsenditabel=round(100*prop.table(table(lapsed$sugu)), 1)
protsenditabel
joonis=barplot(protsenditabel, ylim=c(0, 100))
text(joonis, unname(protsenditabel)+5,  paste(unname(protsenditabel), '%', sep=''))

table(lapsed$sugu, lapsed$kabe)
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))
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)
prop.table(table(lapsed$sugu, lapsed$kabe))
prop.table(table(lapsed$sugu, lapsed$kabe), 1) #oskused sugude kaupa
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

```