class="r"><code>l&lt;-dat_full %&gt;% filter(set==&quot;Stage C 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"><code>l$n&lt;-gsub(&quot;: &quot;,&quot;&quot;,l$n)
A &lt;- dat_full %&gt;% filter(set==&quot;Stage C vs. Non-Cancer&quot;) %&gt;%
    ggplot(aes(spec, sens, group=model,c