ggplot 色々な線を引く

水平線を引く

p <- p + geom_hline(yintercept=mean((apply(m[seq(1,72,4),],2,mean)*100)),linetype=2,alpha=0.7,size=0.5,color='black')

垂直線を引く

p <- p + geom_vline(xintercept=seq(as.Date(paste(substr(index(head(spx_mean,1)),1,7),"-01",sep="")),as.Date("2019-01-01"),by='years'), colour="white",size=0.4,alpha=0.5)

任意の座標の間に直線を引く

p <- p + geom_segment(x=as.Date("1985-01-01"),y=log(168),xend=as.Date("2019-09-01"),yend=log(3000),color='white',size=0.02,linetype=2)

回帰線を引く

se=Tとすれば信頼区間が表示される。
method はlm ないしはloessが選択できる。

p <- p + stat_smooth(aes(x=p,y=t),method = lm, formula = y ~ poly(x, 3, raw = TRUE),se=FALSE)