#title Google Sankey Chart with R
{{{
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)
}}}

아래와 같은 그림이다. 
http://i1.wp.com/analyzecore.com/wp-content/uploads/2014/10/sankey-chart.png

==== 참고자료 ====
 * http://analyzecore.com/2014/10/31/sequence-carts-analysis-sankey/