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

谿瑚襭 #