Haz que un gráfico sea apto para la web
Usemos ggplotly() en el gráfico que intentamos redimensionar.
Este ejercicio forma parte del curso
Creación de paneles con flexdashboard
Instrucciones del ejercicio
- Usa
ggplotly()para que el gráficoduration_ggdel panel Trip Durations sea apto para la web. - Teje y expande el visor HTML para ver el resultado. Prueba a redimensionar la ventana y observa qué ocurre.
Ejercicio interactivo práctico
Prueba este ejercicio y completa el código de muestra.
{"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"}