title: How to rename all columns to middle separator in R?
body: <p>I'm looking for an easy solution to rename my columns to only the middle separator. Here's some mock data.</p>
  <pre><code>dat &lt;- data.frame(
    
    subject = paste(&quot;Subject&quot;, 1:10),
    CT_tib_all = round(rnorm(10, 0.25, 0.03), 2),
    CT_lum_all = round(rnorm(10, 0.25, 0.03), 2),
    CT_tho_all = round(rnorm(10, 0.25, 0.03), 2)
    
  )
  </code></pre>
  <p>I'd like to go from this:</p>
  <pre><code>    subject CT_tib_all CT_lum_all CT_tho_all
  1 Subject 1       0.25       0.27       0.26
  2 Subject 2       0.24       0.19       0.21
  </code></pre>
  <p>To this:</p>
  <pre><code>    subject        tib        lum        tho
  1 Subject 1       0.25       0.27       0.26
  2 Subject 2       0.24       0.19       0.21
  </code></pre>