title: Plotting multiple Pie Charts with label in one plot
body: <p>I came across this question the other day and tried to re-create it for myself. <a href="https://stackoverflow.com/questions/16184188/ggplot-facet-piechart-placing-text-in-the-middle-of-pie-chart-slices">ggplot, facet, piechart: placing text in the middle of pie chart slices
  </a>. My data is in a very similar format, but sadly the accepted answer did not help, hence why I am re posting.</p>
  
  <p>I essentially want to create the accepted answer but with my own data, yet the issue I run into is that <code>coord_polar does not support free scale</code>. Using the first answer: 
  <a href="https://i.stack.imgur.com/Kh6gX.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/Kh6gX.png" alt="test_pie"></a></p>
  
  <p>I tried it using the second version of the answer, with the ddplyr version, but I also do not get my desired output.  Using the second answer:
  <a href="https://i.stack.imgur.com/kCkxA.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/kCkxA.png" alt="test_pie2"></a></p>
  
  <p>Clearly none of these has the desired effect. I would prefer to create one as with size pie charts, but only showed four as an example, follows: <a href="https://i.stack.imgur.com/edWio.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/edWio.png" alt="desired_pie"></a>.
  This I did in excel, but with one legend, and no background grid. </p>
  
  <p><strong>Code</strong></p>
  
  <pre><code>title&lt;-c(1,1,2,2,3,3,4,4,5,5,6,6)
  type&lt;-c('A','B','A','B','A','B','A','B','A','B','A','B')
  value&lt;-c(0.25,0.75,0.3,0.7,0.4,0.6,0.5,0.5,0.1,0.9,0.15,0.85)
  
  piec&lt;-data.frame(title,type,value)
  library(tidyverse)    
  
  p1&lt;-ggplot(data = piec, aes(x = "", y = value, fill = type)) + 
    geom_bar(stat = "identity") +
    geom_text(aes(label = value), position = position_stack(vjust = 0.5)) +
    coord_polar(theta = "y") 
    #facet_grid(title ~ ., scales = "free")
  p1
  
  
  piec &lt;- piec %&gt;% group_by(title) %&gt;% mutate(pos=cumsum(value)-0.5*value)
  p2&lt;-ggplot(data = piec) + 
    geom_bar(aes(x = "", y = value, fill = type), stat = "identity") +
    geom_text(aes(x = "", y = pos, label = value)) +
    coord_polar(theta = "y") 
    #facet_grid(Channel ~ ., scales = "free") 
  p2
  </code></pre>