---
title: "Dashboard"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    source_code: embed

---

```{r,include=FALSE,message=FALSE,echo=FALSE}
library(tidyverse)
library(ggplot2)
library(broom)
library(plotly)
library(highcharter)
library(rworldmap)
library(gganimate)
library(transformr)
library(corrplot)
library(leaps)
library(kableExtra)
library(modelr)
library(mgcv)
library(magick)
knitr::opts_chunk$set(
 echo = FALSE,
 fig.width = 7, 
 fig.height = 5,
 fig.asp = 0.6,
 out.width = "60%")
theme_set(theme_bw() + 
          theme(legend.position = "bottom",
                legend.title = element_blank(),
                plot.title = element_text(hjust = 0.5, size = 15),
                plot.subtitle = element_text(hjust = 0.5, size = 12)))

maindata = read_csv("data/maindata.csv") 
```

### Scatterplot showing HIV mortality rate per 100k against GDP per capital (USD)

```{r}
death_country = maindata %>% 
  drop_na(country_name, location_id) %>% 
  filter(year==2019) %>% 
  group_by(location_id) %>% 
  summarize(HIV_death = sum(val),
            pop_year  = sum(population, na.rm = T),
            gdp_per_capita = mean(gdp_per_capita), 
            population = mean(population)) %>% 
  mutate(
    HIV_death = as.numeric(HIV_death),
    mortality_per_100k = HIV_death/(pop_year/100000))
gdp_plotly = read_csv("./data/final_gdp_per_capita.csv", skip = 4, col_names = TRUE) %>% 
  janitor::clean_names() %>% 
  drop_na(location_id) %>% 
  select("location_id", "country_code", "country_name")
maindata_plotly = left_join(death_country, gdp_plotly, by = c("location_id")) %>% 
  select(location_id, country_name, mortality_per_100k, country_code, gdp_per_capita, population)

fig <- plot_ly(maindata_plotly, x = ~gdp_per_capita, y = ~mortality_per_100k, type = 'scatter', mode = 'markers', split = ~country_name, size = ~population) %>%
  add_markers(marker=list(sizeref=1.0, sizemode="population")) %>% 
  layout( plot_bgcolor='#e5ecf6',
          xaxis = list(
            title = 'GDP per capita (USD)',
            zerolinecolor = '#ffff',
            zerolinewidth = 5,
            gridcolor = 'ffff'),
          yaxis = list(
            title = 'HIV mortality per 100k',
            zerolinecolor = '#ffff',
            zerolinewidth = 5,
            gridcolor = 'ffff'))
fig
```