颜色指示器
设想这家共享单车公司有一个目标：为最大化车辆可用性，他们希望有三分之二的行程低于 10 分钟。我们可以用仪表盘的颜色来表示目标达成情况。
本练习是课程的一部分
使用 flexdashboard 构建仪表板
练习说明
- 为"% Short Trips"仪表添加区段：67 及以上为 success，32 及以下为 danger，介于两者之间为 warning。
交互式实操练习
通过完成这段示例代码来试试这个练习。
{"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"}