在R中使用geom_rect进行时间系列着色 [英] Using geom_rect for time series shading in R

问题描述

我试图遮蔽时间序列图的某一部分（有点像衰退阴影 - 类似于这篇关于excel中衰退阴影的文章）。我已经把一些可能很笨拙的样本放在一起来说明。
我首先创建一个时间序列，使用ggplot2绘制它，然后想要使用geom_rect来提供阴影。但是我必须在参数中出错。

  a< -rnorm（300）
_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 
）
  

请注意，我也尝试过哪些方法也无效。 / b>

  geom_rect（
 fill =red，alpha = 0.5，
 mapping = aes_string（x =月，y =大），
 aes（
 xmin = as.numeric（as.Date（c（1924-01-01））），
 xmax = as .nu​​meric（as.Date（c（1928-12-31））），
 ymin = 0，
 ymax = 2）
 ）
  

见下文，需要润滑包装。
$ b $ pre $ require（lubridate）
ggplot（a_series_df）+
geom_line（mapping = aes_string（x =month，y =big））+
geom_rect（
fill =red，alpha = 0.5，
mapping = aes_string（x =month，y =大），
xmin = decimal_date（as.Date（c（1924-01-01））），
xmax = decimal_date（as.Date（c（1928-12-31 ））），
ymin = 0，
ymax = 2
）


  ggplot（）+ 
更清晰的版本，阴影首先被绘制出来，所以线条颜色不会改变。 geom_rect（data = data.frame（xmin = decimal_date（as.Date（c（1924-01-01））），
 xmax = decimal_date（as.Date（c（1928-12-31 ））），
 ymin = -Inf，
 ymax = Inf），
 aes（xmin = xmin，xmax = xmax，ymin = ymin，ymax = ymax），
 fill =gray，alpha = 0.5）+ 
 geom_line（data = a_series_df，aes（month，big），color =blue）+ 
 theme_classic（）
  

I am trying to shade a certain section of a time series plot (a bit like recession shading - similarly to the graph at the bottom of this article on recession shading in excel). I have put a little, possibly clumsy, sample together to illustrate. I first create a time series, plot it with ggplot2 and then want to use geom_rect to provide the shading. But I must get something wrong in the arguments.

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
    )

Note that I have also tried which also did not work.

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)
        )

解决方案

Code works fine, conversion to decimal date is needed for xmin and xmax, see below, requires lubridate package.

require("lubridate")
ggplot(a_series_df)+
  geom_line(mapping=aes_string(x="month", y="big"))+
  geom_rect(
    fill="red",alpha=0.5, 
    mapping=aes_string(x="month", y="big"), 
    xmin=decimal_date(as.Date(c("1924-01-01"))),
    xmax=decimal_date(as.Date(c("1928-12-31"))),
    ymin=0,
    ymax=2
  )

Cleaner version, shading plotted first so the line colour doesn't change.

ggplot() +
  geom_rect(data=data.frame(xmin=decimal_date(as.Date(c("1924-01-01"))),
                            xmax=decimal_date(as.Date(c("1928-12-31"))),
                            ymin=-Inf,
                            ymax=Inf),
            aes(xmin=xmin,xmax=xmax,ymin=ymin,ymax=ymax),
            fill="grey",alpha=0.5) +
  geom_line(data=a_series_df,aes(month,big),color="blue") +
  theme_classic()

这篇关于在R中使用geom_rect进行时间系列着色的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！