title: Creating an organizational chart in R
body: <p>I need to draw an organizational chart of the company in R. I have an example but I would like the arrows to leave the same point.</p>
  
  <p>What I expect (from PowerPoint):</p>
  
  <p><img src="https://i.stack.imgur.com/Fj2uO.png" alt="Expected"></p>
  
  <p>What I got (in R):</p>
  
  <p><img src="https://i.stack.imgur.com/58yRk.png" alt="Actual"></p>
  
  <p>Code:</p>
  
  <pre><code>grViz("
    digraph {
  
    graph[splines=ortho, nodesep=1]
  
    node[shape=box]
    President;Fun1;Fun2;Fun3;
  
    President-&gt;{Fun1,Fun2,Fun3}
    }
    ")
  </code></pre>