# 인터렉티브 그래프
## 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()