e = element_text(hjust = 0.5))+ggtitle(&quot;Stage 0&quot;)+
    scale_color_manual(labels=l$n,values=colors)

C1&lt;-ggdraw(A)#+draw_plot(B,.5,.2,.4,.4)</code></pre>
<pre class="r"><code>l&lt;-dat_full %&gt;% filter(set==&quot;Stage A vs. Non-Cancer&quot;)
l&lt;-l %&gt;% group_by(model)%&gt;%dplyr::summarize(n=unique(type)) %&gt;% filter(n != &quot; &quot;)</code></pre>
<pre><code>`summarise()` has grouped output by &#39;model&#39;. You can override using the
`.groups` argument.</code></pre>
<pre class="r"