Länkning
Nu ska vi länka värderutan för genomsnittlig reselängd till en sida med mer detaljerad information om reselängder.
Den här övningen är en del av kursen
Skapa dashboards med flexdashboard
Övningsinstruktioner
- Länka värderutan "Median Trip Length" till sidan Trip Duration.
- Knita dokumentet och expandera HTML-visaren, och testa sedan länken.
Interaktiv övning med praktiskt arbete
Testa den här övningen genom att slutföra den här exempelkoden.
{"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"}