Norwegian Development Funds.Rmd

#### Norweigian Development Funds 


# Load the Libraries

```{r}
library(readr)
library(ggplot2)
library(tidyverse)
library(dplyr)
```

# Getting the Data

```{r}
ndf <- read_csv("./funds.csv")
head(ndf)
summary(ndf)
```


# Checking for NA Values

```{r}
any(is.na(ndf))
```

# Cleaning the Data

```{r}
names(ndf) <- make.names(names(ndf))
ndf[, grep("NA.", colnames(ndf))] <- NULL
```


# Exploratory Data Analysis


```{r}
ndf %>% group_by(Recipient.Region, Year) %>% 
  summarise(Disbursements=sum(Disbursements..1000...)/1000) %>% ungroup() %>% 
  ggplot(aes(x=Year, y=Disbursements)) + 
  geom_bar(stat = "identity",aes(fill=Recipient.Region)) + 
  facet_wrap(~Recipient.Region)
```

Middle East is slowly picking up, Asia is on decline. Interesting to see the same chart in terms of size of the contract. Are certain regions getting bigger "support packages" then others? Are there material differences in geographical vs non-geographical contracts? Lets look at the quantity of those contracts by country.

```{r}
ndf%>% group_by(Recipient.Region, Year) %>% 
  summarise(Mean_Disbursement=mean(Disbursements..1000...)/1000) %>% 
  ungroup() %>% 
  ggplot(aes(x=Year, y=Mean_Disbursement)) + 
  geom_bar(stat = "identity",aes(fill=Year)) + facet_wrap(~Recipient.Region)
```

# Non Geographical-Projects

```{r}
ndf%>% dplyr::filter(Recipient.Region=="Not geographically allocated") %>% 
  group_by(Main.Sector) %>% 
  summarise(Disbursements=sum(Disbursements..1000...)/1000) %>% 
  ungroup() %>% 
  ggplot(aes(x=Main.Sector, y=Disbursements)) + 
  geom_bar(stat = "identity",aes(fill=Disbursements)) + coord_flip()
```

It has been determined that administration costs are very high up for the disbursements.

```{r}
ndf %>% 
  dplyr::filter(grepl("910 - Administration", Main.Sector)) %>% 
  group_by(Budget.Post..Chapter) %>% 
  summarise(Disbursements=sum(Disbursements..1000...)/1000) %>% 
  ungroup() %>% 
  ggplot(aes(x=Budget.Post..Chapter, y=Disbursements)) + 
  geom_bar(stat = "identity",aes(fill=Disbursements)) + coord_flip()
```