R如何画这样的线图

谢谢！

不知有无更好的。。。

1. par(mfrow=c(2,1))
   
2. a<-c(3.33,3.4,3.42,3.3,3.28,3.4)
   
3. b<-c(185,176,174,172,171,160)
   
4. c<-c(0.09,0.13,0.2,0.3,0.33,0.6)
   
5. par(mar=c(2.5,4.5,0.5,2.1))
   
6. plot(c,a,type="l",xaxt="n",xlab=NA,col="green",frame=F,ylab="HOMA-IR")
   
7. abline(h=3.32,lty=2)
   
8. text(0.5,3.4, "P for trend=0.59",cex=0.75)
   
9. par(mar=c(4.5,4.5,0.5,2.1))
   
10. plot(c,b,type="l",col="navy",frame=F,xlab="Mercury levels(ppm)",ylab="HOMA-beta(%)")
    
11. abline(h=184,lty=2)
    
12. text(0.5,175, "P for trend<0.01",cex=0.75)

复制代码

1. par(mfrow=c(2,1))

复制代码

?

asprine 发表于 2014-6-27 12:33
?

举个例子吧！

1. par(mfrow=c(2,1),mar=c(2.5,4.5,0.5,2.1))
   
2. a<-rnorm(10)
   
3. b<-rnorm(10)
   
4. plot(a,type="b",xaxt="n",xlab=NA)
   
5. plot(b,type="b")

复制代码

就试试看，一会做个高仿的图。

asprine 发表于 2014-6-27 14:12
不知有无更好的。。。

1. par(mfrow=c(2,1))
   
2. a<-c(3.33,3.4,3.42,3.3,3.28,3.4)
   
3. b<-c(185,176,174,172,171,160)
   
4. c<-c(0.09,0.13,0.2,0.3,0.33,0.6)
   
5. par(mar=c(2.5,4.5,0.5,2.1))
   
6. plot(c,a,type="l",xaxt="n",xlab=NA,col="green",frame=F,ylab="HOMA-IR")
   
7. abline(h=3.32,lty=2)
   
8. text(0.5,3.4, "P for trend=0.59",cex=0.75)
   
9. par(mar=c(4.5,4.5,0.5,2.1))
   
10. plot(c,b,type="l",col="navy",frame=F,xlab="Mercury levels(ppm)",ylab="HOMA-beta(%)")
    
11. abline(h=184,lty=2)
    
12. text(0.5,175, "P for trend<0.01",cex=0.75)

复制代码

如何控制上下两个图之间的间距？谢谢！

dxystata 发表于 2014-6-27 14:54
如何控制上下两个图之间的间距？谢谢！

par(mar=c(4.5,4.5,0.5,2.1))
mar设定的为图的边缘值，依次是下，左，上，右。第一个图的下缘留少点就可以。

asprine 发表于 2014-6-27 16:47
par(mar=c(4.5,4.5,0.5,2.1))
mar设定的为图的边缘值，依次是下，左，上，右。第一个图的下缘留少点就可 ...

下图x轴看起来太长



调整后出现x轴标题不居中，虚线太长，如何解决呢？

原数据能否提供下。