---
title: "Verkefni 3"
author: "Ketill Guðmundsson og eSPIE"
date: "28 mars 2017"
output:
  html_document: default
---

```{r echo=TRUE, message=FALSE, error=FALSE}
library(dplyr)
library(tidyr)
library(ggplot2)
library(knitr)
```
####1a)
```{r}
ke<- read.table("husnaedi_stort.csv",header=TRUE, sep=",", encoding="UTF-8", stringsAsFactors=FALSE)
dropEign <- list(a="Einbýlishús", b="Íbúðareign", c="Parhús", d="Raðhús")
ke <- droplevels(subset(ke, teg_eign  == dropEign))
ke = cbind(ke, fermetraverd = ke$nuvirdi / ke$ibm2)
```
####1b)
```{r}
teg_eign_RIF<-filter(ke, svfn == "2000" | svfn == "4200" | svfn == "7300")
teg_eign_RIF$svfn <- factor(teg_eign_RIF$svfn)
levels(teg_eign_RIF$svfn) <- c("Rekjanesbær", "Ísafjörður", "Fjarðabyggð")
table(teg_eign_RIF$teg_eign, teg_eign_RIF$svfn)
prop.table(table(teg_eign_RIF$teg_eign, teg_eign_RIF$svfn), 2)*100
ggplot(teg_eign_RIF,aes(x=teg_eign, fill=teg_eign)) + geom_bar() + facet_grid(~svfn) + labs(fill='Stærð') + xlab('Hverfi') + ylab('Fjöldi') + theme(axis.text.x = element_text(angle=60, hjust=1))
```

####1c)
```{r}
ke.rvk<-filter(ke, svfn == "0")
ke.rvk$svfn <- factor(ke.rvk$svfn)
levels(ke.rvk$svfn) <- c("Rekjavík")
ke.rvk = within(ke.rvk, {
    ibm2.flokk = ifelse(ibm2 < 50, 'alltof litlar', ifelse(ibm2 < 80, 'litlar', ifelse(ibm2 < 110, 'miðlungs', ifelse(ibm2 < 140, 'stórar', 'svaka stórar'))))
 })
group_by(ke.rvk, Flokkur=ibm2.flokk, Tegund=teg_eign)%>%
  summarise(Fjöldi=n(),Meðaltal=mean(fermetraverd), Staðalfrávik=sd(fermetraverd))%>%
  kable()
```

Ljóst verður af gögnunum af hugtakið "economics of scale" á vel við um fermetraverð. Því stærra sem hús verður því ódýrari verður hver fermetri.

####1d)
```{r}
ke.d<-filter(ke.rvk, matssvaedi == "80"  | matssvaedi == "85")
```