---
title: "Data Visualization - Dashboard Laboratory"
author: "Louis D'Ambrosio"
date: "May 12, 2018"
output:
flexdashboard::flex_dashboard:
orientation: rows
source_code: embed
---
```{r setup, include=FALSE}
library(flexdashboard)
library(ggplot2)
library(ggthemes)
```
---
Source: [HDX - The Humanitarian Data Exchange](https://data.humdata.org/dataset/unhcr-refugee-pop-stats/resource/fbacbba3-1b20-4331-931b-6a21a4cb80f5)
### Persons of Concern in 9 European Countries
```{r message=FALSE, warning=FALSE, echo=FALSE}
total <- read.csv("F:/HU/ANLY 512/Dashboarding Lab/total.xls", header = TRUE)
library(ggplot2)
library(plotly)
total <- read.table(header = T, text =
"Country Refugees
'Belgium' 508645
'France' 2874490
'Germany' 10893516
'Ireland' 142555
'Italy' 538407
'Netherlands' 1900518
'Portugal' 7918
'Spain' 89946
'United Kingdom' 3766855")
plot_ly(total, labels = ~ Country, values = ~ Refugees, type = 'pie',
textposition = 'inside', textinfo = 'label+percent') %>%
layout (title='Persons of Concern in 9 European Countries',
showlegend = TRUE)
```