R - 인터랙티브 그래프

# 인터랙티브 그래프 구현하기
install.packages("plotly")
library(plotly)
library(ggplot2)

# 산점도를 인터랙티브
mpg
p <- ggplot(data=mpg,aes(x=displ,y=hwy,col=drv)) + geom_point()
ggplotly(p) #그래프를 인터렉티브 형태로 변경 

마우스 커서를 올리면 정보가 조회된다

# 막대 그래프를 인터랙티브
str(diamonds)
p <- ggplot(data = diamonds, aes(x=cut,fill=clarity)) + 
  geom_bar(position='dodge')
ggplotly(p)

마우스 커서를 올리면 정보가 조회된다

# 인터렉티브 시계열 그래프
# 시계열 그래프 : 시간에 따른 데이터의 변환 표현 
install.packages("dygraphs") # 인터렉티브 시계열 그래프를 위한 패키지
library(dygraphs)
economics # ggplot2 패키지에 속한 데이터

# 미국의 월별 경제 지표 (1967~2015)
# date : 데이터 수집한 일자 
# pce : 개인 소비 지출 
# pop : 총인구
# psavert : 저축율 
# uempmed : 실업 기간의 중앙값
# uemploy : 실업자 수

library(xts)

# 시간에 따른 실업자 수를 그래프로 작성하기 
eco <- xts(economics$unemploy,order.by=economics$date)
head(eco)
dygraph(eco)

 

# 날짜 범위 선택 가능

# %>% : 파이프 연산자
dygraph(eco) %>% dyRangeSelector()