标签： r
UCS_final <- gvisSankey(data, from = 'Var1', to = 'Var2', weight = 'Freq', options = list(height = 800, width = 1600, title = "Sankey")