multigraphes dans le fichier Postscript

Question

Je crée deux graphiques dans une seule fenêtre,

(1) lorsque je visualise cela fonctionne, mais lorsque je tente d'enregistrer le fichier en Postscript puis il enregistre un seul graphique et non la deuxième partie. Je joins le code et les images (affichage que j'aimerais voir et le fichier eps).

(2) Comment puis-je afficher le symbole pi dans les étiquettes des axes?

(3) Comment puis-je afficher des indices dans des légendes telles que $ y_1 $, $ Y_2 $ (comme tex)

rm(list=ls()) 
par(mfrow=c(2,1)) 
par(mar = c(4,4.5,1,1)) 
postscript(file="Test.eps", onefile = TRUE, horizontal = FALSE) 

x <- seq(-pi, pi, by=0.1) 
y1<-abs(cos(x)); y2<-abs(sin(x)) 
m<-cbind(x,y1,y2,y1+y2,abs(y1-y2)) 

matplot(m[,1],(m[,c(2,3,4)]), type="l", lty=c(1,2,3,4),ylim=c(0,max(unlist(m[,2:5]))), xaxt="n",xlab="Time",ylab="Y",lwd=2,col=c("black","black","black","black")) 
axis(1,c(-pi,-pi/2,0,pi,pi/2)) 
legend("topright", c("y1","y2","y1+y2","y1-y2"),lty=c(1,2,3,4),lwd=2,col="black") 

matplot(m[,1],(m[,c(2,3,5)]), type="l", lty=c(1,2,3,4),ylim=c(0,max(unlist(m[,2:5]))), 
     xaxt="n",xlab="Time",ylab="Y",lwd=2,col=c("black","black","black","black")) 
axis(1,c(-pi,-pi/2,0,pi,pi/2)) 
legend("topright", c("y1","y2","y1+y2","y1-y2"),lty=c(1,2,3,4),lwd=2,col="black") 

par(mfrow=c(1,1)) 
graphics.off() 

Je ne suis pas en mesure de télécharger le fichier EPS, mais ne montre pas la dernière intrigue.

Answer 1

S'il vous plaît voir commentaires ci-dessus pour plus d'explications. Voici le code de travail

rm(list=ls()) 
par(mfrow=c(2,1)) 
par(mar = c(4,4.5,1,1)) 

postscript(file="Test.eps", onefile = TRUE, horizontal = FALSE) 
par(mfrow=c(2,1)) 
par(mar = c(4,4.5,1,1)) 

x <- seq(-pi, pi, by=0.1) 
y1<-abs(cos(x)); y2<-abs(sin(x)) 
m<-cbind(x,y1,y2,y1+y2,abs(y1-y2)) 

matplot(m[,1],(m[,c(2,3,4)]), type="l", lty=c(1,2,3,4),ylim=c(0,max(unlist(m[,2:5]))), 
     xaxt="n",xlab="Time",ylab="Y",lwd=2,col=c("black","black","black","black")) 
axis(1,c(-pi,-pi/2,0,pi,pi/2),expression(-pi,-pi/2,0,pi,pi/2)) 
legend("topright", expression("y"[1],"y"[2],"y"[1]+"y"[2],"y"[1]-"y"[2]),lty=c(1,2,3,4),lwd=2,col="black") 

matplot(m[,1],(m[,c(2,3,5)]), type="l", lty=c(1,2,3,4),ylim=c(0,max(unlist(m[,2:5]))), 
     xaxt="n",xlab="Time",ylab="Y",lwd=2,col=c("black","black","black","black")) 
axis(1,c(-pi,-pi/2,0,pi,pi/2),expression(-pi,-pi/2,0,pi,pi/2)) 
legend("topright", expression("y"[1],"y"[2],"y"[1]+"y"[2],"y"[1]-"y"[2]),lty=c(1,2,3,4),lwd=2,col="black") 


par(mfrow=c(1,1)) 
graphics.off()