Я пытаюсь затенять определенную часть графика временных рядов (немного похоже на затухание рецессии - аналогично графику внизу в этой статье о рецессии затенение в excel). Я привел немного, возможно, неуклюжий образец для иллюстрации. Сначала я создаю временные ряды, зарисую их с помощью ggplot2, а затем хочу использовать geom_rect для обеспечения затенения. Но я должен получить что-то не так в аргументах.
a<-rnorm(300)
a_ts<-ts(a, start=c(1910, 1), frequency=12)
a_time<-time(a_ts)
a_series<-ts.union(big=a_ts, month=a_time)
a_series_df<-as.data.frame(a_series)
ggplot(a_series)+
geom_line(mapping=aes_string(x="month", y="big"))+
geom_rect(
fill="red",alpha=0.5,
mapping=aes_string(x="month", y="big"),
xmin=as.numeric(as.Date(c("1924-01-01"))),
xmax=as.numeric(as.Date(c("1928-12-31"))),
ymin=0,
ymax=2
)
Обратите внимание, что я также попробовал, что тоже не сработало.
geom_rect(
fill="red",alpha=0.5,
mapping=aes_string(x="month", y="big"),
aes(
xmin=as.numeric(as.Date(c("1924-01-01"))),
xmax=as.numeric(as.Date(c("1928-12-31"))),
ymin=0,
ymax=2)
)