sankey-diagram code snippets in r