How to colour area under the curve in a hypnogram?

I’m traying to make an hypnogram and add color to the wake and sleep stages, something like this:

adding additional fill variable in ggplot2

I have the following data and code: