Saudações a todos,

Observando este exemplo (help da função "ts")

z <- ts(matrix(rnorm(300), 100, 3), start = c(1961, 1), frequency = 12)
plot(z)

tem-se três gráficos empilhados, com uma série em cada um.
Gostaria de saber se há possibilidade de que, em cada um dos gráficos, acrescentar outras linhas para efeito de comparação.
Por exemplo, suponha que eu construa um único gráfico com quatro linhas da seguinte forma:
time<-c(5,7,9,11,13) 
m1<-c(94.1,91.9,92.1,92.8,92.3) 
m2<-c(96.3,95.7,95.8,95.1,95.6) 
m3<-c(91.6,91.0,91.1,90.0,88.6) 
m4<-c(95.9,92.9,100.0,90.9,91.1) 
plot(tempo, m1,type="b",main="Percentual de IC´s que contém o parâmetro para X",xlab="tempo",ylab="%",col="blue",ylim=c(70,100)) 
lines(tempo, m2,col="red",type="b") 
lines(tempo,m3,col="green",type="b")
lines(tempo, m4,col="black",type="b")
legend(12.5,85,c("m1","m2","m3","m4"),col=c("blue","red","green","black"),pch=rep(20,2)) 

No exemplo do help, são três séries em três gráficos empilhados.
Há possibilidade de acrescentar linhas a cada uma das séries, ou seja, em cada um dos três gráficos empilhados ter quatro linhas?
Grato,
Maurício