```r
ggplot(sS.dftlong) +
  aes(x = freq, y = track_value) +
  geom_area() +
  facet_wrap( ~ sl_rowIdx + labels)
```

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