문서 보기역링크PDF로 내보내기맨 위로 이 문서는 읽기 전용입니다. 원본을 볼 수는 있지만 바꿀 수는 없습니다. 문제가 있다고 생각하면 관리자에게 문의하세요. ``` # 인터렉티브 그래프 ## plotly 패키지로 인터랙티브 그래프 만들기 install.packages('plotly') library(plotly) library(ggplot2) p <- ggplot(data = mpg, aes(x = displ, y = hwy, col = drv)) + geom_point() ggplotly(p) p <- ggplot(data = diamonds, aes(x = cut, fill = clarity)) + geom_bar(position = 'dodge') ggplotly(p) ## dygraphs 패키지로 인터랙티브 시계열 그래프 만들기 install.packages('dygraphs') library(dygraphs) economics <- ggplot2::economics head(economics) library(xts) eco <- xts(economics$unemploy, order.by = economics$date) head(eco) # 그래프 생성 dygraph(eco) # 날짜 범위 선택 기능 dygraph(eco) %>% dyRangeSelector() ## 여러 값 표현하기 ### 저축률 eco_a <- xts(economics$psavert, order.by = economics$date) ### 실업자 수 eco_b <- xts(economics$unemploy/1000, order.by = economics$date) eco2 <- cbind(eco_a, eco_b) colnames(eco2) <- c('psavert', 'unemply') head(eco2) dygraph(eco2) %>% dyRangeSelector() ``` open/인터렉티브-그래프.txt 마지막으로 수정됨: 2020/06/02 09:25저자 127.0.0.1