У меня есть следующие данные:

head(MP_rates_dateformat) 
       Month repo revrepo bankrate CRR Callrate  WPI GDP  FED
1 2001-04-01 9.00    6.75        7 8.0     7.49 5.41 4.6 4.50
2 2001-05-01 8.75    6.50        7 7.5     8.03 5.60 4.6 4.00
3 2001-06-01 8.50    6.50        7 7.5     7.24 5.30 4.6 3.75
4 2001-07-01 8.50    6.50        7 7.5     7.19 5.23 5.3 3.75
5 2001-08-01 8.50    6.50        7 7.5     6.94 5.41 5.3 3.50
6 2001-09-01 8.50    6.50        7 7.5     7.30 4.52 5.3 3.00

Я пытаюсь построить временные серии перекрывающихся участков для переменныхrepo а такжеrevrepo с помощьюggplot2.

p2 <- ggplot(MP_rates_dateformat, aes(x= Month)) + geom_area(aes(y=repo, color="repo"), fill="yellowgreen") + geom_area(aes(y=revrepo,color="revrepo"), fill="dodgerblue", alpha=0.7, linetype="dotted") + labs(color="")+ labs(title="Overlapping - Repo & Reverse Repo") 

p2

Как мы видим, легенда показывает одинаковыми цветами, заполняет поля легенды для обеих переменных. Я хочу, чтобы это показывало правильные соответствующие цвета, то есть желто-зеленый дляrepo и хитрый дляrevrepo.

Предположим, я расплавил данные как:

df <- reshape2::melt(MP_rates_dateformat[, c("Month", "repo", "revrepo")], id="Month")

head(df, 3)

      Month variable value
1 2001-04-01     repo  9.00
2 2001-05-01     repo  8.75
3 2001-06-01     repo  8.50

p1 <- ggplot(df, aes(x=Month)) + geom_area(aes(y=value, fill=variable)) + labs(title="Non-Overlapping - Repo & Reverse Repo")

Но это дает мне непересекающиеся участки с правильной легендой .... НО я ищу участок перекрытия.