У меня есть две переменные 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)
Может ли кто-нибудь помочь мне с этим?