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)