UAS Ekonometrika

---
title: "Flex Dashboard"
output: 
  flexdashboard::flex_dashboard:
    vertical_layout: scroll
    source_code : embed
---

```{r setup, include=FALSE}
library(flexdashboard)
library(readxl)
library(plotly)
library(ggplot2)

# Importing Data
inflasi <- read_excel("Inflation_Rate.xlsx")
nganggur <- read_excel("Unemployment.xlsx")
saham <- read_excel("Stock_Market_Index.xlsx")
bunga <- read_excel("Interest_Rate.xlsx")
konsumen <- read_excel("Consumer_Confidence.xlsx")
```

# UAS Ekonometrika

Column {data-width = 650}
-----------------------------------------------------------------------

## Economic Indicators {.tabset}

### Suku Bunga 
```{r}
interest_rate_plot <- plot_ly(data = bunga, x = ~Tahun, y = ~Suku_Bunga, type = 'scatter', mode = 'lines')
interest_rate_plot
```

### Nilai Inflasi 
```{r}
inflation_plot <- plot_ly(data = inflasi, x = ~Tahun, y = ~Nilai_Inflasi, type = 'scatter', mode = 'lines')
inflation_plot
```

### Data Saham
```{r}
stock_market_plot <- plot_ly(data = saham, x = ~Tahun, y = ~Saham, type = 'scatter', mode = 'lines')
stock_market_plot
```




Column {data-width = 350}
-----------------------------------------------------------------------

### Kepercayaan Konsumen 
```{r}
consumer_confidence_plot <- plot_ly(data = konsumen, x = ~Tahun, y = ~Konsumen, type = 'scatter', mode = 'lines')
consumer_confidence_plot
```

### Jumlah Pengangguran 
```{r}
unemployment_rate_plot <- plot_ly(data = nganggur, x = ~Tahun, y = ~Pengangguran, type = 'scatter', mode = 'lines')
unemployment_rate_plot
```