omanikud.csv

cd public_html/2015/ab
R

1,'Juku',1963
2,'Mati',1963
3,'Kati',1983


> read.csv('omanikud.csv')
  X1 X.Juku. X1963
1  2  'Mati'  1963
2  3  'Kati'  1983


> read.csv('omanikud.csv', head=FALSE)
  V1     V2   V3
1  1 'Juku' 1963
2  2 'Mati' 1963
3  3 'Kati' 1983

> read.csv('omanikud.csv', head=FALSE, row.names=1)
      V2   V3
1 'Juku' 1963
2 'Mati' 1963
3 'Kati' 1983


> omanikud=read.csv('omanikud.csv', head=FALSE)
> names(omanikud)=c("id", "eesnimi", "synniaasta")
> omanikud
  id eesnimi synniaasta
1  1  'Juku'       1963
2  2  'Mati'       1963
3  3  'Kati'       1983


> omanikud$synniaasta
[1] 1963 1963 1983
> table(omanikud$synniaasta)

1963 1983
   2    1

> mean(omanikud$synniaasta)
[1] 1969.667

> aggregate(omanikud$synniaasta, by=list(omanikud$synniaasta), FUN=length)
  Group.1 x
1    1963 2
2    1983 1


> read.csv('soidukid.csv',head=TRUE)
     regnr         mark valmimisaasta omaniku_id
1 '123ABC'      'Volga'          1980          2
2 '223ABC'      'Volga'          1981          1
3 '323ABC'       'Lada'          1980          1
4 '423ABC' 'Volkswagen'          2005          3
> soidukid=read.csv('soidukid.csv',head=TRUE)
> soidukid
     regnr         mark valmimisaasta omaniku_id
1 '123ABC'      'Volga'          1980          2
2 '223ABC'      'Volga'          1981          1
3 '323ABC'       'Lada'          1980          1
4 '423ABC' 'Volkswagen'          2005          3

> merge(soidukid, omanikud, by.x="omaniku_id", by.y="id")
  omaniku_id    regnr         mark valmimisaasta eesnimi synniaasta
1          1 '223ABC'      'Volga'          1981  'Juku'       1963
2          1 '323ABC'       'Lada'          1980  'Juku'       1963
3          2 '123ABC'      'Volga'          1980  'Mati'       1963
4          3 '423ABC' 'Volkswagen'          2005  'Kati'       1983


> aggregate(koos$valmimisaasta, by=list(koos$synniaasta), FUN=mean)
  Group.1        x
1    1963 1980.333
2    1983 2005.000

> aggregate(koos$valmimisaasta, by=list(koos$synniaasta), FUN=range)
  Group.1  x.1  x.2
1    1963 1980 1981
2    1983 2005 2005


> aggregate(koos$valmimisaasta, by=list(koos$mark), FUN=length)
       Group.1 x
1       'Lada' 1
2      'Volga' 2
3 'Volkswagen' 1


> aggregate(koos$valmimisaasta, by=list(koos$mark), FUN=length)
       Group.1 x
1       'Lada' 1
2      'Volga' 2
3 'Volkswagen' 1

> margiandmed=aggregate(koos$valmimisaasta, by=list(koos$mark), FUN=length)
> margiandmed
       Group.1 x
1       'Lada' 1
2      'Volga' 2
3 'Volkswagen' 1
> margiandmed$protsent=margiandmed[["x"]]/sum(margiandmed$x)*100
> margiandmed
       Group.1 x protsent
1       'Lada' 1       25
2      'Volga' 2       50
3 'Volkswagen' 1       25