웹에 적합한 기능 살펴보기
이번에는 다른 그래프에 plotly를 적용해 보며 대화형 기능을 살펴보겠습니다.
이 연습은 강의의 일부입니다
flexdashboard로 대시보드 만들기
연습 안내
- 코드를 그대로 니트(Knit)한 뒤, HTML 뷰어를 확장하고 결과 플롯을 살펴보세요.
ggplotly()를 사용해 Station Usage 차트의station_gg플롯을 웹에 적합하게 만드세요.- 탐색을 준비하기 위해 다시 니트하고 확장하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
{"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\nColumn \n-----------------------------------------------------------------------\n\n### Station Usage\n\n```{r}\n\nstation_df <- trips_df %>%\n select(start_station_name, end_station_name) %>%\n rename(Start = start_station_name, End = end_station_name) %>%\n pivot_longer(cols = Start:End, names_to = 'Usage', values_to = 'Station')\n\nstation_gg <- ggplot(station_df,\n aes(x = Station, fill = Usage)) +\n geom_bar(position = 'stack') +\n theme_bw() +\n ylab('Trips') +\n xlab('') +\n theme(axis.text.x = element_text(angle = 45, hjust = 1))\n \nstation_gg \n\n```\n\n\n"}