색상 지표
자전거 공유 회사가 자전거 가용성을 극대화하기 위해 전체 주행의 3분의 2를 10분 미만으로 유지하는 목표를 가지고 있다고 가정해 봅시다. 게이지 색상을 통해 목표 달성 여부를 나타낼 수 있어요.
이 연습은 강의의 일부입니다
flexdashboard로 대시보드 만들기
연습 안내
- "% Short Trips" 게이지에 구간(sectors)을 추가하세요. 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"}