新規失業保険申請件数のグラフ化

quantmodでそのままもってこれる。ソースは、セントルイス連銀(APIも出してる、、)

getSymbols("ICSA", src="FRED")
> getSymbols("ICSA",src="FRED")
[1] "ICSA"
#今週のデータを足す
> ICSA <- rbind.xts(ICSA, xts(424000, Sys.Date()-5))
> plot(ICSA) 

1967年からある。



2000年からにする

>plot(ICSA[“2000::”])

一応季節調整済みの値なので、季節性は考えなくても良い？　

検証する頭脳がない。これから勉強しないと。

失業率と合わせて表示する

>getSymbols("UNRATE”, src=”FRED”)

>r1 <- data.frame(index(ICSA), ICSA[,1], "icsa")

>r2 <- data.frame(index(UNRATE), UNRATE[,1], "unrate")

> names(r1) <- c(“date”,”value”,”variable”)

> names(r2) <- c(“date”,”value”,”variable”)

> rt <- rbind(r1, r2)

> ggplot(rt, aes(date, value)) + geom_line() + facet_grid(variable ~ .,  scale=”free_y”)

今月の失業率の発表もそうだけど、若干、労働市場の改善具合が気になる？