Multigraphen in Postscript-Datei

Question

Ich schaffe zwei Graphen in einem Fenster,

(1), wenn ich es funktioniert zeigen aber, wenn ich versuche dann als Postscript-Datei zu speichern, es spart nur ein Diagramm und nicht der zweite Teil. Ich befestige den Code und die Bilder (Display, das ich gerne sehen würde und die EPS-Datei).

(2) Wie kann ich Pi-Symbol in Achsenbeschriftungen anzeigen?

(3) Wie ich Indizes in Legenden wie $ y_1 $, $ Y_2 $ (wie 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() 

Ich bin nicht in der Lage angezeigt werden kann eps-Datei zu laden, aber das zeigt nicht die letzte Handlung.

Answer 1

Bitte beachten Sie die obigen Erläuterungen. Hier ist der Arbeitscode

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()