File ini berisi template untuk mejawab pertanyaan 5W+1H saat briefing Capstone Data Visualization sebagai langkah awal sebelum membuat Dashboard. Silakan Bapak/Ibu mengisi jawaban di bawah.

File ini tidak akan dinilai namun Bapak/Ibu WAJIB disubmit ke dalam classroom pada hari H briefing Capstone Data Visualization.

What

Tentukan tujuan atau informasi yang ingin ditampilkan dalam dashboard

Jawab

Tujuan yang ingin dicapai atau informasi yang ingin disampaikan:

  • Dashboard yang ingin saya tampilkan ialah sebuah dashboard yang menampilkan rangkuman tren-tren makroekonomi pada suatu region atau negara dalam satu sentuhan.
  • Adapun indikator makroekonomi yang ingin saya tampilkan ialah
    1. Pertumbuhan PDB
    2. Utang Luar Negeri
    3. Neraca Perdagangan
  • Adapun negara yang termasuk dalam analisis dashboard mencakup keseluruhan negara di benua Asia.

Who

Untuk siapa dashboard ini dibuat? Siapa target pembaca dari dashboard ini?

Jawab

Dashboard ini diperuntukan untuk para pemangku kepentingan yang bekerja di lingkup perekonomian internasional maupun hubungan internasional yang sekiranya membutuhkan data tren ekonomi internasional yang mudah dibaca dan dipahami secara cepat dan singkat.

Why

Apakah data yang dibuat relevan atau sesuai dengan tujuan? Mengapa?

Jawab

Data ini relevan dikarenakan, indikator PDB, Utang Luar Negeri dan Neraca dagang adalah tiga indikator utama yang menentukan tren hubungan antar negara dalam kerjasama ekonomi internasional.

Apabila dibutuhkan, maka indikator-indikator ekonomi internasional dapat turut ditambahkan di update selanjutnya

When

Apakah data yang digunakan masih up to date atau masih relevan dengan kondisi sekarang? Apakah ada informasi tentang tanggal update terakhir dari data tersebut?

Jawab

Data yang digunakan up to date sampai dengan tahun 2020. Data tahun 2021 dan 2022, sebenarnya sudah ada, namun masih belum fix. Sehingga sample time series yang digunakan hanya dari tahun 2013-2019 saja.

How

Bagaimana Bapak/Ibu menggunakan visualisasi untuk menjawab tujuan yang telah disebutkan?

Buat plot yang akan dimasukkan ke dalam dashboard. Boleh dalam bentuk ggplot maupun plotly.

Jawab

getwd()
## [1] "C:/Users/bowot/Downloads/Algoritma/Capstone_1"

Plot untuk menjawab tujuan pertama: GDP

Plot kedua: Utang Luar Negeri

Plot ketiga: Neraca Dagang

Buat chunk baru apabila ada lebih dari 3 plot.

Where

Bagaimana desain layout atau tata letak dashboard yang akan dibuat?

Jawab

Page 1

Tab atau halaman pertama

tabItem( tabName = “info_profile”,

    box(
      width = 7, status = "danger", solidHeader = TRUE,
      
      # Selamat Datang
      h2(icon("info"), "Selamat Datang"), hr(),
      
      div(
        "Selamat Datang di Dashboard R Shiny Perekonomian Asia.",
        p("Dashboard ini menyusun dan menggabungkan informasi ekonomi di beberapa negara Asia."),
        p(strong("Disclaimer! Dashboard ini dibuat dengan tujuan pembelajaran dan latihan koding di R Studio & R Shiny."))
      ),
      
      # Jejaring Sosial
      h2(icon("users"), "Jejaring Sosial"), hr(), 
      
      div(
        "Terima kasih telah berkunjung ke laman saya, apabila bapak/ibu berkenan juga dapat menambahkan jejaring kontak saya ke dibawah ini:",
        tags$ul(
          tags$li(a(href = "https://www.linkedin.com/in/daniel-wijoyo/", "LinkedIn"), "(Daniel Satrio Wijoyo)"),
          tags$li(a(href = "https://github.com/danielwijoyo", "GitHub", target = "_blank"), "(danielwijoyo)"),
          tags$li(a(href = "https://rpubs.com/danielwijoyo", "R Pubs", target = "_blank"), "(danielwijoyo)")
        )
      ),
      
      h2(icon("question-circle-o"), "Rekognisi Pengakuan"), hr(),
      div(
        "Struktur dan data yang digunakan sangat terinspirasi dan dipengaruhi dari Mr. A Ho ", 
        a(href = "https://github.com/avisionh", "(A Ho's GitHub).")
        
      ),
      div(
        "Selain itu dashboard ini juga turut dapat dibuat berkat bimbingan dan pengajaran dari para mentor & instruktur ", 
        a(href = "https://github.com/teamalgoritma", "(Team Algoritma)")
        
      ), hr()
      
    ), #box
    
    box(
      width = 5, status = "danger", solidHeader = TRUE,
        
      # Data Sources
      h2(icon("database"), "Sumber Data"), hr(),
        
      div(
        "Dashboard ini mengambil data dari Asia Development Bank (ADB) ", br(),
        tags$ul(
          tags$li(a(href = "https://data.adb.org/dataset/gdp-growth-asia-and-pacific-asian-development-outlook-ado", "GDP Growth"), "(Pertumbuhan PDB)"),
          tags$li(a(href = "https://data.adb.org/dataset/basic-statistics-asia-and-pacific", "Basic Statistic", target = "_blank"), "(Statistik Dasar)"),
          tags$li(a(href = "https://data.adb.org/dataset/external-debt-outstanding-asia-and-pacific-asian-development-outlook", "External Debt Outstanding", target = "_blank"), "(Utang Luar Negeri Terhutang)"),
          tags$li(a(href = "https://data.adb.org/dataset/trade-balance-asia-and-pacific-asian-development-outlook", "Trade Balance"), "(Neraca Perdagangan)"),
          tags$li(a(href = "https://data.adb.org/dataset/exchange-rates-us-dollar-asia-and-pacific-asian-development-outlook", "Exchange Rate"), "(Nilai Tukar)")
        )
        
      ), hr(),
        
      # Perangkat Lunak
      h2(icon("cogs"), "Perangkat Lunak"), hr(),
        
      div(
        "Dashboard ini telah dibangun menggunakan:  ", br(),
        tags$ul(
          tags$li(a(href = "https://www.r-project.org/", "R"), "(untuk pengolahan dan perhitungan data)"),
          tags$li(a(href = "https://shiny.rstudio.com/", "R Shiny", target = "_blank"), "(untuk desain dan interaktivitas aplikasi)"),
          tags$li(a(href = "https://rstudio.github.io/shinydashboard/", "Shiny Dashboard", target = "_blank"), "(untuk tata letak dan struktur aplikasi)")
        )
      ), hr()
      
    ) #box
  
  ), #tabItem

Tab atau halaman kedua

tabItem( tabName = “report_subregion”, selectInput( inputId = “subregion”, label = “Silahkan pilih sebuah sub-wilayah:”, choices = sort(unique(data_plots_region$Subregion)) ),

    fluidRow(
      
      
      # Map: Subregion ------------------------------------------------------------
      box(
        title = tags$b("Peta Sub-Wilayah"), solidHeader = TRUE, status = "danger", width = 12, height = "31vh", 
        leafletOutput(outputId = "map_subregion", height = "25vh")
      ) #box
    ), #fluidRow
    
    fluidRow(
      valueBoxOutput(outputId = "valuebox_region_avg_gdp", width = NULL),
      valueBoxOutput(outputId = "valuebox_region_debt", width = NULL),
      valueBoxOutput(outputId = "valuebox_region_trade_balance", width = NULL)
    )
  ),

Tab atau halaman ketiga

tabItem( tabName = “report_country”, selectInput( inputId = “name”, label = “Silahkan pilih sebuah negara”, choices = sort(data_consolidate$RegionalMember) ),

    fluidRow(


      # Map: Country ------------------------------------------------------------
      box(
        title = tags$b("Peta Wilayah Negara"), solidHeader = TRUE, status = "danger", width = 12, height = "30vh",
        leafletOutput(outputId = "map_country", height = "24vh")
      ) #box
      
    ), #fluidRow
    
    fluidRow(
      
      # Basic Stats
      
      
      column(
        width = 12,
        valueBoxOutput(outputId = "valuebox_current_gdp", width = NULL),
        valueBoxOutput(outputId = "valuebox_current_debt", width = NULL),
        valueBoxOutput(outputId = "valuebox_current_trade", width = NULL)
      ),
      
      
    ), #fluidRow
    
    fluidRow(
      
      # Plots
      tabBox(
        width = 12,
        height = "47vh",
        tabPanel(title = "Persentase Perubahan PDB", height = "100%", plotOutput(outputId = "plot_gdpchange", height = "40vh")),
        tabPanel(title = "Utang Luar Negeri", height = "100%", plotOutput(outputId = "plot_debt", height = "40vh")),
        tabPanel(title = "Neraca Perdagangan", height = "100%", plotOutput(outputId = "plot_tradebalance", height = "40vh"))
      )
      
    ), #fluidRow
    
  ) #tabItem

#Notes: - adapun plot yang dipakai adalah 3 ggplot, karena pada valueboxoutput dan map sudah interaktif.