r - 地块联合回报期

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)

谁能帮我解决这个问题？