Maak een plot geschikt voor het web
Laten we ggplotly() gebruiken op de grafiek die we probeerden te resizen.
Deze oefening maakt deel uit van de cursus
Dashboards bouwen met flexdashboard
Oefeninstructies
- Gebruik
ggplotly()om deduration_gg-grafiek in de Trip Durations-grafiek webvriendelijk te maken. - Knit en vergroot de HTML-viewer om het resultaat te zien. Probeer het venster te resizen en kijk wat er gebeurt.
Interactieve oefening met praktijkervaring
Probeer deze oefening door deze voorbeeldcode aan te vullen.
{"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(lubridate)\nlibrary(ggplot2)\nlibrary(tidyverse)\nlibrary(plotly)\n\ntrips_df <- read_csv('https://assets.datacamp.com/production/course_6355/datasets/sanfran_bikeshare_joined_oneday.csv')\n```\n\n\nOverview\n===================================== \n\nColumn {data-width=650}\n-----------------------------------------------------------------------\n\n### Origins\n\n```{r}\n\n```\n\nColumn {data-width=350}\n-----------------------------------------------------------------------\n\n\n### Trips by Start Time\n\n\n### Trip Durations\n\n```{r}\n\nduration_gg <- trips_df %>%\n mutate(`Trip Duration (min)` = duration_sec / 60) %>%\n filter(`Trip Duration (min)` <= 60) %>%\n ggplot(aes(x = `Trip Duration (min)`)) +\n theme_bw() +\n geom_histogram(binwidth = 1) +\n ylab('# Trips')\n\nduration_gg\n\n```\n\n\n"}