링크 연결
평균 이동 시간 value box를 이동 시간에 대한 자세한 내용을 담은 페이지로 연결해 보세요.
이 연습은 강의의 일부입니다
flexdashboard로 대시보드 만들기
연습 안내
- "Median Trip Length" value box를 Trip Duration 페이지에 링크하세요.
- Knit를 실행하고 HTML 뷰어를 확장한 뒤, 링크를 클릭해 보세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
{"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)\nlibrary(plotly)\n\ntrips_df <- read_csv('https://assets.datacamp.com/production/course_6355/datasets/sanfran_bikeshare_joined_oneday.csv')\n```\n\nOverview\n====================================================\n\nColumn {data-width=650}\n-----------------------------------------------------------------------\n\n### Origins\n\n\nColumn {data-width=350}\n-----------------------------------------------------------------------\n\n### Median Trip Length\n\n```{r}\n\nmedian_min <- median(trips_df$duration_sec / 60) %>% round(digits = 1)\n\nvalueBox(median_min, \n caption = 'Median Trip Duration (Minutes)', \n icon = 'fa-clock-o')\n\n\n```\n\n### % Short Trips\n\n\n### Trips by Start Time\n\n\nTrip Duration\n====================================================\n\n### Trip Durations\n\n```{r}\n\nduration_plot <- trips_df %>%\n mutate(`Trip Duration (min)` = duration_sec / 60) %>%\n ggplot(aes(x = `Trip Duration (min)`)) +\n theme_bw() +\n geom_histogram(binwidth = 1) +\n ylab('# Trips')\n\nduration_plot %>% ggplotly()\n\n```\n\n\n"}