在ggplot中绘制二进制变量

Question

我有一个数据框“ test”，其中第1列-日期（时间轴），第2-1列或0变量（特定时间段-称为二进制）和第3列（GDP）-GDP增长率。我想绘制一个随时间推移GDP增长率的曲线图，此外，我想对第2列中具有1的区域进行阴影处理。假设1972-1977年与1990-1992年之间的日期在第2列中均具有1，我想这样做时间跨度在图表上以灰色阴影显示。以前，我创建了一个数据表，例如：

"Peak, Trough
1972-01-01, 1977-01-01
1990-01-01, 1992-01-01"), sep=',',
colClasses=c('Date', 'Date'), header=TRUE)

并使用它

ggplot(data=filter(test),aes(x=test$timelines,y=test$GDP))+
  geom_rect(data=filter(period.df,year(Peak)>1959), inherit.aes=F, aes(xmin=Peak, xmax=Trough, ymin=-Inf, ymax=+Inf), fill='darkgray') 

但是现在二进制（column2）变量可以更改，我需要为ggplot提供适当的时间跨度，以便它可以遮盖标有1的区域。谢谢！