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)
아래와 같은 그림이다.
