title: pie chart with ggplot2 with specific order and percentage annotations
body: <p>I have a data frame like below</p>
  
  <pre><code>+--------+-----------+-----+
  |  make  |   model   | cnt |
  +--------+-----------+-----+
  | toyota |  camry    |  10 |
  | toyota |  corolla  |   4 |
  | honda  |  city     |   8 |
  | honda  |  accord   |  13 |
  | jeep   |  compass  |   3 |
  | jeep   |  wrangler |   5 |
  | jeep   |  renegade |   1 |
  | accura |  x1       |   2 |
  | accura |  x3       |   1 |
  +--------+-----------+-----+
  </code></pre>
  
  <p>I need to create a pie ( yes really) of the percentage share for each make.</p>
  
  <p>I do the following as of now.</p>
  
  <pre><code>library(ggplot2)
  library(dplyr)
  
  df &lt;- data.frame(Make=c('toyota','toyota','honda','honda','jeep','jeep','jeep','accura','accura'),
                   Model=c('camry','corolla','city','accord','compass', 'wrangler','renegade','x1', 'x3'),
                   Cnt=c(10, 4, 8, 13, 3, 5, 1, 2, 1))
  dfc &lt;- df %&gt;%
    group_by(Make) %&gt;%
    summarise(volume = sum(Cnt)) %&gt;%
    mutate(share=volume/sum(volume)*100.0) %&gt;%
    arrange(desc(volume))
  
  bp &lt;- ggplot(dfc[c(1:10),], aes(x="", y= share, fill=Make)) +
    geom_bar(width = 1, stat = "identity")
  pie &lt;- bp + coord_polar("y")
  pie
  </code></pre>
  
  <p>This gives me the following pie chart which is pretty neat. </p>
  
  <p><a href="https://i.stack.imgur.com/J9yrf.jpg" rel="noreferrer"><img src="https://i.stack.imgur.com/J9yrf.jpg" alt="enter image description here"></a></p>
  
  <p>However I need to enhance this with the following things - like in the image below.</p>
  
  <ol>
  <li>add percentage labels</li>
  <li>order the pies in desc order of <code>share</code></li>
  <li>remove lables like 0/100, 25</li>
  <li>add a title</li>
  </ol>
  
  <p><a href="https://i.stack.imgur.com/BakoM.jpg" rel="noreferrer"><img src="https://i.stack.imgur.com/BakoM.jpg" alt="enter image description here"></a></p>