title: Beautifying Sankey/Alluvial visualization using R
body: <p>I'm currently using Alluvial package in R to create a visualization. </p>
  
  <p>Here is my data set:</p>
  
  <p><a href="https://app.box.com/s/6qju42u0cg1cmrnhyhyzmjtp59wnsn3q" rel="noreferrer">https://app.box.com/s/6qju42u0cg1cmrnhyhyzmjtp59wnsn3q</a></p>
  
  <p>Here is my code:</p>
  
  <pre><code>alluvial(fb_ad_3d[,2:3], freq=fb_ad_3d$freq,
           col = ifelse( fb_ad_3d$Response == "Yes", "skyblue1", 
                         "darkorchid1" ),xw = 0.2,alpha = 0.6,
                          gap.width=0.2,cex = 1.1, cex.axis = 1.5)
  </code></pre>
  
  <p>Here is the visualization:</p>
  
  <p><a href="https://i.stack.imgur.com/hUjDC.png" rel="noreferrer"><img src="https://i.stack.imgur.com/hUjDC.png" alt="enter image description here"></a></p>
  
  <p>There are two thing I really don't like:</p>
  
  <ol>
  <li><p>The zigzag patterns on the edges of the flow connectors</p></li>
  <li><p>Certain categories (Agriculture, Events, Electronics, Telecom) on the left side have been compressed making them ineligible.</p></li>
  </ol>
  
  <p>Any way to improve this visualization and make it beautiful?</p>