---
title: "UTBK 2019 Dashboard"
author: " Created By Pamboedi"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    source_code: embed
---

```{r setup, include=FALSE}
knitr::opts_chunk$set( message=FALSE )
library(flexdashboard)
library(readr)
library(dplyr)
library(ggplot2)
library(plotly)
```

```{r,message=FALSE,warning=FALSE}
major <- read_csv("majors.csv")

major <- major %>%
  mutate(type = as.factor(type),
         major_name = as.factor(major_name))

pop_ipa <- major %>% 
  filter(type == "science") %>% 
  group_by(major_name) %>% 
  summarise(capacity_science = sum(capacity)) %>% 
  arrange(-capacity_science) %>% 
  head(10)

pop_ips <- major %>% 
  filter(type == "humanities") %>% 
  group_by(major_name) %>% 
  summarise(capacity_humanities = sum(capacity)) %>% 
  arrange(-capacity_humanities) %>% 
  head(10)
```

```{r}

plot_ipa <- pop_ipa %>% 
  ggplot(aes(x = capacity_science, y= reorder(major_name, capacity_science))) + 
  geom_col(aes(fill = capacity_science),show.legend = F) +
  theme_update() +
  theme(plot.title = element_text(face = "italic")) +
  labs(title = "10 Prodi Saintek Daya Tampung Terbesar di Indonesia",
       y = " ",
       x = "Daya Tampung Total")

plot_ips <- pop_ips %>% 
  ggplot(aes(x = capacity_humanities, y= reorder(major_name, capacity_humanities))) + 
  geom_col(aes(fill = capacity_humanities),show.legend = F) +
  theme_update() +
  theme(plot.title = element_text(face = "italic")) +
  labs(title = "10 Prodi Soshum Daya Tampung Terbesar di Indonesia",
       y = " ",
       x = "Daya Tampung Total")
```

```{r,message=FALSE,warning=FALSE}
nilaisaintek <- read_csv("score_science.csv")
nilaisoshum <- read_csv("score_humanities.csv")
```

```{r}
nilaisaintek <- nilaisaintek %>% 
  select(-X1) %>% 
  mutate(score_tkdsaintek = (score_bio + score_mat + score_fis + score_kim)/4) %>% 
  mutate(score_tpssaintek = (score_kmb + score_kpu + score_kua + score_ppu)/4)
```

```{r}
nilaisoshum <- nilaisoshum %>% 
  select(-X1) %>% 
  mutate(score_tkdsoshum = (score_eko + score_geo + score_sej + score_sos + score_mat)/5) %>% 
  mutate(score_tpssoshum = (score_kmb + score_kpu + score_kua + score_ppu)/4)
```

```{r}
plottkdsaintek <- nilaisaintek %>% 
  ggplot(aes(x= score_tkdsaintek)) +
  geom_histogram(bins = 30, colour = "red") +
  labs(title = "Tes Kemampuan Dasar Saintek 2019",
       x = "Skor Rata rata TKD Saintek",
       y = "Data") +
  theme_update()
  
plottkdsoshum <- nilaisoshum %>% 
  ggplot(aes(x= score_tkdsoshum)) +
  geom_histogram(bins = 30, colour = "red") +
  labs(title = "Tes Kemampuan Dasar Soshum 2019",
       x = "Skor Rata rata TKD Soshum",
       y = "Data") +
  theme_update()
  
plottpssaintek <- nilaisaintek %>% 
  ggplot(aes(x= score_tpssaintek)) +
  geom_histogram(bins = 30, colour = "red") +
  labs(title = "Tes Potensi Skolastik Saintek 2019",
       x = "Skor Rata rata TPS Saintek",
       y = "Data") +
  theme_update()
  
plottpssoshum <- nilaisoshum %>% 
  ggplot(aes(x= score_tpssoshum)) +
  geom_histogram(bins = 30, colour = "red") +
  labs(title = "Tes Potensi Skolastik Soshum 2019",
       x = "Skor Rata rata TPS Soshum",
       y = "Data") +
  theme_update()
```


Program Studi
=======================================================================

row {data-height=500}
-----------------------------------------------------------------------

### Program Studi Dengan Daya Tampung Terbesar di Indonesia (Sains dan Teknologi)

```{r}
ggplotly(plot_ipa)
```

row {data-height=500}
-----------------------------------------------------------------------

### Program Studi Dengan Daya Tampung Terbesar di Indonesia (Sosial dan Humaniora)

```{r}
ggplotly(plot_ips)
```

Skor TKD
=======================================================================

row {data-height=500}
-----------------------------------------------------------------------

### Skor Rata - Rata Tes Kemampuan Dasar Sains dan Teknologi UTBK 2019

```{r}
ggplotly(plottkdsaintek)
```

row {data-height=500}
-----------------------------------------------------------------------

### Skor Rata - Rata Tes Kemampuan Dasar Sosial dan Humaniora UTBK 2019

```{r}
ggplotly(plottkdsoshum)
```


Skor TPS
=======================================================================

row {data-height=500}
-----------------------------------------------------------------------

### Skor Rata - Rata Tes Potensi Skolastik Sains dan Teknologi UTBK 2019

```{r}
ggplotly(plottpssaintek)
```

row {data-height=500}
-----------------------------------------------------------------------

### Skor Rata - Rata Tes Potensi Skolastik Sosial dan Humaniora UTBK 2019

```{r}
ggplotly(plottpssoshum)
```