그래프를 웹 친화적으로 만들기
크기를 조절해 보았던 그래프에 ggplotly()를 적용해 봅시다.
이 연습은 강의의 일부입니다
flexdashboard로 대시보드 만들기
연습 안내
- Trip Durations 차트에서
duration_gg그래프를 웹 친화적으로 만들기 위해ggplotly()를 사용하세요. - 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(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"}