重图在PostScript文件

（1）当我展示它的工作原理，但是当我尝试保存作为后记文件，那么它不仅节省了一个图表，而不是第二部分。我附上了代码和图像（我希望看到的显示和eps文件）。

（2）如何在轴标签中显示pi符号？

（3）我怎样才能在传说，如$ Y_1，$ Y_2 $（如TEX）

I would like to see like this in eps file

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

我不能上传EPS文件，但是这显示标不显示最后的情节。

来源

2017-07-03 bell

我找到答案的第一个问题，我应该移动的PostScript（...）后，第2次和第3行。现在寻找答案（2）和（3）。 – bell

我找到了解决其他两个问题的方法。在这两种情况下，我需要使用表达式（....）。请检查我的代码如下。 – bell

不是一个真正的PostScript问题。 – lhf

请参阅上面的注释说明。这里是工作的代码

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

来源

2017-07-03 20:02:51 bell

重图在PostScript文件

回答

相关问题