lemmikloomad.csv

liik,loomasynd,omaniku_id
kass,2013,3
kass,2012,3
kass,2012,4
koer,2011,2
koer,2011,3
koer,2012,3
koer,2012,4

loomaomanikud.csv

id,sugu,inimsynd
1,m,1930
2,n,2001
3,m,2001
4,n,2008
5,m,2008
6,m,2008


> read.csv("loomaomanikud.csv", header=TRUE)
  id sugu inimsynd
1  1    m     1930
2  2    n     2001
3  3    m     2001
4  4    n     2008
5  5    m     2008
6  6    m     2008


> read.csv("loomaomanikud.csv", header=TRUE)$inimsynd
[1] 1930 2001 2001 2008 2008 2008
> 2015-read.csv("loomaomanikud.csv", header=TRUE)$inimsynd
[1] 85 14 14  7  7  7

> range(2015-read.csv("loomaomanikud.csv", header=TRUE)$inimsynd)
[1]  7 85

> omanikud=read.csv("loomaomanikud.csv", header=TRUE)
> omanikud
  id sugu inimsynd
1  1    m     1930
2  2    n     2001
3  3    m     2001
4  4    n     2008
5  5    m     2008
6  6    m     2008
> omanikud$inimsynd
[1] 1930 2001 2001 2008 2008 2008


> omanikud[, "inimsynd"]
[1] 1930 2001 2001 2008 2008 2008
> omanikud[, c("sugu", "inimsynd")]
  sugu inimsynd
1    m     1930
2    n     2001
3    m     2001
4    n     2008
5    m     2008
6    m     2008

> data.frame(sugu=c("m", "n", "m"), inimsynd=c(2000, 2010, 2005))
  sugu inimsynd
1    m     2000
2    n     2010
3    m     2005

> data.frame(sugu=omanikud$sugu, vanus=2015-omanikud$inimsynd)
  sugu vanus
1    m    85
2    n    14
3    m    14
4    n     7
5    m     7
6    m     7

> aggregate(omanikud$inimsynd, by=list(omanikud$sugu), FUN=min)
  Group.1    x
1       m 1930
2       n 2001

#Leidke, mitu meest ja mitu naist on - loendusfunktsiooniks length
> aggregate(omanikud$inimsynd, by=list(omanikud$sugu), FUN=length)
  Group.1 x
1       m 4
2       n 2

> vanimad=aggregate(omanikud$inimsynd, by=list(omanikud$sugu), FUN=min)
> vanimad$loendus=aggregate(omanikud$inimsynd, by=list(omanikud$sugu), FUN=length)[[2]]
> vanimad
  Group.1    x loendus
1       m 1930       4
2       n 2001       2

> omanikud
  id sugu inimsynd
1  1    m     1930
2  2    n     2001
3  3    m     2001
4  4    n     2008
5  5    m     2008
6  6    m     2008
> read.csv("lemmikloomad.csv", header=TRUE)
  liik loomasynd omaniku_id
1 kass      2013          3
2 kass      2012          3
3 kass      2012          4
4 koer      2011          2
5 koer      2011          3
6 koer      2012          3
7 koer      2012          4
> merge(read.csv("lemmikloomad.csv", header=TRUE), omanikud, by.x="omaniku_id", by.y="id")
  omaniku_id liik loomasynd sugu inimsynd
1          2 koer      2011    n     2001
2          3 kass      2013    m     2001
3          3 kass      2012    m     2001
4          3 koer      2011    m     2001
5          3 koer      2012    m     2001
6          4 kass      2012    n     2008
7          4 koer      2012    n     2008

> koos=merge(read.csv("lemmikloomad.csv", header=TRUE), omanikud, by.x="omaniku_id", by.y="id")
> koos$loomasynd-koos$inimsynd
[1] 10 12 11 10 11  4  4
> data.frame(liik=koos$liik, vanussyndimisel=koos$loomasynd-koos$inimsynd)
  liik vanussyndimisel
1 koer              10
2 kass              12
3 kass              11
4 koer              10
5 koer              11
6 kass               4
7 koer               4

#Lisage juurde lemmiklooma praegune vanus (aastal 2015)
> koos[, c("liik", "loomasynd")]
  liik loomasynd
1 koer      2011
2 kass      2013
3 kass      2012
4 koer      2011
5 koer      2012
6 kass      2012
7 koer      2012
> transform(koos[, c("liik", "loomasynd")], loomavanus=2015-koos$loomasynd)
  liik loomasynd loomavanus
1 koer      2011          4
2 kass      2013          2
3 kass      2012          3
4 koer      2011          4
5 koer      2012          3
6 kass      2012          3
7 koer      2012          3

> transform(koos[, c("liik", "loomasynd")], 
            loomavanus=2015-koos$loomasynd, inimvanus=2015-koos$inimsynd)
  liik loomasynd loomavanus inimvanus
1 koer      2011          4        14
2 kass      2013          2        14
3 kass      2012          3        14
4 koer      2011          4        14
5 koer      2012          3        14
6 kass      2012          3         7
7 koer      2012          3         7

> vastus1=aggregate(koos$liik, by=list(koos$liik), FUN=length)
> vastus1$protsent=vastus1[[2]]/length(koos)*100
> vastus1
  Group.1 x protsent
1    kass 3       60
2    koer 4       80