Question

我使用FRED的年度数据来绘制前一时期GDP的变化百分比。然而，当我尝试使用FRED的USRec时，较小的衰退（持续时间不到一年）不会出现。我相信这是因为我的数据是每年一次，经济衰退是每月一次，但是有办法解决这个问题吗？

rGDP = getSymbols('A191RL1Q225SBEA',src='FRED',auto.assign=FALSE)
rate = subset(rGDP, index(rGDP)>="1960-01-01")
rate2 <- ts(rate, start=c(1960,1), frequency=4)
yearly <- aggregate(rate2, nfrequency=1, mean)

经济衰退代码：

rec <- getSymbols("USREC",src="FRED",auto.assign=FALSE)
start <- index(rec[which(diff(rec$USREC)==1)])
end   <- index(rec[which(diff(rec$USREC)==-1)-1])
cycles.dates <- paste(format(start,"%Y-%m"),format(end[-1],"%Y-%m"),sep="/")

chart.TimeSeries代码：

chart.TimeSeries(rate,
    period.areas=cycles.dates, 
    period.color="lightblue", 
    lwd=1,
    xlab="",
    ylab="",
    main="",
    minor.ticks=FALSE,
    las=1)

这给了我这个：

Time Series

一些经济衰退没有出现在情节上

0 个答案: