Chỉ báo màu sắc
Giả sử công ty chia sẻ xe đạp đặt mục tiêu có hai phần ba số chuyến đi dưới 10 phút để tối đa hóa khả dụng của xe. Ta có thể thể hiện mức độ đạt mục tiêu dựa trên màu của đồng hồ đo (gauge).
Bài tập này là một phần của khóa học
Xây dựng Dashboard với flexdashboard
Hướng dẫn bài tập
- Thêm các sector cho đồng hồ đo "% Short Trips" với 67 trở lên là success, 32 trở xuống là danger, và warning là phần ở giữa.
Bài tập tương tác thực hành trực tiếp
Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.
{"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"}