Indikator warna
Bayangkan perusahaan bike share memiliki target agar dua pertiga perjalanan berdurasi di bawah 10 menit untuk memaksimalkan ketersediaan sepeda. Kita dapat menunjukkan tingkat keberhasilan mereka berdasarkan warna pada gauge.
Latihan ini merupakan bagian dari kursus
Membangun Dasbor dengan flexdashboard
Instruksi latihan
- Tambahkan sektor pada gauge "% Short Trips" dengan ketentuan 67 ke atas adalah success, 32 ke bawah adalah danger, dan warning berada di antaranya.
Latihan interaktif langsung praktik
Cobalah latihan ini dengan melengkapi kode contoh ini.
{"my_document.Rmd":"---\ntitle: \"Bike Shares Daily\"\noutput: \n flexdashboard::flex_dashboard:\n orientation: columns\n vertical_layout: fill\n---\n\n```{r setup, include=FALSE}\nlibrary(flexdashboard)\nlibrary(readr)\nlibrary(tidyverse)\nlibrary(lubridate)\n\ntrips_df <- read_csv('https://assets.datacamp.com/production/course_6355/datasets/sanfran_bikeshare_joined_oneday.csv')\n```\n\nColumn {data-width=650}\n-----------------------------------------------------------------------\n\n### Origins\n\n\nColumn {data-width=350}\n-----------------------------------------------------------------------\n\n### Median Trip Length\n\n\n### % Short Trips\n\n```{r}\n\nnum_trips <- nrow(trips_df)\nshort_trips <- sum(trips_df$duration_sec < 600) # under 10 min\npct_short_trips <- round(100 * short_trips / num_trips, 0)\n\ngauge(value = pct_short_trips,\n min = 0,\n max = 100)\n\n```\n\n### Trips by Start Time\n\n\n"}