现在有
x   <- seq(1, 100, by=1)
y1 <- 10*x + 10
y2 <- 10000*x + 5000
想使用两种刻度来将(x, y1)和(x, y2)显示在一幅图中（即左边刻度显示一种，右边刻度显示一种），如何才能做到？
请多多指教！