r - 在R中的一个图表上绘制三个或更多变量的时间序列

Question

为了限制图表的数量并帮助分析多个变量，我使用了plotrix包中的twoord.plot函数：

labels <- list("var1" = expression(paste("my Variable ", kg/m^2)),"var2" = expression(paste("Something ", kg/m^2)))

lx <- myVariables[[period]][["Date"]]
ly <- myVariables[[period]][[var1]]
ry <- myVariables[[period]][[var2]]

at_x <- lx[seq(1,length(lx),5)]

twoord.plot(lx,ly,lx,ry,xticklab=format(as.Date(at_x,"%d-%m-%Y"),"%b %Y"),xtickpos=at_x, main=paste(t_labels[[var1]], "and", t_labels[[var2]],sep=" ")

它的效果非常好，但我希望将第三个变量（可能作为一个点）添加到此图表中。似乎我需要另一个 Y 轴来存储提到的数据（或将它们相乘，以便它们的范围与var1或var2之一匹配）。

最好的方法是什么？没有 threeord.plot 函数。