lyr::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;All cancer vs. Non-Cancer&quot;) %&gt;% 
    ggplot(aes(spec, sens, group=model,color=model,label=type)) +
    geom_line(aes(color=model), size=1.1) +
    scale_x_reverse(expand=c(0, 0.01),
          