Добавление лент в серию ggplot - PullRequest
Новая
       21

Добавление лент в серию ggplot

0 голосов
/ 14 апреля 2020

Я пытаюсь добавить ленты во временные ряды ggplot, используя следующий код: 

ggplot(RiverWensum) +
aes(x = dates, y = `Nitrate (mg N/L)`) +
geom_line(size=1L, colour = "black")+
geom_rect(xmin = 2013-10-01, xmax = 2014-09-30 , ymin = 0, ymax = 0.8, fill="blue", alpha = .1)+
geom_rect(xmin = 2013-10-01, xmax = 2014-09-30 , ymin =0.81, ymax = 3.6, fill="green", alpha= .1)+
geom_rect(xmin = 2013-10-01, xmax =2014-09-30 , ymin = 3.61, ymax = 5.6, fill="yellow", alpha = .1)+
geom_rect(xmin = 2013-10-01, xmax = 2014-09-30 , ymin =5.61, ymax = 11.3, fill="orange", alpha = .1)+
labs(y=expression(bold(Nitrate~"("*mg~N~L^-1*")")), x=expression(bold("Date")))+
theme_minimal()

но хотя основа графика будет показывать прямоугольники, не так ли? Любая помощь приветствуется

...