title: Can you combine a geom_bar pie over a geom_point plot in R?
body: <p>Is there a way to plot <code>geom_pie</code> over a <code>geom_point</code> plot? with a shared Variable (here: Location)</p>
  <p>I have seen people do pies over maps <a href="https://stackoverflow.com/questions/10368180/plotting-pie-graphs-on-map-in-ggplot">plotting pie graphs on map in ggplot</a></p>
  <p>But I was wondering if there is some package or function which allows you to do it?</p>
  <p>Here is my data and two current plots:</p>
  <pre><code>data_point &lt;- data.frame(
    Location=(1:7),
    Var1=c(13,8, 6,5,4,2,1),
    Var2 = c(7,8,9,10,11,12,13))
  
  data_pie &lt;- data.frame(
    Location=rep(1:7,5),
    Group= c(rep(&quot;A&quot;,7),rep(&quot;B&quot;,7),rep(&quot;C&quot;,7),rep(&quot;D&quot;,7),rep(&quot;E&quot;,7)),
    value=c(45.59,63.56,66.47,58.60,67.28,44.45,9.22,0.00,0.00,0.00,0.00,0.00,4.14,37.81,0.00,0.00,0.00,0.04,
  0.03,25.15,34.58,52.86,35.61,24.66,26.13,18.98,12.71,6.61,2,1,9,15,14,14,12))
  
  a&lt;-ggplot(data_point, aes(Var1, Var2, label=1:7)) + 
    geom_point(size = 3, stroke = 2)+
    theme_classic()
  b&lt;- ggplot(data_pie, aes(x=&quot;&quot;, y=value, fill=Group)) +
    geom_bar(stat=&quot;identity&quot;, width=1) +
    coord_polar(&quot;y&quot;, start=0) +
    facet_wrap(~Location)+ scale_fill_brewer(palette=&quot;Dark2&quot;)
  ggarrange(a,b, nrow = 1)
  </code></pre>
  <p><a href="https://i.stack.imgur.com/P3awR.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/P3awR.png" alt="enter image description here" /></a></p>
  <p>Desired plot:
  <a href="https://i.stack.imgur.com/IKI2Y.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/IKI2Y.png" alt="enter image description here" /></a></p>