R中XY图上的多轴/刻度

Question

如何使用plot()将XY图中的第二行绘制到不同的比例(如此示例)(紫色线)？

我的第一个(红色)行的R代码是这样的:

p <- sqlQuery(ch,"SELECT wl,param1 FROM qryPlot ORDER BY wl")
plot(p$wl,p$param1,axes=T,xlim=c(400,800),ylim=c(0,100),type="l",col="red")

Answer 1

这是一般的想法:

plot(1:10)
par(new=T)
plot(1:10, rep(50, 10), type='l', axes=F, xlab=NA, ylab=NA)
axis(4)