绘制联合回归期

Question

我有两个变量var1和var2。我想要有两个变量的联合返回周期图，如

蓝线表示两个变量的联合返回期，数字表示以年为单位的返回期值（1,5,10,50，...）。

我不确定如何生成这个情节。

set.seed(101)
dates = seq(as.Date("1951-12-31"),as.Date("2000-12-31"),by="day")
var1 = rnorm(length(dates), 0.5)
var2 = rnorm(length(dates),5)
plot(var1,var2,cex=0.1)

有人可以帮我吗？