ty&quot;) + ylab(&quot;Sensitivity&quot;) +
    guides(color=guide_legend(title=&quot;AUC: (95% CI)&quot;, hjust=1)) + theme(strip.background = element_blank(), plot.title = element_text(hjust = 0.5))+ggtitle(&quot;Stage A&quot;)+
    scale_color_manual(labels=l$n,values=colors)

C2&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 B vs. Non-Cancer&quot;)
l&lt;-l %&gt;% group_by(model)%&gt;%dplyr::summarize(n=unique(type)) %&gt;% filter(n