Hi,

I wanted to plot 2 lines on a single graph. Each graph has one axis that can be common. The code that I'm using is:

-------------------------------------------------------

  par(mfrow=c(1, 1))
x1 <- c(2, 4, 6, 8, 10, 12)
x2 <- c(10, 20, 30, 40, 50, 60)
y1 <- c(10,12,15,22,34,21)
y2 <- c(40, 130, 150, 145, 40, 30)
par(las=1, mar=c(4, 4, 2, 4))
plot.new()
#plot.window(range(x1), c(0, 12))
plot.window(range(x2), c(0, 170))
plot.window
lines(x1, y1)
lines(x2, y2)
points(x1, y1, pch=16, cex=2)
points(x2, y2, pch=21, bg="white", cex=2)  
par(col="grey50", fg="grey50", col.axis="grey50")   
axis(1, at=seq(0, 16, 4))
axis(2, at=seq(0, 170, 10))
axis(3, at=seq(0, 70, 10))
axis(4, at=seq(0, 170, 10))
box(bty="u") 
mtext("k", side=1, line=2, cex=0.8)
mtext("GO terms", side=2, line=2, las=0, cex=0.8)
mtext("Num clusters", side=3, line=2, las=0, cex=0.8)
mtext("GO terms", side=4, line=2, las=0, cex=0.8)
par(mar=c(5.1, 4.1, 4.1, 2.1), col="black", fg="black", col.axis="black")

---------------------------------------------------

One of the lines comes out alright, but the other doesn't ( one x axis doesn't come out right either).  Is there any way I can stretch one of the x axis so that it shows the range 0-16 spread over the entire axis? Hopefully, that should take care of the line problem too.

Any help would be appreciated.

thanks!

 __________________________________________________



	[[alternative HTML version deleted]]

