```r
sS.dftlong.mean = sS.dftlong%>%
  group_by(labels,freq)%>%
  summarise(track_value=mean(track_value))

ggplot(sS.dftlong.mean) +
  aes(x = freq, y = track_value, col=labels) +
  geom_line() 
```

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