---
title: "Analisis Tren Polutan Udara 2023 di DKI Jakarta dan Palangka Raya"
output: 
  flexdashboard::flex_dashboard:
    vertical_layout: scroll
    theme: yeti
    source_code: embed
---

```{r setup, include=FALSE}
library(dplyr)
library(RSQLite)
library(flexdashboard)
library(tidyverse)
library(tidyr)
library(highcharter) #Buat Visual
library(gt)
library(htmltools)
library(DT)
library(readr)
library(stringr)
library(qcc)
library(DiagrammeR)
library(moments)
library(viridis)
library(viridisLite)
library(forcats)
library(DBI)
library(plotly)
library(glue)
```

Data Jakarta
======================================================================

Column {.tabset .tabset-fade data-width=1000}
-----------------------------------------------------------------------
```{r}
# Baca file CSV (pastikan file ini berada di folder yang sama dengan Rmd)
data_ispu <- read_csv("Jakarta.csv")  # Ganti dengan nama file kamu

# Tampilkan dengan datatable interaktif + tombol ekspor
DT::datatable(
  data_ispu,
  extensions = 'Buttons',
  options = list(
    pageLength = 10,
    scrollY = "400px",
    scrollX = TRUE,
    dom = 'Bfrtip',
    buttons = c('copy', 'csv', 'excel', 'pdf', 'print')
  ),
  caption = htmltools::tags$caption(
    style = 'caption-side: top; text-align: left; font-weight: bold;',
    "Tabel Data ISPU DKI Jakarta Tahun 2023"
  )
)
```


Data Palangkaraya
======================================================================
Column {.tabset .tabset-fade data-width=1000}
-----------------------------------------------------------------------
```{r}
# Baca file CSV (pastikan file ini berada di folder yang sama dengan Rmd)
data_ispu <- read_csv("Palangkaraya.csv")  # Ganti dengan nama file kamu

# Tampilkan dengan datatable interaktif + tombol ekspor
DT::datatable(
  data_ispu,
  extensions = 'Buttons',
  options = list(
    pageLength = 10,
    scrollY = "400px",
    scrollX = TRUE,
    dom = 'Bfrtip',
    buttons = c('copy', 'csv', 'excel', 'pdf', 'print')
  ),
  caption = htmltools::tags$caption(
    style = 'caption-side: top; text-align: left; font-weight: bold;',
    "Tabel Data ISPU DKI Jakarta Tahun 2023"
  )
)
```


Grouped Bar Chart
======================================================================

Column {data-width=500}
-----------------------------------------------------------------------