```r
sS2to3thousandHz = sS.dftlong%>%
  filter(freq>=2000 & freq <=3000)%>%
  group_by(labels,sl_rowIdx)%>%
  summarise(amplitudes_2000_3000Hz = mean(track_value))

ggplot(sS2to3thousandHz)+
  aes(x=labels,y=amplitudes_2000_3000Hz,col=labels)+
  geom_boxplot()
```

<img src="SpectralAnalysis_files/figure-html/unnamed-chunk-13-1.png" width="480" style="display: block; margin: auto;" />