Vinculando
Vamos vincular o value box de duração média da viagem a uma página com mais detalhes sobre as durações das viagens.
Este exercício faz parte do curso
Criando dashboards com flexdashboard
Instruções do exercício
- Vincule o value box "Median Trip Length" à página Trip Duration.
- Faça o Knit e expanda o visualizador HTML, depois teste o link.
Exercício interativo prático
Experimente este exercício completando este código de exemplo.
{"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"}