inflow <- tbl_df(sqlQuery(conn, "select * from bi_itemp.cha2.inflow"))
head(inflow)

> head(inflow)
Source: local data frame [6 x 3]

              from_log               to_log users
1 아이템 뽑기(가챠)(5) 아이템 뽑기(가챠)(6)   154
2       상점 첫오픈(8) 아이템 뽑기(가챠)(9)   152
3       캐릭터 구매(9)           앱실행(10)     1
4          패치시작(3)          출석체크(4)     1
5       상점 첫오픈(9)  미션(업적) 달성(10)     1
6   미션(업적) 달성(4)       캐릭터 강화(5)     1

참고: 편집 눌러서 보자

library(googleVis)
sk <- gvisSankey(inflow, from="from_log", to="to_log", weight="users",
options=list(height=900, width=1800, sankey="{link:{color:{fill:'lightblue'}} }"))
plot(sk)

아래와 같은 그림이다.

참고자료 #