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 adalah bagian dari kursus
Membangun Dasbor dengan flexdashboard
Petunjuk 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 praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
{"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"}