Наложение и смещение двух графиков с разными осями Y

Question

Я ищу совет для построения 2 одинаковых форм волны с разными масштабами по осям y (одна - мм рт. Ст., А другая - м / с) на одном графике.Тем не менее, я хотел бы разбить графики относительно друг друга.

Например, используя следующее:

set.seed(123)  
y <- sin(2*pi*x)  
g <- sin(2*pi*x)+ rnorm(200, sd=0.1)

plot(y,type="l",
     ann = F,
     axes = F)  
axis(side = 2)  

par(new = T)

plot(g,type="l",
     ann = F,
     axes = F)  
axis(side = 4)

Дает:

Я хотел бы добиться чего-то подобного (см. Ссылку ниже):

Как этого добиться?

Answer 1

Вот слегка обманчивое решение:

x <- seq(from = 1, to = 3, by = 0.01)
y <- sin(2*pi*x)  
set.seed(123)  
g <- sin(2*pi*x)+ rnorm(length(x), sd=0.1)

stagger <- 2
glabels <- c(-1, 0, 1)

plot(c(min(y),max(y)+stagger) ~ c(1,length(y)), type="n", axes=FALSE, ann=FALSE)
lines(y)
axis(side = 2, at = min(y):max(y))  

par(new = T)
lines(g+stagger)
axis(side = 4, at = glabels + stagger, labels = glabels)

Результат:

Вероятно, есть лучший способ создать позиции и метки для yось для г.